Delphi string 字符串如何传递给 C++ string

最新推荐文章于 2023-05-13 01:26:23 发布

dbyoung

最新推荐文章于 2023-05-13 01:26:23 发布

阅读量871

点赞数 3

分类专栏： Delphi VC

本文链接：https://blog.youkuaiyun.com/dbyoung/article/details/112646948

版权

Delphi 同时被 2 个专栏收录

32 篇文章

订阅专栏

5 篇文章

订阅专栏

本文介绍了在Delphi中如何使用C++的string类，详细解析了C++ string类的内存结构，并给出了在Delphi中创建相应内存区进行转换的实现方法。在测试环境下，该方法在Debug模式下成功，但在Release模式下遇到异常，通过调整编译选项得以解决。提供了一个GitHub链接供参考，适用于处理其他C++类的转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在 Delphi 中使用 C++ 类一直是个问题。
受刘麻子大哥的启发，有了这个问题。
在此郑重感谢刘麻子哥。

Delphi 中 string 是一段内存块。
C++ 中 string 是一个标准 C++ 类。

既然是类，那就有大小。C++ string 类大小：24字节（VS2019 中测试获取到）。
那么我们可以在 Delphi 中定义一个24字节的内存区，然后将数据填充到这个24字节的内存区中，传递给 C++，应该就可以了。
C++ 中的 string 类的内存结构：

type
  { C++ String 类内存结构 大小：24字节 }
  VCString = record
    strMem: PDWORD;    // 字符串指针
    R1, R2, R3: DWORD; // 未知
    len: DWORD;        // 字符串长度
    R4: DWORD;         // 定值 = $0000002F
  end;

Delphi string ---> C++ string 的转换函数：

{ Delphi String 转换为 C++ String }
function DelphiString2VCString(strFileName: string): VCString;
var
  vcs: AnsiString;
begin
  FillChar(Result, SizeOf(VCString), #0);   // 置空
  vcs           := AnsiString(strFileName); // 宽字节转换为短字节
  Result.strMem := @vcs[1];                 // 字符串指针
  Result.len    := Length(vcs);             // 字符串长度
  Result.R4     := $0000002F;               // 定值
end;

测试环境：Windows10 + VS2019 + Delphi XE2：
Debug 下，测试通过。
Release 下，退出时会报异常。打开编译选项：，就可以通过了。
测试源码在这里：https://github.com/dbyoung720/DString2VCString

其它 C++ 类，可以用类似方法。
记录保存一下。
有不对的地方，还请高手指点。