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"
请高手帮忙,谢谢!
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"
请高手帮忙,谢谢!