delphi – 如何将PChar从DLL函数返回到VB6应用程序而不会有崩溃

发布时间：2020-12-15 04:21:40 所属栏目：大数据来源：网络整理

导读：我必须创建一个VB6应用程序使用的DLL.这个DLL必须提供几个函数,其中一些函数必须返回字符串. 这是VB6声明： Declare Function MyProc Lib "mylib.dll" (ByVal Param As String) As String 这是mylib.dll中的Delphi实现存根： function MyProc(AParam: PChar)

我必须创建一个VB6应用程序使用的DLL.这个DLL必须提供几个函数,其中一些函数必须返回字符串.

这是VB6声明：

Declare Function MyProc Lib "mylib.dll" (ByVal Param As String) As String

这是mylib.dll中的Delphi实现存根：

function MyProc(AParam: PChar): PChar; stdcall;
var
  ReturnValue: string;
begin
  ReturnValue := GetReturnValue(AParam);
  Result := ???;
end;

我有什么要回到这里？谁将释放回归PChar字符串的记忆？

编辑：我问的是Delphi 2005(PChar = PAnsiChar)

解决方法

你需要制作一个BSTR. VB6字符串实际上是BSTR.在Delphi端调用SysAllocString()并将BSTR返回到VB6端. VB6端必须调用SysFreeString()来释放字符串 – 它会自动执行.

如果PChar对应于ANSI字符串(您的情况),您必须手动将其转换为Unicode – 使用MultiByteToWideChar().有关如何更好地一起使用SysAllocStringLen()和MultiByteToWideChar()的信息,请参见this answer.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!