Delphi的Sharemem-不需要时

我知道，当我在Delphi APP和Delphi DLL之间共享strings时，我需要在apps和dll项目源代码中都添加Sharemem作为Uses子句中的第一个单元。

但是，如果dll导出功能仅接受Pchars但在某些dll方法内部，我使用strings，我也应该使用sharemem吗？让我显示一个示例代码:

procedure ShowMyCustomMessage(aMessage : Pchar);
var
  vUselessString : string;
begin
  vUselessString := aMessage;
  ShowMessage(vUselessString);
end;

exports
  ShowMyCustomMessage;

在这种简单且无用的情况下，dll接受Pchar，但是在导出的方法内部，dll创建了string var。我也应该添加ShareMem吗？

那WideString呢？传递WideString参数是否需要使用Sharemem吗？

最佳答案

仅当在一个模块(即DLL/EXE)中分配了内存并在另一个模块中释放了内存时，才需要使用Sharemem。当您在模块之间传递string时，通常会发生这种情况。

在您提供的示例中，无需使用Sharemem。 PChar的内存由被调用方分配，而被调用方不释放。被调用方中的字符串在被调用方中分配和释放。

这是您需要Sharemem的示例:

function GetString: string;
begin
  Result := 'hello';
end;

在这里，字符串的内存是在被调用方中分配的，但将由调用方将其释放。
WideString的情况非常特殊。 WideString是COM BSTR类型的包装。它使用共享的COM分配器进行分配和取消分配。因此，它不使用Delphi分配器，您可以安全地在模块之间传递WideString而不使用Sharemem。

关于Delphi的Sharemem-不需要时，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/8414972/