C# 中的 Delphi DLL - var 数组作为参数

# 使用C#中的Delphi DLL和Var数组作为参数

delphi
library VarArrayExample;
uses
  SysUtils,
  Classes;
{$R *.res}
procedure ProcessVarArray(vararr: array of Variant); stdcall;
var
  i: Integer;
begin
  // 处理Var数组的逻辑
  for i := Low(vararr) to High(vararr) do
    Writeln(vararr[i]);
end;
exports
  ProcessVarArray;
begin
end.

csharp
using System;
using System.Runtime.InteropServices;
class Program
{
    // 导入Delphi DLL中的函数
    [DllImport("VarArrayExample.dll", CallingConvention = CallingConvention.StdCall)]
    public static extern void ProcessVarArray([MarshalAs(UnmanagedType.SafeArray, SafeArraySubType = VarEnum.VT_VARIANT)] ref object[] vararr);
    static void Main()
    {
        // 创建Var数组
        object[] myVarArray = { "Item 1", 2, 3.14, true };
        // 调用Delphi DLL中的函数
        ProcessVarArray(ref myVarArray);
    }
}