Delphi调用COM可见.NET DLL时如何正确提取打印PSafeArray数组数据

PSafeArray 正确提取与打印的实现流程 #

• 前置依赖：必须在Delphi的uses列表中引入ActiveX单元，该单元封装了所有SafeArray操作的标准API，避免直接手动解析SafeArray结构导致的内存错误。
• 操作逻辑必须严格遵循COM SafeArray的标准调用顺序，禁止直接未锁定就读取内存：
  1. 从COM接口实例中获取目标PSafeArray指针，先做空值校验
  2. 调用SafeArrayGetLBound、SafeArrayGetUBound获取目标维度的索引上下界（.NET导出的单维数组固定为第一维度，入参传1即可）
  3. 调用SafeArrayLock锁定数组内存，拿到数组的基地址
  4. 严格按照C# int对应的32位有符号整数（Delphi中为固定长度的LongInt）遍历读取每个元素
  5. 读取完成后必须配对调用SafeArrayUnlock释放数组锁
• 可参考的最小可运行代码实现：

// 前置uses: SysUtils, ActiveX, ComObj, TypeLibName_TLB
procedure PrintClass2FirstArray(const TargetClass2: Class2);
var
  SafeArr: PSafeArray;
  LBound, UBound, Idx: Integer;
  pArrBase: PLongInt;
begin
  SafeArr := TargetClass2.array_1_class2;
  if not Assigned(SafeArr) then
  begin
    Writeln('目标数组为空');
    Exit;
  end;

  // 获取单维数组的上下界
  SafeArrayGetLBound(SafeArr, 1, LBound);
  SafeArrayGetUBound(SafeArr, 1, UBound);

  OleCheck(SafeArrayLock(SafeArr));
  try
    pArrBase := PLongInt(SafeArr^.pvData);
    Writeln('array_1_class2 元素值:');
    for Idx := LBound to UBound do
      Writeln(pArrBase[Idx]);
  finally
    SafeArrayUnlock(SafeArr);
  end;
end;

// 程序入口示例
procedure Main;
var
  Class4Instance: Class4;
  ResultRootObj: Class1;
begin
  // 控制台程序必须手动初始化COM环境
  CoInitialize(nil);
  try
    Class4Instance := CoClass4.Create;
    ResultRootObj := Class4Instance.LoadJson('目标JSON文件路径');
    PrintClass2FirstArray(ResultRootObj.Class2);
    // 显式释放COM引用
    ResultRootObj := nil;
    Class4Instance := nil;
  finally
    CoUninitialize;
  end;
end;

• 注意：控制台程序没有内置的COM初始化逻辑，必须在程序入口调用CoInitialize(nil)初始化当前线程的COM apartment环境，程序退出前对应调用CoUninitialize，否则COM对象返回的内存会出现映射错误。

当前异常的排查方向 #

打印值全为0的排查点 #

• 未执行SafeArray锁定操作：如果直接读取SafeArr^.pvData而不调用SafeArrayLock，COM运行时可能尚未将数组内存提交到当前线程的地址空间，读到的全是无效的0值。
• 数据长度匹配错误：64位Delphi中默认的Integer为64位长度，如果直接用PInteger去读取C#侧32位的int数组，会出现内存读取错位，读出来的值和实际值完全不符。必须使用固定32位长度的LongInt类型匹配C#的int定义，否则会出现跨内存边界读取的问题。
• COM环境初始化缺失：控制台程序没有初始化COM环境时，COM对象的返回值（包括数组）会指向无效的内存区域，读取结果全为0。
• 类型库导入的数组子类型不匹配：如果C#侧没有通过封送特性明确指定数组的元素类型，Delphi导入类型库时可能将int数组错误映射为其他子类型，导致内存布局识别错误。建议在C#侧的数组字段上添加[MarshalAs(UnmanagedType.SafeArray, SafeArraySubType=VarInteger)]特性，确保封送类型正确。

程序卡在ReadLn无法退出的排查点 #

• COM接口引用未释放：.NET导出的COM对象采用引用计数管理，Delphi侧调用完成后如果没有将接口变量显式置为nil，会导致CLR运行时一直驻留进程内，主线程虽然走到ReadLn，但后台CLR线程阻塞导致控制台输入无响应。
• SafeArray锁未配对释放：仅调用SafeArrayLock却没有配对调用SafeArrayUnlock，会造成COM资源泄漏，导致内部句柄无法正常回收，阻塞控制台的输入事件处理。
• 控制台句柄冲突：.NET COM组件内部如果初始化了自己的控制台上下文，会与Delphi控制台的标准输入句柄产生抢占，导致ReadLn等待的输入事件无法被捕获。可以将COM组件的调用逻辑放到独立线程中执行，隔离控制台句柄的占用。

内容的提问来源于stack exchange，提问作者Joana