导入接口如下:
ITCardClient = interface(IDispatch)
['{BFDE4B00-A404-4A0A-8386-BAFE233D7124}']
procedure connect(var server_addr: shortint; port: Integer; var user_name: shortint;
var password: shortint); safecall;
function pay(systemID: Integer; var cardNO: Shortint; money: Integer; var billNO: Shortint): Integer; safecall;
end;我调用的connect方法,server_addr是服务器的ip地址,请我该怎么传
ITCardClient = interface(IDispatch)
['{BFDE4B00-A404-4A0A-8386-BAFE233D7124}']
procedure connect(var server_addr: shortint; port: Integer; var user_name: shortint;
var password: shortint); safecall;
function pay(systemID: Integer; var cardNO: Shortint; money: Integer; var billNO: Shortint): Integer; safecall;
end;我调用的connect方法,server_addr是服务器的ip地址,请我该怎么传
TITCardClient=class(TInterfacedObject,,ITCardClient)
//再引用一下
....
...
end;
var password: shortint要看你com怎么写的了, 不知这个声明是你自己写得还是自动生成的?
shortint 是两字节的吧
var server_addr: shortint 实际就是pwidechar 一个shortint 的数组,shortint 就是widechar
我建议你直接把申明改成 server_addr:widestring