Question

我想在C＃中使用delphi数组函数。

我的delphi代码：

   TIntegerArray = array of integer;
   function Testarray(): TIntegerArray stdcall; export;
    var
      res: TIntegerArray2;
    begin
      SetLength(res, 10);
      res[5] := 55;
      Result := res;
    end;
    exports Testarray;

C＃代码：

[DllImport("GitaTele.dll", CallingConvention = CallingConvention.StdCall)]
public static extern int[] Testarray();

告诉我错误：无法编组“返回值”：无效的托管/非托管类型组合。

Answer 1

Delphi动态数组不是有效的互操作类型。您需要让调用者分配数组，然后让被调用者填充它。

procedure PopulateArray(arr: PInteger; var len: Integer); stdcall;
var
  i: Integer;
  returnArray: TArray<Integer>;
begin
  returnArray := GetArray;
  len := Min(len, Length(returnArray));
  for i := 0 to len - 1 do
  begin
    arr^ := returnArray[i];
    inc(arr);
  end;
end;

请注意export没有意义，被忽略，为简单起见应删除。

从C＃调用代码为：

[DllImport("...", CallingConvention = CallingConvention.StdCall)]
public static extern void PopulateArray(
    [In, Out]
    [MarshalAs(UnmanagedType.LPArray, SizeParamIndex = 1)]
    int[] arr,
    ref int len
);

....

int[] arr = new int[50];
int len = arr.Length;
PopulateArray(arr, ref len);
// len now contains actual length

无法在C＃数组中返回delphi数组

1 个答案: