如何用COM封装?(50分)

  • 主题发起人 主题发起人 Link0587
  • 开始时间 开始时间
L

Link0587

Unregistered / Unconfirmed
GUEST, unregistred user!
一个客户端.exe程序,通过MIDAS服务器端dll和SQL Server连接
如何用COM封装这个客户端.exe程序,exe程序里有几个过程(比如数据查询,修改)??

[:(]
 
而客户端是远程调用服务器端所提供的function,在客户端里已经做了个Unit来声明这个远程接口。如下的一个子过程:
procedure Tmainform.BitBtnSendClick(Sender: TObject);
var
ediobj:IEDISvr;
res:string;
begin
ediobj:=(HTTPRIO1 as IEDISvr);
res:=ediobj.sendedi(editCode.Text,editID.text,editPW.text,editType.Text,memo1.Lines.Text);
showmessage(res);
end;
要是另外再建立一个单元,在单元中定义接口做输出COM,这样还可以?
 
将EXE改为建立一个自动化服务器.方法:另外定义一个单元,并在单元中将所有的你要的exe中的方法或者函数包装为接口,并在initialization生成一个相应类工厂的实例.运行这个程序就可以注册这个自动化服务器了,然后在你的客户程序中就可以象使用WORD服务器一样使用它了,这样就可以在客户中调用EXE中已经有的方法了!
 
客户端系统为win98连接到服务器,在客户端安装打包的MSI,和微软的DCOMforWin98安装包后,还是提示类注册失败。不知各位大侠有什么见地?
(用到 COM+)
 
后退
顶部