xiongmao000738

勤学好问,吃亏是福!

Delphi 编写COM+组件的知识和样例

 一、COM组件的基础知识介绍:

1、什么是COM

         COM是微软定的一种组件编写的规范,目的是为了实现组件的重用,不管你是用C、DELPHI、VB什么语言写的,只要遵守这种规范就是COM组件,就能相互之间调用。那这个规范是什么呢,最简单的,就是按规定使用接口,微软定了个IUnkown接口,只要实现了这个接口的类,就可以称为COM组件。在此基础上可以加上自己的接口,实现特定的功能,这就成了有用的COM组件了。

        

2、COM、DCOM、COM+

         COM是一个基于二进制的标准。打个比方,我们用Delphi实现了一个对象,一般情况下,我们只能在Delphi来生成这个对象的实例并调用,而如果我们用Delphi实现了一个COM对象的话,我们可以用VC、VB或者其他任何一种支持COM对象的语言来生成实例和调用。反过来也一样,我们可以在Delphi中使用各种COM对象,而不用介意它是用什么语言编写的。COM提供了分布式COM对象的机制,形象地说你可以调用另一台机器中的COM对象。COM+则是MTS的一个升级,在COM的基础上进一步提供了事务处理和其他很多Pool技术。

 

2、DELPHI中如何创建COM组件(两个步骤)

  (1)、创建一个ActiveX Library,这是个DLL;【ActiveX选项卡】

   (2)、创建一个COM Object或者Automation Object,二者选其一,这两者都是COM组件,但是当然还是有区别的,差在调用的方法上,这个后面再说。【ActiveX选项卡】;

(创建了一个ActiveX Library,名叫mylib。一个Automation Object,名叫myobj。并且编译注册。)

  注意:COM Object只能通过接口调用,Automation Object可以调接口或名称调用。

        

3、DELPHI中如何调用COM组件(两种方法调用),

第一种方法(用接口来调用)
        适用于支持接口的语言,如C、DELPHI;VB就不行了,好处是速度快,因为不用根据名称去查找了,还有开发时编译器能检查,缺点是要导入类型库。

需要如下操作:

        在use里加上mylib_TLB类型库(如果不是自己开发的没有TLB可以从DLL导入生成的),代码是var myobj:Imyobj;myobj=Comyobj.create();之后就可以用了。如果有兴趣可以看看类型库的代码里,Comyobj.create里调用了CreateComObject,这函数返回的是IUnkown接口,再用as操作转成你需要的Imyobj接口。

 

第二种方法(用名称来调用)
        适用于所有的语言,好处是不用导入类型了,缺点是调用的速度慢,还有开发时编译器不检查。

        用第二种方法不需要类型库了,代码是var myobj:variant;myobj=CreateOleObject('mylib.myobj');之后就可以用了,这个方便吧。其实为了实现用名字调用,需要加上IDispatch接口,不过delphi都自动给我们加好了,不用管直接用就行。

1>、 idispatch是COM object的接口, 在Delphi中通常指一个OleObject.

2>、 OleVariant是一种COM object兼容的Variant类型, 可以通用任何Ole Automation 类型, 他与CreateOleObject创建的idispatch兼容 。

(COM组件的编写和COM+组件的编写差不多,所以只写COM+组件的编写情况)

 

二、COM+编写的具体实例:

1、Com+的编写:

   1>、File---->New---->Other....---->ActiveX Library 标签下的 Transactional Object

   2>、然后填写: CoClss Name :类的名字,比如:ComPlus Threading Modal :线程模式:Apartment 选项: Supports transactions

         当建立COM+ 时选择的事务模式为Requires a Transaction, COM+会根据客户的的请求建立相应的事务,不仅仅是数据库,还会有系统资源等事务.成功SetComplete.回滚SetAbort. 选择Requires a Transaction表示当用户调用这个COM+组件时,COM+环境会为这个组件建立一个新的事务上下文,这和数据库的事务不是一回事。当你的COM+组件提交数据时如果出错,应该告诉事务上下文,只要调用COM+组件的SetAbort方法就可以。这样一来,处于同一个事务上下文的所有COM+组件都会Rollback。如果数据提交成功,应该调用SetComplete,不调用这个方法也可以,因为在默认情况下,COM+组件的事务状态设置为EnableCommite。当处于同一事务上下文的所有COM+组件对象都调用了SetComplete时,该事务上下文才会真正的向数据库提交数据。

   3>、然后在View--->Library的对话框中增加方法 注意:如果参数为输出的话,则类型要是指针型,比如:Long * ,然后修改后面的参数in :out,ret

   4>、最后完善增加的方法就ok了

 

2、客户端调用的编写:

   1>、先倒入Com+的接口类型. Project --->import Type Library---->选中你编写的Com+的类型,然后选择:Create Unit

 

3、安装COM+组件有两种方式,

   1>、第一种(推荐):如果是在IDE环境里,点击“Run->Install COM+ Objects”即可把打开的Active Library项目安装到COM+环境中,注意:如果打开的项目是 一个普通的Application项目,是不能被安装到COM+环境中的。 将要安装的com+打上勾,然后在application中有两个选项:install to existing application :表示你的com+安装在com服务器的哪个组件包中, install to New application:表示将当前com+组件安装到一个新的组件包中.

   2>、第二种办法:打开控制面板-> 管理工具->组件服务->计算机->我的电脑->COM+应用程序,在COM+应用程序的树项上点击 鼠标右键,选择“新建->应用程序”->创建一个空的应用程序,并为此应用程序命名,接下来点击“下一步”直到结束即可。建立了空的COM+应用程序后,接下来就是把COM DLL安装 到COM+应用程序中了。在刚建立的空应用程序的树项中新建一个组件,选择“安装新组件”, 在打开文件对话框中选择要安装到COM+环境中的DLL文件,之后跟着向导做都可以了,要把多个COM DLL安装到同一个COM+应用程序包中,只需重复以上步骤即可。

 

4、导出客户端组件包

导出客户端组件包指的是把已经注册的组件导出为.msi格式的文件,这些文件在客户端安装后,只会在客户端注册组件,而不会安装多余的文件。如果不在客户端注册组件,是不能调用位于服务器上的组件的(此指服务器和客户端分布在不同的机器上时)。

 

 5、调试Com+程序 ---ok

   1>、打开Windows中的组件管理,找到要调试的组件包,点右键,选择属性,在高级这页里选择调试选项,打勾; 然后在下面的调试路径中找到/processID:{xxxxxxxxxxxxxxxxxxxxxxxxxxxxx} 复制出来

   2>、在dephi中Run | Parameters… HOST APPLICATION 填入 {系统路径}\system32\dllhost.exe PARAMETERS 粘巾 /processID:{xxxxxxxxxxxxxxxxxxxxxxxxxxxxx}

   3>、很关键的一点:组件程序:project|option|linker|Include TD32 debug info 和Include remote debug symbols打勾

   4>、启动delphi,运行要调试的Com+程序,设置断点,然后运行客户端程序即可进入到Com+断点.

   5>、调试完后记得要在 Windows中的组件管理中的高级这页里调试选项勾去掉哟.

 

6、Com+需要注意的地方:

   1>、客户机运行就会报 interface not supported 错误.大致原因: COM+的权限依赖于Windows的权限配置,在服务器需要有客户机的用户名和密码。 如果还不行,就在服务器上重新安装com+,重新导出.

   2>、建立工程时,com+不能包含在工程组中.(我的实践)

   3>、COM+不支持Oracle吗?在用事务的时候出错:Using Oracle with Microsoft Transaction Server and COM+

 

7、在Com+中添加远程数据模块

   1>、File---->New---->Other....---->Multitier 标签 下的 Transactional Data Module

   2>、然后在View--->Library的对话框中增加方法.

 

8、Com+中传递数组

   1>、先定义数组:

     type TDataRecord = record

        A: Byte;

        B: LongWord;

        C: Word;

        D: LongWord;

     end;

   2>、服务器端:

     function GetData: OleVariant;

     var

        P: Pointer;

     begin

        VarClear(Result);//不知D5有没。

        try

           Result := VarArrayCreate([0, SizeOf(TDataType)], varByte);

           P := VarArrayLock(Result); //Data: TDataType为你要传的记录类型

           Move(Data, P^, SizeOf(TDataType)); // 把Data的值传给P指向的变体类型

        finally

           VarArrayUnLock(Result);

        end;

     end;

 

   3>、客户端:

     procedure GetFile(const FileName: string);

     var

        P: Pointer;

        V: OleVariant;

        Data: TDataType;

     begin

        FillChar(Data, SizeOf(Data), 0);

        V := SocketConnection1.AppServer.GetData;

        try

           P := VarArrayLock(V);

           Move(P^, Data, SizeOf(Data));

        finally

           VarArrayUnLock(V);

        end;

     end;

 

9、Com+中传递记录集

服务器端:

Uses  ADOInt;

你可以将ADO的数据作为一个Variant类型的变量进行传送:adodataset1.RecordSet这是原生的ado数据

 这是服务端的一个方法的代码:把CodeSet的类型改为Variant*[in,out]

function TADORec.getData: OleVariant;

begin

   AdoDataSet1.Open;

   result := adodataset1.RecordSet;

end;

//可以将ADO的数据作为一个Variant类型的变量进行传送:adodataset1.RecordSet这是原生的ado数据

            

客户端

uses adoint;

var

    MyRecordset :_recordset;

begin

    MyRecordset := IUnknown(CodeSet) as _recordset

End;

 

10、Com有需要研究和有疑问的地方:

   1、Com+的模式:

   2、到Com+的资源Pooling机制

   3、用delphi6 开发Com+,用Neutral模式,尽量用Object Pooling,当然就是要无状态了,事务要尽量短,避免死锁,用ADO不要用BDE.Dbexpress等.

   4、我的做法是,按功能划分组件,把查询和更新分为两个功能组件,因为查询不需要事务,所以只要支持事务就行了。更新一般需要事务。

   5、COM+的事务属性 COM+的事务默认级别是序列 Read,而不是我们认为的commit Read,而且我们设置AdoConnection的隔离级是不管用的,只能强制用显式的SQL才能起效果。例如: 一个中间层COM :select * from a where py_code like 'S%' 继续下面有很多代码;另一个中间层COM: update a set py_code=py_code where py_code like 'B%'; 这时这个COM将会死锁等待,虽然改动的不是一个数据也会死锁 用Commit Read 或UnCommit Read不会建议: 所以被多个子系统更新或读的表,要在最后打开和更新,不要早。另外可以强制改变ADOCONNECTION的隔离级

6、Com+中如何进行事务处理? 在COM+中,如何使用SetComplete和SetAbort进行事务管理?SetComplete和SetAbort怎么能在客户端调用呢?这样肯定是不行的。要保证事务,就在服务器端声明一个专门保存的接口方法,例如:

procedure UpdateMyData(var AData1, AData2: OleVariant; var AMaxError, AErrorCount: Integer); begin    

    try

        DataSetProvider1.Data := AData1;

        DataSetProvider1.ApplyUpdate(AMaxError, AErrorCount);

        DataSetProvider2.Data := AData2;

        DataSetProvider2.ApplyUpdate(AMaxError, AErrorCount);

        SetComplete;

    except

        SetAbort;

    end;

end;

   7、在组件管理器中的“事务列表”里也看不到事务(应该有事务的时候),怎么看?

   8、Com+的两大研究:事务和 pooling

   9、做一个提交用的COM+对象和一个协调用的COM+对象。

   10、建议:多个DLL在一个包,一个DLL中的COM公用一个ADOCONNECTION

   11、问题:我已经在Transactional Data Module的Pooled属性里面设置了True了,但是在Win2000的组件服务管理的“组件属性”的“激活”一栏里面,仍然无法打开“启用对象共用”的选项 --->您可以将线程模式设置为tmNeutral或者tmBoth都可以。

阅读更多
个人分类: Delphi COM编程技术
想对作者说点什么? 我来说一句

Delphi.net中调用COM/COM+

zgqtxwd zgqtxwd

2008-04-30 12:25:00

阅读数:181

Delphi编写COM+组件范例

2009年08月13日 747KB 下载

COM+组件安装文件

2012年10月12日 285KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭