跨内存管理器边界传递 Delphi const 字符串参数是否安全？

Question

主题。我想使用字符串而不是 PChar，因为这样可以节省我很多的演员，但如果我只是这样做

procedure SomeExternalProc(s: string); external SOMEDLL_DLL;

然后在其他项目中使用非共享内存管理器实现它：

library SeparateDll;
procedure SomeExternalProc(s: string);
begin
  //a bla bla bla
  //code here code here
end;

我（正式）不保证 Delphi 不会出于任何原因决定更改字符串、修改其引用计数器、复制或唯一它，或其他任何事情。例如

var InternalString: string;

procedure SomeExternalProc(s: string);
begin
  InternalString := s;
end;

Delphi 递增 refcounter 并复制一个指针，就是这样。我希望 Delphi 复制数据。出于这个原因，将参数声明为“const”是否使其安全？如果没有，有没有办法做到这一点？将参数声明为 PChar 似乎不是一个解决方案，因为您每次都需要强制转换它：

procedure SomeExternalProc(s: Pchar); forward;
procedure LocalProc;
var local_s: string;
begin
  SomeExternalProc(local_s); //<<--- incompatible types: 'string' and 'PAnsiChar'
end;

Answer 1

只是添加一个事实：

Delphi 允许您简单地将 PChar 分配给字符串，因此在 DLL 端您不需要任何类型转换：

function MyDllFunction(_s: PChar): integer;
var
  s: string;
begin
  s := _s; // implicit conversion to string

  // now work with s instead of the _s parameter
end;

这也适用于将 PChar 作为参数传递给需要（按值）字符串的函数。

Answer 2

我建议使用其他内存管理器，例如 RecyclerMM 或 FastMM。它们不需要任何外部共享的 MM dll，并允许您安全地将字符串传递给 dll。作为奖励，您可能会在整个应用程序中获得不错的性能提升。

FastMM 在 Delphi 2006 及更高版本中用作默认内存管理器。它也是搜索内存泄漏的好工具。

Answer 3

如果应用程序和 DLL 都是在同一个 Delphi 版本中编写的，则只需使用共享内存管理器（更多详细信息here）。

如果一侧是用不同的语言编写的，那么除了使用 PChar 或 WideString 之外别无他法（WideString 由 COM 内存管理器管理）。

或者你可以写一个包装函数：

procedure MyExternalProc(const s: string);
begin
  SomeExternalProc(PChar(s));
end;

Answer 4

这可能会起作用，只要您只使用在相同版本的 Delphi 中编译的代码中的 DLL。 string 的内部格式在不同版本之间会发生变化，您无法正式保证它不会再次发生变化。

如果您想避免在使用它的任何地方强制转换，请尝试包装函数，如下所示：

procedure SomeExternalProc(s: Pchar); external dllname;
procedure MyExternalProc(s: string); inline;
begin
  SomeExternalProc(PChar(local_s));
end;

然后在您的代码中，您调用MyExternalProc 而不是SomeExternalProc，每个人都很高兴。