求助：ActiveObjectServer在ASP中调用遇到的问题(100分)

我用DELPHI编写了一个Active Server Object，编译成一个DLL文件。在DELPHI中调用都是正常的，但是在ASP中调用时，报错：
Microsoft VBScript 运行时错误 错误 '800a01ca'
变量使用了一个 VBScript 中不支持的 Automation 类型: 'sendMsgTo'
附：
DELPHI中的函数声明如下：
function sendMsgTo(addr: PChar
port, groupCode: Integer
id, pwd, mobile,content: PChar): Integer
safecall;
begin
....
end
ASP中调用如下:
Dim DelphiASPObj
Set DelphiASPObj = Server.CreateObject("SMSender.MessageSender")
DelphiASPObj.sendMsgTo "xx.xx.xx.xx", 1021, 1, "xxx", "xxx", "12345678901", "HELLO KITTY!"

用WideString

你要在type_lib中按类型定义,最好是widestring;
asp中调用方法要加 call

多人接受答案了。