请问一个com的问题!(100分)

  • 主题发起人 主题发起人 shang_yan
  • 开始时间 开始时间
S

shang_yan

Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个进程外的自动化服务器程序,然后我又做了一个调用它的客户程序,我想在这个客户
程序关闭后而自动化服务器程序却不关闭。
有人说要用到addref,但我不知要如何用,请告诉我。下面是部份源代码:

unit geturl_com;

interface

uses
ComObj, ActiveX, GetUrl_TLB, StdVcl,mainform;

type
TGetUrlobj = class(TAutoObject, IGetUrlobj)
protected
procedure GetUrl; safecall;
{ Protected declarations }
end;

implementation

uses ComServ;

procedure TGetUrlobj.GetUrl;
begin
form1.GetUrl;
end;

initialization
TAutoObjectFactory.Create(ComServer, TGetUrlobj, Class_GetUrlobj,
ciSingleInstance, tmApartment);
end.
 
由一个取巧的办法,在服务端的机器里使用一个客户程序,并且不退出也不执行任何程序
 
我实际是要做一个象NetAnts一样的针对IE右键编程的程序。
至于添加如何给IE右键添加菜单项,我已弄清楚。知道必须写一个vbscript脚本,然后指向
一个dll文件.我不知道如何写这个dll文件.特别是不知道在这个dll中,如何启动主文件.并
使其在脚本文件运行完之后主文件不自动退出.
如果不采取特别措施,它是会自动退出的. netants做到了,不知它是如何实现的.
 
请高手赐招
 
不明白你是怎么作的,用delphi写com,
根本不需要和Iunknow接口(包括addre发)打交道。
 
后退
顶部