### Ошибки при передаче массива байтов из VBScript в Delphi через COM-сервер: поиск решения

Delphi , Технологии , COM и DCOM

Ошибки при передаче массива байтов из VBScript в Delphi через COM-сервер: поиск решения

При работе с COM-серверами на Delphi, разработчики могут столкнуться с различными проблемами, в том числе и с некорректной интерпретацией данных, передаваемых из VBScript. Одной из таких проблем является неверная интерпретация массивов байтов, что приводит к искажению данных при их обработке в Delphi-приложении.

Проблема

Разработчик столкнулся с задачей передачи массива байтов из VBScript в Delphi-приложение через COM-сервер. В коде VBScript создается массив целых чисел и передается в метод WriteBytes COM-сервера. Однако, при обработке данных в Delphi, массив оказывается искаженным.

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

Код метода WriteBytes в Delphi-сервере пытается преобразовать данные из OleVariant в массив байтов, но данные не интерпретируются корректно.

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;

Решение проблемы

Проблема кроется в неверном предположении о типе передаваемых данных. VBScript передает массив, состоящий из variants, а не целых чисел. Для корректной обработки такого массива необходимо использовать функции работы с variants, такие как VarArrayDimCount, VarArrayLowBound и VarArrayHighBound.

Один из пользователей предложил использовать следующий код для преобразования данных из OleVariant в массив байтов:

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;

Этот код следует адаптировать под конкретные задачи и использовать в качестве примера для написания собственной функции преобразования данных.

Заключение

При передаче массивов из VBScript в Delphi через COM-сервер важно корректно интерпретировать передаваемые данные и использовать правильные функции для работы с variants. В данном случае, ключевыми моментами являются проверка размерности массива и его элементов на возможность преобразования в байты.

Создано по материалам из источника по ссылке.

Проблема заключается в некорректной передаче и обработке массива байтов из VBScript в Delphi через COM-сервер, что требует правильного преобразования типов данных для их корректной интерпретации.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: COM и DCOM ::