Исправление ошибки передачи PSafeArray из Delphi XE2 в C# COM-библиотеку: решение проблемы с диапазоном элементов

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

Исправление ошибки передачи PSafeArray из Delphi XE2 в C# COM-библиотеку

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

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

При вызове метода C# COM-библиотеки, который ожидает массив с диапазоном 1 (один элемент), из Delphi XE2 передается PSafeArray с диапазоном 65262. Это приводит к ошибке при передаче данных между языками.

Пример кода с ошибкой из Delphi XE2

function GetObjects: PSafeArray;
var
  aObjects: Variant;
begin
  aObjects := VarArrayCreate([0, 2], varVariant);
  aObjects[0] := ADOConnection.ConnectionObject;
  aObjects[1] := CashConnection;
  aObjects[2] := Self as IDispatch;
  Result := PSafeArray(TVarData(aObjects).VArray);
end;

Ожидаемый тип параметра в C# COM-библиотеке

void Execute(string Namespace, string ClassName, string MethodName, Object[] Objects);

Генерализованный код тиблицы интерфейсов (RIDL)

HRESULT _stdcall Execute(
    [in] BSTR Namespace,
    [in] BSTR ClassName,
    [in] BSTR MethodName,
    [in] SAFEARRAY(VARIANT) Objects
);

Подход к решению проблемы

В качестве возможного решения проблемы упоминается использование SafeArrayCreate. Однако, в альтернативном ответе приведен рабочий пример кода на Delphi, который корректно создает PSafeArray:

function GetObjects: PSafeArray;
var
  aBounds: array [0..0] of TSafeArrayBound;
  aObjects: PSafeArray;
  aIndex: Integer;
  aConnectionObject, aCashConnection, aScript: OleVariant;
begin
  aBounds[0].lLbound := 0;
  aBounds[0].cElements := 3;
  aObjects := SafeArrayCreate(varVariant, 1, @aBounds);
  aIndex := 0;
  aConnectionObject := ADOConnection.ConnectionObject;
  OleCheck(SafeArrayPutElement(aObjects, aIndex, aConnectionObject));
  aIndex := 1;
  aCashConnection := CashConnection;
  OleCheck(SafeArrayPutElement(aObjects, aIndex, aCashConnection));
  aIndex := 2;
  aScript := Self as IDispatch;
  OleCheck(SafeArrayPutElement(aObjects, aIndex, aScript));
  Result := aObjects;
end;

Использование функций SafeArrayCreate и SafeArrayPutElement позволяет корректно инициализировать и заполнить массив, который затем можно передать в C# COM-библиотеку без ошибок.

Заключение

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

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

При работе с COM-библиотеками в Delphi XE2 и C# необходимо корректно обращаться с PSafeArray для предотвращения ошибок при передаче массивов.

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

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

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