请问我的dll为什么用asp调用的时候出错?(50分)

  • 主题发起人 主题发起人 道长
  • 开始时间 开始时间

道长

Unregistered / Unconfirmed
GUEST, unregistred user!
我想把ms Agent封装到dll中然后客户端通过ie访问asp文件来调用agent
,可是编译之后出现不支持interface的信息,不知怎么回事,请高手指教!!

源代码待会贴上来
 
下面是我的源代码:

unit uMyAgent;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
ComObj, ActiveX, MyAgentServer_TLB,AgentObjects_TLB, StdVcl;

type
TMyAgentObj = class(TAutoObject, IMyAgentObj)
private
My_Agent:IagentCtlEx;
protected
procedure LoadIt
safecall;
procedure OnStartPage(const MyAgent: IUnknown)
safecall;
{ Protected declarations }
end;

implementation

uses ComServ;

procedure TMyAgentObj.LoadIt;
var
Peedy: IagentCtlCharacter;
Request: IagentCtlRequest;
begin
request:=my_agent.Characters.Load('peedy','offcat.acs');
peedy:=my_agent.Characters.Character('peedy');
peedy.Show(0);
end;

procedure TMyAgentObj.OnStartPage(const MyAgent: IUnknown);
begin
My_Agent:=MyAgent as IagentCtlEx;
end;

initialization
TAutoObjectFactory.Create(ComServer, TMyAgentObj, Class_MyAgentObj,
ciMultiInstance, tmApartment);
end.
 
客户端也需要ms Agent组件
 
总觉得这段代码有些怪,看不懂
 
ohyee,你可以具体的说说吗??
 
procedure OnStartPage(const MyAgent: IUnknown)
safecall;
^^^^^^^^是否是这个问题?
在脚本中调用的时候Iunknow接口是不被支持的,只有IDispatch接口才能被支持。
 
谁能够给出用delphi开发asp组件的比较好的例子,50+50分就是谁的了
 
多人接受答案了。
 
后退
顶部