德尔福的Sharemem - 不需要时

Question

我知道当我strings在Delphi APP和Delphi DLL之间共享时,我需要Sharemem在app和dll项目源中添加use子句中的第一个单元.

但是,如果dll导出的函数只接受Pchars但在我使用的一些dll方法中,我strings应该使用sharemem吗？让我展示一个示例代码:

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

exports
  ShowMyCustomMessage;

在那个简单无用的情况下,dll接受一个Pchar但在导出的方法内部,dll创建一个stringvar.我ShareMem也应该添加吗？

怎么样WideString？传递WideString参数是否需要使用Sharemem？

Answer 1

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

在您给出的示例中,不需要使用Sharemem.该内存PChar由被调用者分配,并且不被被调用者释放.被调用者中的字符串在被调用者中被分配和释放.

以下是您需要Sharemem的示例:

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

这里字符串的内存在被调用者中分配,但将由调用者释放.

a的情况WideString非常特殊.它WideString是COM BSTR类型的包装器.它使用共享的COM分配器分配和释放.因此它不使用Delphi分配器,您可以安全地WideString在不使用Sharemem的情况下在模块之间传递.