Работа с бинарными данными из DLL на C++ в Delphi: передача изображений через Qt

Delphi , Графика и Игры , Изображения

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

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

Разработчик создал библиотеку на C++ с использованием Qt, которая содержит функцию для получения бинарных данных изображения. В Delphi используется эта функция для получения указателя на данные, которые затем должны быть использованы для отображения изображения.

Контекст

Код библиотеки на C++ включает в себя заголовочный файл test.h и файл с реализацией test.cpp. В Delphi используется внешняя функция testFunc, которая вызывает функцию из библиотеки.

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

Проблема заключалась в неправильном определении функции в C++ и в неверном использовании указателя на байты в Delphi. Для решения проблемы, в Qt-части кода был изменен тип возвращаемой функции на char*, а также добавлен параметр по ссылке для передачи длины данных:

extern "C" {
    TESTSHARED_EXPORT char* testFunc(int &a);
}

В функции testFunc создается QImage и сохраняется в QByteArray, после чего возвращается указатель на данные и их длина:

char* testFunc(int &a){
    image.load("c:\\2.png","PNG");
    QBuffer buffer(&ba);
    buffer.open(QIODevice::WriteOnly);
    image.save(&buffer,"PNG");
    a = ba.size();
    return ba.data();
}

В Delphi-части кода функция testFunc также изменяет свой прототип для приема параметра, который будет содержать длину данных:

function testFunc(var aByteCount: DWORD): PByte; cdecl external 'test.dll';

При вызове функции в обработчике нажатия кнопки, данные записываются в поток и сохраняются в файл:

procedure TForm3.Button1Click(Sender: TObject);
var
  P: PByte;
  Size: DWORD;
begin
  P := testFunc(Size);
  bStream := TBytesStream.Create;
  try
    bStream.Write(P[0], Size);
    bStream.Position := 0;
    bStream.SaveToFile('c:\my.png');
  finally
    bStream.Free;
  end;
end;

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

Проблема была решена путем изменения соглашения о вызовах и добавления параметра для передачи длины данных. Это позволило корректно передать бинарные данные из C++ в Delphi и отобразить изображение.

Альтернативные решения

В качестве альтернативного решения можно было бы использовать нативные библиотеки Delphi для работы с изображениями, такие как Soft Gems или Vampyre, что избавило бы от необходимости использовать внешние библиотеки на C++.

Заключение

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

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

Разработчик столкнулся с необходимостью передачи бинарных данных, полученных из библиотеки на C++ с использованием Qt, в приложение на Delphi для отображения изображений.

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

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

:: Главная :: Изображения ::