4

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 ...」

私は何をすべきですか？

4

2 に答える 2

4

呼び出し元が SafeArray を使用する前に、変換ルーチンが SafeArray を破棄しています。Delphi 配列とは異なり、COM 配列は参照カウントされません。COM プロシージャに渡すまで SafeArray を破棄しないでください。

function ArrayToSafeArray2 (DataArray: array of integer): Variant;
var
  i: Integer;
begin
  Result := VarArrayCreate([Low(DataArray), High(DataArray)], varInteger);
  for i:= Low(DataArray) to High(DataArray) do
  begin
    Result[I] := DataArray[I];
  end;
end;

.

var
  a:array of integer;
  v: Variant;
  Answer:String;
begin
  SetLength(a,3);

  a[0] := 1;
  a[1] := 2;
  a[2] := 2;

  v := ArrayToSafeArray2(a);

  Answer := Sqr1.ali(TVarData(v).VArray);
  ShowMessage(Answer);
end;
于 2012-08-21T05:11:08.550 に答える
0

VarUtils ユニットにはSafeArrayCreate関数があります。SafeArrayDestroy を呼び出すことを忘れないでください (できれば try/finally セクションで)。

于 2012-08-21T09:42:44.843 に答える