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;
しかし、エラーが発生します:
「「ランク 0 の SafeArray がランク 1 の配列を期待するメソッドに渡されました」というメッセージを含む EOLeExeption ...」
私は何をすべきですか?