API函数怎么定义
各位大虾,下面的函数怎么用delphi定义
int WriteCard(int portnumber,int timeout,unsigned char* track1,int track1len,unsigned char* track2,int track2len,unsigned char* track3,int track3len)
以上是一个动态链接库的函数,在DELPHI中怎样定义此函数,怎么使用此函数?
最好能够写一个例子?谢谢!
[解决办法]
function WriteCard(portnumber, timeout: Integer; track1: PChar;
track1len: Integer; track2: PChar; track2len: Integer;
track3: PChar; track3len: Integer): Integer; far; external 'test.dll ';
---------------------------------------------
var
s: String;
track1len: Integer;
track1: array[0..999] of Char;//假设最大长度1000
begin
s := '0123456789 ';
track1len := Length(s);
Move(s[1], track1[0], track1len);
WriteCard(1, 1, @track1[0], track1len, ...)
end;
[解决办法]
什么问题？？代码贴出来
[解决办法]
-_#!
[解决办法]
up
