如何调用vc的com接口，急急

Question

导入接口如下：
  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地址，请我该怎么传

Answer 1

好像还需要类化,不是很懂哦
TITCardClient=class(TInterfacedObject,,ITCardClient)
//再引用一下
....
...
end;

Answer 2

这里有我以前的一个帖子，调用dll形式的com接口的方法，看看有没帮助http://topic.csdn.net/T/20040924/13/3405392.html

Answer 3

(var server_addr: shortint; port: Integer; var user_name: shortint;
                      var password: shortint要看你com怎么写的了, 不知这个声明是你自己写得还是自动生成的?
shortint  是两字节的吧
var server_addr: shortint 实际就是pwidechar 一个shortint 的数组,shortint 就是widechar
我建议你直接把申明改成  server_addr:widestring