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

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

导读：SUBJ.我想用字符串而不是PChar,因为这样可以节省很多东西,但如果我这样做的话 procedure SomeExternalProc(s: string); external SOMEDLL_DLL; 然后使用非共享内存管理器在其他项目中实现它： library SeparateDll;procedure SomeExternalProc(s: string);be

SUBJ.我想用字符串而不是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;

解决方法

这可能会奏效,只要您只使用在相同版本的Delphi中编译的代码中的DLL.已知字符串的内部格式会在不同版本之间发生变化,并且您无法保证它不会再次更改.

如果你想避免在任何地方使用它,请尝试包装函数,如下所示：

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

然后在你的代码中,你调用MyExternalProc而不是SomeExternalProc,每个人都很高兴.

（编辑：李大同）

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