用DELPHI建立多线程COM服务器

用DELPHI建立多线程COM服务器
 
 
摘要：本文探讨了多线程COM服务器的原理，然后详细介绍利用DELPHI建立多线程COM服务器的方法和步骤，并给出了相应测试实例。
关键词：组件对象模型（COM）、单线程单元模式（STA）、应用程序服务器
 
本文从实践的角度，详细介绍了在delphi中建立多线程Apartment COM服务器的方法和步骤。有关线程和COM技术的详细内容，请读者参考有关书籍。为便于理解，这里对本文涉及的内容作简要说明：
客户端应用程序A
客户端应用程序B
应用程序服务器EXE
Apartment
Apartment

 

文中的范例是这样的，假设有一个应用程序服务器，它提供一个方法FooStatus，这个方法需要花3秒的时间来完成它的工作。现在有两个以上客户端应用程序来调用它（本文取两个），且每个客户端又以不同的方式均要调用这个方法3次。那么，总共需要化多少时间完成？如何使执行的效率最好？这是在开发一个多层应用系统时，程序员必须考虑的问题，应该说最理想的状态是总共所化时间在3至5秒之间（假设两个客户端开始执行的时间间隔足够短）。执行情况如图1所示。　
图1 客户端应用程序与应用程序服务器建立相对的线程服务对方
也就是说，只要我们能开发出多线程的客户端应用程序和多线程的应用程序服务器，就能实现这种执行效率良好的应用系统。为此必须首先保证应用程序服务器是多线程Apartment模式,这就是本文所要解决的问题。
现在就让我们着手来创建这个系统，开始奇妙的COM之旅。为了调试和测试的方便，笔者在单机上实现并作了相应的测试。在硬盘上建立一个文件夹，取名为statest，在该文件夹内再建立两个子文件夹，分别取名为staserver和staclient。staserver中存放服务端应用程序，staclient中存放客户端应用程序。
一、建立com服务端
1、建立服务端应用程序
首先在Delphi的集成环境中建立服务端应用程序。点击File|New菜单下的New Application选项建立Delphi应用程序。此时Delphi会产生一个空白的窗体以及初始化程序单元，点击File|Save All，在出现的保存对话框中设置好保存路径,即将文件存放在staserver目录中，并将程序单元文件以serverunit1为名保存，类似地将项目文件以staserverpro为名保存。
为更形象地看到客户程序访问服务器的情况，设计应用程序服务器主窗体如图2示，在主窗体上放置一个Tlable标签，将其Caption属性设为“Automation应用程序服务器”，而将主窗体Caption属性设为“Automation Server”。
图2 Automation服务器窗体
2、建立automation对象
点击File|New菜单下的other选项，弹出New Items窗口，选择Activex页，选中Automation Object选项，点击OK按钮。当Delphi显示Automation Object Wizard对话框时，请按图3所示设置信息，将CoClass Name设为staobject，线程模型设定为Apartment，而且允许有多个客户端应用程序同时使用它，点击OK按钮。
图3 Atuomation 对象设置对话框
此时Delph会自动产生Type Library编辑器，我们在其中加入一个方法FooStatus，请按如图4所示顺序进行设置。
图4 接口方法的声明
这个方法主要实现在接受客户的调用后，延迟若干秒后回传一个结果字符串。在这个回传的字符串中会叙述是那一个应用服务器的线程服务了客户端对于FooStatus的调用，它的起始时间及结束时间。FooStatus的程序代码如下：
procedure Tstaobject.FooStatus(delay: SYSINT; var sResult: WideString);
var
   istarttime,iendtime:integer;  //开始时间，结束时间
begin
    randomize;
    istarttime:=g