Passing array of string from Delphi 2 to COM Visible C# .net DLL

Question

我正在尝试从 Delphi 2.0客户端应用程序调用 COM DLL （用 C# 编写）中的方法。 我试图调用的方法的参数之一是字符串数组。 查看通过将库导入更高版本的 Delphi 创建的单元，我看到字符串数组参数定义为 PSafeArray。

此代码适用于 Delphi 2007：

  stringToEcho := VarArrayCreate([0, 0], varVariant);
  stringToEcho[0] := 'Hello World!';

  oResponse := iface.RequestResponse('EXTests', 'Echo', PSafeArray(VarArrayAsPSafeArray(stringToEcho)), 30, '', true);

此 Delphi 2 代码在调用 RequestResponse 方法时在运行时导致“参数不正确”错误：

  stringToEcho := VarArrayCreate([0, 0], varVariant);
  stringToEcho[0] := 'Hello World!';

  oResponse := iface.RequestResponse('EXTests', 'Echo', stringToEcho, 30, '', true);

显然，变体数组不是安全数组，我需要某种方式从变体数组中转换或提取 SafeArray，就像我在 Delphi 2007 示例中所做的那样。

我看过 OLE2 单元和系统单元。 我可以在 System.pas 中看到一些变体数组支持例程，但没有变体数组 <-> SafeArray 转换例程。

如何将 PSafeArray 传递给 Delphi 2 中的 COM 自动化服务器？

请注意，另一个不同点是我在 Delphi 2007 中使用早期绑定，而在 Delphi 2 中使用后期绑定。

Answer 1

谢谢大家。
我了解 Delphi 变体数组不是 SafeArray。 但它们很接近:) Delphi 的 VarArrayCreate 实际上调用了 Win32 SafeArrayCreate。

我想我需要某种从 VariantArray 中提取 SafeArray 的方法，就像我在 Delphi 2007 示例中所做的那样。 我确实尝试将 VarArrayAsPSafeArray 反向移植到 Delphi 2 但没有成功。 但是，我能够从 Delphi 2007 VarArrayRef 向后移植另一个助手 function，这实际上在 Delphi 2 的后期绑定上下文中更有用。 顺便说一句 - 我确实尝试创建一个 varOLEStr 的 VarArray，但是在调用 RequestResponse 方法时这给了我一个“类型不匹配”错误。