我有一个需要使用 COM 调用的过程,它在 C# 中声明如下:
public string ali(int[] num)
{
string r;
r ="";
foreach (int a in num)
{
r = r + Convert.ToString(a) + ";";
}
return r;
}
导入的 TypeLibrary 中的 Delphi 声明为:
function TSqr.ali(num: PSafeArray): WideString;
begin
Result := DefaultInterface.ali(num);
end;
我有这段代码可以将整数数组转换为 PSafeArray:
Function ArrayToSafeArray2 (DataArray: array of integer):PSafeArray;
var
SafeArray: PSafeArray;
InDataLength,i: Integer;
vaInMatrix: Variant;
begin
InDataLength := Length(DataArray);
vaInMatrix := VarArrayCreate([Low(DataArray), High(DataArray)], varInteger);
for i:= Low(DataArray) to High(DataArray) do
begin
vaInMatrix[I] := DataArray[I];
end;
SafeArray := PSafeArray(TVarData(vaInMatrix).VArray);
Result := SafeArray;
VarClear(vaInMatrix);
SafeArrayDestroy(SafeArray);
end;
这段代码调用我的 COM 函数
var
a:array of integer;
Answer:String;
begin
SetLength(a,3);
a[0] := 1;
a[1] := 2;
a[2] := 2;
Answer := Sqr1.ali(ArrayToSafeArray2(a));
ShowMessage(Answer);
end;
但错误发生:
“ EOLeExeption 带有消息 'SafeArray of rank 0 已被传递给期望 rank 1 数组的方法' ...”
我应该怎么做?