API函数怎么定义

[Everest]

各位大虾,下面的函数怎么用delphi定义
int WriteCard(int portnumber,int timeout,unsigned char* track1,int track1len,unsigned char* track2,int track2len,unsigned char* track3,int track3len)
以上是一个动态链接库的函数,在DELPHI中怎样定义此函数,怎么使用此函数?
最好能够写一个例子?谢谢!

[dulei115]

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;

[Everest]

老大，我试了一下怎么不行啊？

[dulei115]

什么问题？？代码贴出来

[ly_liuyang]

-_#!

[Everest]

现在行了，谢谢！

[hongqi162]

up