Delphi中的COM编程.doc

《Delphi中的COM编程.doc》由会员分享，可在线阅读，更多相关《Delphi中的COM编程.doc（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Delphi 中的COM 编程1 接口1.1 定义接口： 目的：什么是接口，以及和抽象类的关联以及不同点。 抽象类（备注理解接口最简单的方法） 永远不能创建一个抽象类的实例； 本身不能实现功能，依靠派生类实现； 接口 被申明为interface类型。接口名从字母I开始。类类型名从T开始。 所有的接口从IUnknown继承； 不能创建接口实例； 不能在接口中指定范围指示。所有的方法都是公有型（public），不能在接口中申明包括范围指示； 不能申明变量；接口只能决定提供什么样的功能，对于如何完成功能没有限制。 接口中申明的所有函数和过程，概念上讲都是虚（virtual）抽象函数和过程。申明时不能

2、带virtual; 接口是不变的； 1.2申明一个接口 目的：如何声明一个接口 GUID(Globally Unique Identifier)全球唯一标示符：CoCreateGuid产生(API) 1.3 实现接口 目的：如何实现接口 实现IUnknown： QueryInterface、 _AddRef、 _Release 使用TInterfaceObject来自动实现Iunknown，否则的话自己要实现上面的方法。 创建、使用及销毁接口： create；指向接口的指针不访问任何信息；自动释放、强迫销毁一个接口将变量置为nil 注：delphi自动创建和销毁接口。 获取单个接口的指针： 直

3、接分配：类与他们实现的接口类型兼容的var MyInteger: TClass; myNumber: Iinterface;begin myInteger:= TClass.create; myNumber:=myInteger;end; GetInterface(const IID: TGUID; out obj)：判断对象是否支持一个接口 Var MyObject : TObject; myInterface : Iinterface;begin myObject := TClass.create; if myObject.GetInterface(Iinterface,myInterfa

4、ce) then end;as操作符： 对象支持特定的接口（对象不支持接口就错的话，可以拦截错误）； 要使用getinterface 和as 的话必须要有一个as自动调用计数功能； 1.4 高级多级接口问题 目的：在一个类中实现多个接口 在一个类中实现多个接口 TXY = class(TInterfacedObject, IXX, IYY)： 类TXY 实现了IXX和IYY接口的所有方法。 多个接口不是多重继承：TXY有且只有一个基类TInterfacedObject; 方法分辨字句:当接口方法在类中实现时，方法分辨子句可使用改变他的名称 TXY = class(TInterfacedObje

5、ct, IXX, IYY) procedure IXX.pxy = pxy1 procedure IYY.pxy = pxy2 接口授权：一个接口的实现授权给另一个类：一个类包含针对另一个类的指针。 内部类： 实现一个或多个接口的功能性； 外部类： 简单的将这些方法传递给内部类，而不是重新实现接口； 接口属性：可以定义只读、只写、或者读写属性； 但是所有访问都必须通过访问函数，因为接口不能定义存储。1.5 小结 目的：如何在delphi应用程序中内部使用接口,了解delphi语言要素的接口。 申明一个接口；在类中实现接口；实现IUnknown所需要的功能；自动对象析构的处理；在类中实现多个接口

6、；将一个接口的实现授权给一个内部对象；定义并实现接口属性2 COM/DCOMCOM (Component Object Model )COM/DCOM可以说是windows平台最基本和重要的技术，现在几乎所有microsoft的软件都是以COM/DCOM技术开发而成的。COM/DCOM基本上是一种组件模型，它提供了一些基本的原则方法让程序员在windows平台中使用标准的对象模型来开发软件组件，由于这些软件组件遵循了microsoft定义的标准，因此这些组件可以使用在任何支持COM/DCOM标准的软件中，让这些软件组件提供的服务可以被不同的软件重复的使用。COM/DCOM软件借助接口来提供它的

7、服务，一个COM/DCOM对象可以同时提供数个不同的接口，并且在不同的接口中提供不同的方法和属性。COM/DCOM至少提供并且实现一个称为IUnknown的接口，这个接口提供了最基本且必要的方法，它是所有其它接口的父借口，其它借口都是从他继承而来的。COM/DCOM对象和他所有的接口都必须有所谓的CoClass(Component Object Class)来加以定义。如果不定义在一个CoClass中就说明COM/DCOM不支持这个接口，客户端也无法取得这个接口提供的服务。CoClass是类别的定义，在使用COM/DCOM对象前，必须先使用一种方法从类别定义建立真正的类别对象，接着再从类别对象

8、中取出需要的接口，最后从取得的接口中调用需要执行的方法或需要存取的属性COM/DCOM中接口代表的是一群服务的定义，当定义好接口后还必须用Object Pascal编写实现接口的实际程序代码。COM/DCOM两种接口类型：原生COM格式的接口和Automation接口。CLSID代表一个COM/DCOM对象(CoClass)的类别IID 代表一个接口APPID 代表一个应用程序的IDPROGID建立COM/DCOM对象应用程序在调用COM对象提供的服务前，必须在内存中先建立COM对象的实体样例，然后才能从COM实体样例中取得接口，再根据接口调用其中的方法。COM执行时期函数库API，CoCre

9、ateInatance, CoCreateInstanceEx前者较旧用于建立COM后者用于建立DCOM对象。Delphi中可以用CreateComObject和CreateRemoteComObject两个函数，分别封装了前面两个API。SCM (Service Control Manager)客户端应用程序动态连接库注册表DLL文件EXE文件内存1. CoCreateInstanceCoCreateInstanceEx2.加载DLL或EXE文件3. 根据ClassID查找DLL或EXE文件4. 加载DLL或EXE到内存5. 应用程序借助接口调用COM对象取得COMDCOM接口可以用Crea

10、teComObject直接创建一个需要的接口，也可以先创建一个IUknown的接口然后转化，在IUnknown中有一个QueryInterfase的方法可以让程序员取得需要的其它接口，delphi中自动提供了这个方法，只要使用as操作符就能自动从一个接口取得另外一个接口。执行程序COM服务器分为进程内服务器（In-Process Server）和进程外服务器 (Out-Process Server)。In-process Server 位于dll文件中，它的调用非常快速，就像其他程序调用一样。Out-Process Server位于 exe文件中，调用它时会自动执行一个执行程序，使用进程外服务

11、器时要穿越不同的执行程序，所以他的速度比进程内的服务器快许多。操作系统SCM客户端执行程序客户端执行程序DLL文件载入操作系统客户端执行程序客户端执行程序服务端执行程序SCM启动Proxy 和 Stub载入由于在调用COMDCOM组件时可能会穿越不同的执行程序，也可能会穿越不同的机器，因此在许多情况下应用程序无法直接调用组件，而必须通过Prox和Stub的帮助。简单的说，Prox就是远程COM对象在应用程序的执行程序中的影像，远程COM提供了什么接口和方法，它的Prox就有什么接口和方法。Prox被调用后就会封装这些信息通过通信协议调用远程的Stub。Stub接受Prox的调用信息，在用这些信

12、息调用真正的COMDCOM对象，在把结果返回给Prox，Prox再回传给应用程序。Prox/Stub来源，如果是原生的COM对象，他们是有微软的midl编译器根据COMDCOM的IDL文档编译出来的。如果是Automation接口，它是windows自带的。远程对象调用当应用程序调用远程机器上的DCOM组件时，除了必须通过Prox/Stub之外，还要一个实体的通信协议来传递调用信息，这个实体通信协议便是RPC(Remote Procedure Call)。RPC是NT的内定服务，一般自动启动。机器一机器二客户端应用程序线程模型Apartment就是把执行程序的空间细分，以维护线程同步存取的问题

13、。在一个执行程序中可以拥有数个不同的Apartment，每个Apartment可以使用不同的线程模型来控制线程如何存取组件。Single-Thread Apartment（）一次只能有一个线程进入此Apartment中存取属于这个Apartment的组件。这样程序员就不用考虑存取同步问题。在一个执行程序中可以同时有许多的。Multi-Thread Apartment允许有几个先程进入这种Apartment中存取其中的对象。应次程序员需要控制同步问题。Both Apartment两种都可以，也要控制同步问题。DLL SurrogateSurrogate负责加载实现COMDCOM对象的DLL文件，

14、让这个DLL执行在Surrogate的执行程序空间中。MTS是一个，NT自带也有一个DLLHost.exe.自动化自动化是一种从应用程序的内部自动控制另一个应用程序的方法。获取自动化服务器的COM对象的两种主要访问方法： 接口：早期连接(early binding) 早期连接是指对接口方法的所有调用在编译时检查参数是否正确； Variants: 后期连接 (late binding) 后期连接指连接意味着方法调用直到运行时才被实现； Variant不是对象指针；对象的调用方法是后期连接；派遣接口(DispInterface) 在接口和Variant中间的某个地方就是派遣接口；与接口有很多类似；

15、 只是方便客户而设定的； 并没有在服务器上实现派遣接口；是服务器上实现了接口； 假设服务器的COM对象也支持IDispatch接口，客户应用程序可以使用Variants或派遣接口；双重接口(Dual Interface)： 自动化服务器 简单定义为自动化服务器，支持早期连接(接口)和后期连接(Variants)； 使用delphi创建的任何任何自动化服务器将自动支持双重接口；进程内自动化服务器CreateOleObject和GetActiveOleObject CreateOleObject：总是创建特定服务器的新实例; GetActiveOleObject: 用来获取正在内存中运行的服务器的

16、引用； 如：Procedure StartOrLinkToWord; var v: Variant; begin try v := GetActiveOleObject(Word.Basic); /判断是否Wod已启动； except v := CreateOleObject(Word.Basic); /否则启动Word;通常自动化服务器启动是隐藏的； v.AppShow; /显示Word应用程序； end; V.FileNew; /创建一个新的文档； v.Insert(Automation is easy!); end;进程外自动化服务器 目的: 自动化的基础；创建一个Automation服务器,如何使用接口、派遣接口、和Variants来控制此服务器； 在本身应作为独立服务器应用程序的情况下，使用进程外非常好；HResult: 自动服务器中的所有方法必须返回一个HResult，暗示是成功还是失败； 所有其他参数必须在out参数中返回； safecall： 调用协议可使编码； 指示Delphi自动把所有方法包括在try.except模块中； 在客户端safecall导致客户检查是否有HResult类型的返回失败码；