"Исправление ошибок при передаче SafeArray через COM в Delphi"

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

Исправление ошибок при передаче SafeArray через COM в Delphi

При работе с компонентами COM в Delphi иногда возникают ошибки, связанные с неправильной передачей массивов данных. В данной статье рассмотрим одну из таких проблем, а именно ошибку, возникающую при передаче PSafeArray в COM-процедуры. Проблема заключается в том, что при передаче массива целых чисел в функцию ali, объявленную в C#, возникает ошибка EOLeException с сообщением о том, что SafeArray нулевого ранга передается в метод, ожидающий массив первого ранга.

Описание проблемы

Исходный C# метод ali принимает массив целых чисел и возвращает строку, содержащую преобразованные значения элементов массива через разделитель ;. В Delphi этот метод импортируется следующим образом:

function TSqr.ali(num: PSafeArray): WideString;
begin
  Result := DefaultInterface.ali(num);
end;

Для преобразования массива целых чисел в PSafeArray используется функция ArrayToSafeArray2. Однако при вызове функции ali с использованием этой функции возникает ошибка:

"EOLeException with message 'SafeArray of rank 0 has been passed to method expecting an array of rank 1' ..."

Подтвержденный ответ

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

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
    Result[I] := DataArray[I];
end;

Исправленный код вызова COM-процедуры:

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;

Альтернативный ответ

Также стоит отметить, что в единице VarUtils есть функция SafeArrayCreate, которая может быть использована для создания SafeArray. Не забудьте вызвать SafeArrayDestroy (лучше всего в блоке try/finally), чтобы освободить память, используемую SafeArray, после того как оно больше не требуется.

Заключение

При работе с PSafeArray важно правильно обращаться с памятью, чтобы избежать ошибок, связанных с неправильной передачей и уничтожением объектов. Внимательное следование правилам работы с COM-объектами позволит избежать подобных проблем.

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

Описание контекста: В статье рассматривается проблема передачи SafeArray через COM в Delphi и способы её исправления, связанные с правильным управлением памятью и пониманием механизмов работы с COM-объектами.

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

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

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