delphi调用c写的动态库,怎么调用这个函数,谢谢
原来的声明是
__int16 __stdcall command(HANDLE idComDev,unsigned char slen,
unsigned char * sendbuffer,unsigned char *rlen,
unsigned char * databuffer,unsigned char timeout,
unsigned char FG);
我这样用
Function command(ICDev: longint; slen: smallint; sendbuffer, rlen, databuffer: pchar; timeout,
FG: smallint): smallint; stdcall;
far; external 'aaa.dll' name 'command';
程序中应用:
var
StrAPDU:string;
rlen, rbuff: pchar;
st: smallint;
icdev: longint;
begin
Try
Getmem(rbuff, 255);
Getmem(rlen, 255);
......
st := command(icdev, length(StrAPDU) Div 2, pchar(StrAPDU), rlen, rbuff, 7, 40);
Finally
freemem(rlen);
freemem(rbuff);
End;
但是我总是不能在rbuff获得我想要得数据,这是我哪边出错了呢?