gpt4 book ai didi

delphi - 如何解释从 VBscript 传递到 Delphi COM 服务器应用程序的数组

转载 作者:行者123 更新时间:2023-12-03 15:49:23 25 4
gpt4 key购买 nike

我试图将字节数组从 VBscript 传递到我的 Windows Delphi 应用程序,但似乎找不到正确的语法来解释传递的数据。

要求相当简单,如下面的 VBscript 片段所示

Dim inst,arr(5)

Sub Main
set inst=instruments.Find("EP1")
arr(0) = 0
arr(1) = 1
arr(2) = 2
arr(3) = 3
arr(4) = 4
inst.writebytes arr,5
end Sub

我可以让服务器接受脚本传递的 olevariant,但数据似乎乱码,我的示例服务器代码如下所示,基于 Stackoverflow 问题 How to use variant arrays in Delphi

procedure TInstrument.WriteBytes(Data: OleVariant; Length: Integer);
var i,n:integer; Pdat:Pbyte; Adata:PvarArray;
begin
if VarIsArray(data) then
begin
n:=TVarData(Data).VArray^.Bounds[0].ElementCount;
Adata:= VarArrayLock(Data);
Getmem(Pdat,length);
try
for i:=0 to length-1 do
Pdat[i]:=integerArray(Adata.data^)[i];
Finstrument.WriteBytes(Pdat,Length);
finally
freemem(Pdat)
end;
end;
end;

因此,我们的想法是接受脚本传递的整数,将其转换为本地数据表示形式(字节数组),然后将其传递给我的函数以使用数据。

我尝试了几种不同的数据类型和方法,试图从变体中获取一些无乱码的数据,但均无济于事。

从传递的变量中提取数组数据的正确方法是什么?

此外,TVarData(Data).VArray^.Bounds[0].ElementCount 的值为零,为什么会这样?

最佳答案

在 VBScript 中创建的数组是

  1. 零基础
  2. 无类型
  3. 以上限声明(不是您假设的大小;声明为 Dim arr(5) 的数组大小为 6)
  4. 在其中包含维度信息(因此您无需将其与数组一起传递)

当在 COM 中使用时,它们作为 varVariant 类型的变体数组传递(正如 Ondrej Kelle 在他的评论中指出的那样)。要在您的方法中处理这样的数组,您必须断言:

  1. 该值是一维数组
  2. 每个元素都可以转换为字节

您可以为此编写辅助例程:

function ToBytes(const Data: Variant): TBytes;
var
Index, LowBound, HighBound: Integer;
ArrayData: Pointer;
begin
if not VarIsArray(Data) then
raise EArgumentException.Create('Variant array expected.');
if VarArrayDimCount(Data) <> 1 then
raise EArgumentException.Create('Single dimensional variant array expected.');
LowBound := VarArrayLowBound(Data, 1);
HighBound := VarArrayHighBound(Data, 1);
SetLength(Result, HighBound - LowBound + 1);
if TVarData(Data).VType = varArray or varByte then
begin
ArrayData := VarArrayLock(Data);
try
Move(ArrayData^, Result[0], Length(Result));
finally
VarArrayUnlock(Data);
end;
end
else
begin
for Index := LowBound to HighBound do
Result[Index - LowBound] := Data[Index];
end;
end;
在处理大型数组时,例程中的 for 循环会非常慢,因此对使用 Move 将字节复制到的特殊情况(字节的变体数组)进行了优化结果。但对于 VBScript 数组来说,这种情况永远不会发生。您可以考虑使用 VB.Net 或 PowerShell。

使用这样的例程有一个缺点,即在内存中保留数组的 2 个实例 - 作为变体数组和字节数组。将其应用到您的用例时,请将其用作指南。

关于delphi - 如何解释从 VBscript 传递到 Delphi COM 服务器应用程序的数组,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/59731128/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com