arrays - 如何在Delphi中使用变体数组

Question

我有两个 Delphi7 程序:一个 COM 自动化服务器(EXE)和另一个使用自动化服务器的程序。

我需要将一组字节从一个程序传递到另一个程序。

经过一番搜索，我发现使用变体数组是可行的方法(如果您知道更好的方法，请纠正我)。

我的问题是:如何在一个程序中创建变体数组，然后如何在另一个程序中读取其值？

我了解 VarArrayCreate 和 VarArrayLowBound/VarArrayHighBound，但我不确定如何正确执行此操作。

谢谢!

Answer 1

你可以这样创建它:

首先声明

var
  VarArray: Variant;
  Value: Variant;

然后创建:

VarArray := VarArrayCreate([0, Length - 1], varVariant);

或者你也可以

VarArray := VarArrayCreate([0, Length - 1], varInteger);

取决于数据的类型。然后你像这样迭代:

i := VarArrayLowBound(VarArray, 1);
HighBound := VarArrayHighBound(VarArray, 1);

while i <= HighBound do
begin
  Value := VarArray[i];
  ... do something ...
  Inc(i);
end;

最后，当您不再需要数组时，将其清除。编辑:(这是可选的，请参阅 In Delphi 2009 do I need to free variant arrays? )

VarClear(VarArray);

这就是全部内容了。另一个例子看官方Embracadero Help

编辑:

该数组只能创建一次。然后就像上面的例子一样使用它。