unit MemoAuto

　 …

type

TMemoApp = Class(TAutoObject)

implementation

…

　　procedure RegisterMemoApp

Const

AutoClassInfo : TAutoClassInfo = (

AutoClass : TMemoApp;

ProgID : MemoEdit,Application

ClassIn : '{FIFF4880 - 200D - 11CF - BDCF - D020AFOE5B81}';

Description : 'Memo Editor Application';

Instancing : acSingle Instance );

begin

Automation,RegisterClass(AutoClassInfo)

end;

inibialization

RegisterMemoApp;

end;　

        自动化对象要在initialization部分中对自动化对象进行注册。 注册的信息用以唯一辨识服务器对象。把一个自动化对象加入到服务器中要用到这些信息。程序一旦注册了自动化对象，全局自动化对象将用OLE自动化API进行自动管理。

　　注册后的OLE自动化对象是引用记数的，因为对象可能被多个控制器控制。当使用完一个OLE对象，调用Release方法，Release可减少引用数目，当引用数目为零时，调用Free方法释放对象。

　　通常把OLE对象作为变体类型(variants)进行输出，任何OLE 对象的方法和属性必须返回一个包含OLE对象的变体类型，TAutoObject提供了一个变体类型的OLEObject属性。控制器不能直接得到服务器中的类或指针，而是引用OLE对象的OLEObject属性。

　　例程MemoAuto单元的NewMemo函数就是通过引用OLEObject 属性而提供引用TMemoDoc对象的接口。　

　　function TMemoApp,NewMemo : Variant;

begin

Result := MainForm,CreateMemo(' '),OleObject;

end;　

8.4.2 创建OLE自动化服务器　

　　OLE自动化服务器是应用程序或动态链接库(DLL)，它可向OLE 自动化控制器输出OLE对象。 MemoEditdpr 就是OLE 自动化服务器， 在MemoAuto 单元中注册了MemoEdit.Appdication自动化类，所有OLE控制器均可对MemoEdit.Application进行引用。

　　在Windows环境下有两种OLE自动化服务器，进程内服务器和进程外服务器， Delphi可创建这两种服务器。

　　进程内服务器是输出OLE自动化对象的动态链接库。因为OLE自动化对象来自于DLL，

对象是控制器程序的同一窗体进程，进程内服务器适合于创建共享的程序模块， 而这个模块可以被用不同语言编写的多个程序所共享。 进程内服务器被调用时在同一地址中运行，这样就不需要控制器进行调度，以避免处理大量的消息句柄。 进程外服务器是能输出OLE自动化对象的应用程序。

　　有些OLE自动化服务器只能创建和输出一个OLE对象，有些服务器则可以处理多个OLE对象，另外一些服务器不能输出OLE对象，只能在程序内部使用OLE对象。 服务器与其能输出的对象数目的关系称为实例(instancing)。

　　在创建OLE 自动化对象时必须定义实例， 这样， 在创建一个OLE 自动化对象时，Windows就能决定是否创建一个新的服务器实例。表8.5列出三种实例类型。

表8.6 实例的取值及含义

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

instancing类型　 　　　　　　　　含义

─────────────────────────────── ───────

internal OLE对象是应用程序的内部对象，对象不需要注册，外部进程不能创

　　　　　　　　　 建此对象

Single 每个服务器实例只能输出一个OLE对象实例， 若控制器需要多个OLE

　

　　　　　　　　　 对象实例，WIndows为第一个OLE对象创建一个服务器实例

Multiple 一个服务器能创建和输出多个OLE 对象实例， 进程内服务器大多是

　　　　　　　　　Multiple类型

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　

　　每个使用OLEAuto单元的工程文件自动地拥有一个叫Automation的对象，它是非可视对象。就象Application部件拥有Delphi应用程序的一些信息一样，Automation对象也拥有服务器的一些信息，其中最重要的是StartMode属性和OnLastRelease事件。

　　StartMode指示OLE自动化服务器打开方式打开的目的。表8.7列出StartMode四种取值。　

表8.7 StartMode 的取值及含义

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　取值　　　　　　　 　　含义

───────────────────────────────

　　SmStandAlone 用户启动应用程序

　　SmAutomation Windows为创建OLE对象而启动程序

　　SmRegSever 应用程序仅为注册一个或多个OLE对象而启动

　　SmUnregSever 应用程序仅为注销一个或多个OLE对象而启动

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━　

　　当StartMode模式是SmAutomation，而用户不再需要服务器时发生OnLastRelease 事件。此时所有OLE控制器释放了由服务器创建的对象。缺省情况下，服务器关闭实例，但OnLastRelease 事件可根据实际情况是否关闭。OnLastRelease 事件可得到一个叫ShutDown的布尔型变量。把ShutDown设置成True，则在最后一个OLE对象释放时服务器不关闭。

　　无论创建何种自动化服务器，必须定义对控制器的界面，包括定义和注册OLE对象，OLE自动化对象的属性和方法。定义界面主要是为了控制器能够引用它们。

　　对已存在的自动化服务器界进行修改时，要确保向上兼容　，不要删去已有的属性、方法，这样会导致已存在的自动化控制器发生错误，修改服务器只能增加属性和方法。

　　创建OLE自动化服务器第一步是创建服务器自身。即创建能输出OLE 对象的应用程序或动态链接库。这主要取决于是创建进程内服务器还是进程外服务器。

　　创建进程内服务器，即动态链接库：

　　1.创建动态链接库；

　　2.在工程文件的uses条款中加入OLEAuto单元；

　　3.在DLL中输出四个标准入口，即加入以下代码。　

　　exports

DLLGetClassObject,DLLCanUnloadNow;

DLLRegisterServer,DLLUnregisterServer;　

以上代码必须准确拼写，包括大小写。与Object Pascal的其它项目不同，这些代码

对大小写敏感。

　　创建进程外服务器：

　　1.创建一个Delphi应用程序；

　　2.在工程文件的begin之后加入以下代码；　

　　if Automation,Server Registration then Exit;　

创建服务器之后，应该向服务器加入OLE自动化对象，这个过程大部分是自动完成的，但必须向Delphi的自动化对象专家提供必要的信息。