Передача строк между COM-объектами в Delphi: использование `char*` vs `WideString` и `BSTR`

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

Передача строк между COM-объектами в Delphi: использование char* vs WideString и BSTR

Вопрос о передаче строк между компонентами, использующими COM, является актуальным для разработчиков, работающих с Delphi и C++. В частности, возникает вопрос о возможности использования обычных строк char* вместо Unicode-строк, таких как WideString и BSTR.

Проблема

Разрабатывая приложение на Delphi и C++, с использованием компонентов COM, разработчики часто сталкиваются с тем, что обертки COM используют Unicode-строки, даже если конечный DLL работает с char*. Это создает трудности при передаче строк между объектами, так как требуется конвертация между ANSI и Unicode.

Решение

Компонентный объект модели (COM) - это технология, предназначенная для работы в среде, которая может включать сетевые операции, поэтому она не поддерживает работу с указателями напрямую. Однако, передача char* строк между COM-объектами возможна, и есть несколько способов реализации этого:

1. Использование SysAllocStringByteLen и BSTR: Функция SysAllocStringByteLen позволяет создать бинарный BSTR, который будет содержать исходные char символы без изменений. Получатель может напрямую скопировать char символы из BSTR.

2. Использование SAFEARRAY: Можно создать SAFEARRAY с элементами типа VT_UI8, в который напрямую поместить char символы. Затем этот массив можно поместить в VARIANT, если это необходимо.

3. Использование IStream: char символы можно обернуть в поток IStream, например, используя CreateStreamOnHGlobal или SHCreateMemStream, что позволит безопасно передать данные между объектами.

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

Некоторые разработчики могут предпочесть избегать использования ANSI-строк и перейти на Unicode, но если это невозможно, конвертация между ANSI и BSTR является необходимой процедурой. Это может показаться ненужной дополнительной работой, но, согласно ответам экспертов, такие конвертации не являются сложными и выполняются с помощью двух функций.

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

Таким образом, для передачи строк char* в COM можно использовать один из вышеуказанных методов. Например, для создания BSTR с исходными char символами можно использовать функцию SysAllocStringByteLen. Это позволяет передавать строки в бинарном виде, что сохраняет их исходный формат и избегает необходимости перекодировки символов.

Пример кода на Object Pascal (Delphi)

uses
  SysUtils, OLEAuto;

// Функция для создания BSTR из char* строки
function CharArrayToBSTR(const CharArray: array of Char): PBSTR;
var
  BSTRLen: Integer;
begin
  BSTRLen := Length(CharArray) * SizeOf(Char);
  Result := SysAllocStringByteLen(BSTRLen);
  if Assigned(Result) then
    Move(CharArray[0], Result^, BSTRLen);
end;

Этот код демонстрирует, как можно создать BSTR из массива символов char, используя функцию SysAllocStringByteLen. Полученный BSTR можно использовать для передачи между компонентами COM.

Заключение

Передача строк char* между COM-объектами в Delphi возможна, несмотря на то, что COM-интерфейсы часто используют Unicode-форматы. Разработчикам доступны различные способы для реализации такой передачи, включая использование BSTR, SAFEARRAY или IStream. Выбор метода зависит от конкретных требований проекта и удобства использования в контексте разработки.

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

### Контекст Вопрос связан с передачей строковых данных между объектами COM в Delphi, в частности, рассматриваются различные подходы и методы для работы со строками в форматах `char*`, `WideString` и `BSTR`.

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

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

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