Question

delphi，dll中函数的char*型的输入、输出参数怎么用？如void ex(char* output,char* input);怎么传收数据

procedure ex(out:pchar ;in:pchar);stdcall; external 'x.dll';
precedure xxclick()

var
a, b :array[0..100] of char;
begin
ex(@a, @b);
end
是上面这么用吗？该怎么用呢？最好举个简单的例子，看程序最直观。我要接收传出的数据并显示看看对不对。

Answer 1

procedure A()
var
CharArray1,CharArray2: array[0..2] of char;
begin
ex(@CharArray1, @CharArray2);
end;

Answer 2

静态字串不用加地址符。就算要加也是@a[0].

Answer 3

var
astr,bstr:string;

astr:=strpas(a);
bstr:=strpas(b);

追问

还是带点说明吧，如果 input 和output 是int*呢？

追答

传地址，返回就是值了。

追问

能给个例程吗？dll中包含一个函数 void add(unsigned int* input, unsigned char* output) 函数对输入 +1 ，输出 。input传入 output 传出。 form中放个按钮 点击用showmessage输出 2，buttonclick中把输入写死为1。 要看了这个例程，我的疑问就没了。

追答

var
flag:integer;
st:string;
flag:=1;
add(@flag,@st)
得到的St就是返回