Power Builder 调用 Delphi 写的COM服务出错!(100分)

  • 主题发起人 主题发起人 pizilai
  • 开始时间 开始时间
P

pizilai

Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi COM接口:
ILBAS_Transfer = interface(IDispatch)
['{23CE49B1-DBBD-4A77-A197-22D780BC2640}']
function uLBASTransfer(ls_raddress: PChar;
ls_username: PChar;
ls_password: PChar;
ls_localpath: PChar;
ls_tmp: PChar;
ls_bak: PChar;
ls_setup: PChar;
ls_proxy: PChar;
ls_proxyport: Integer;
ls_effective: Integer;
ls_dfname: PChar;
ls_mode: Integer): Integer;
safecall;
end;

PB调用过程:
OleObject oEc
OEc = Create OleObject
oEc.ConnectToNewObject("LBAS_Transfer_COM.LBAS_Transfer")
result = oEc.uLBASTransfer(ls_raddress, ls_username, ls_password, ls_localpath, &
ls_tmp, ls_bak, ls_setup, ls_proxy, integer(ls_proxyport), &
integer(ls_effective), ls_dfname, integer(ls_mode))
Destroy oEc
当连接oEc.ConnectToNewObject("LBAS_Transfer_COM.LBAS_Transfer")
时通过了,
但是调用其方法时提示:
"Error calling external object function uLBASTransfer"
请高手帮忙,谢谢!
 
http://www.codesearch.com.cn
中国最大得源代码搜索引擎
 
后退
顶部