我有一个dll，里面有个函数

zhaoshanmin1981 2011-12-15 03:22:36

我有一个dll，里面有个函数
int _stdcall Read(char CodeNum,char* Res,int* Status,int WaitTime=500);

现在想在delphi进行引用，声明语法如下，不知道对不对？

Function Read (CodeNum :longint; var Res:string; var Status:longint; WaitTime:longint):longint; stdcall; external 'XXX.dll';

res是该函数返回的字符串类型的结果，delphi中如何获取呢？

...全文

129 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhaoshanmin1981 2011-12-15

打赏
举报

谢谢你回复。
我要读取的是res的返回内容。是不是说地址没分配啊？所以导致错误

kaikai_kk 2011-12-15

打赏
举报

Function Read(CodeNum:char;Res:Pchar;Status:PInteger;Const WaitTime:Integer=500):Integer;stdcall external 'xxx.dll'

调用,WaitTime有默认值，可以不传值

var

  s:char;

  i:PInteger;

  j,k:Integer;

begin

  s:='A';

  j:=100;

  i:=@j

  P:=stralloc(1024);

  try

  k:=Read(s,P,i);  

    {showmessage(Inttostr(k));showmessage(P);}

  finally

    strdispose(P);

  end;

End;