Delphi写的DLL怎样传递字符串给VB?

Question

DLL函数返回PChar类型,VB里声名返回String,但得到的是乱码,为什么会这样?

Answer 1

VB 没有指针的概念
解决方法：
在 VB 申请 string 空间，将 string 传递到 DLL ，在 DLL 中使用 StrCopy
（BCB 中有 StrCopy 的，不知道 Delphi 有没有？）

Answer 2

通过 procedure (var xx:pchar)

Answer 3

procedure Test(xx:pchar;iSize:cardinal);
begin
  lstrncpy(xx,'test',iSize);
end;
Declare Sub Test Lib "XXX.dll"(ByRef xx As String, iSize As Long);
看看,如果不行,把ByRef改为ByVal看看