我必须创建一个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.