Передача двоичных данных из Qt / C ++ DLL в хост-приложение Delphi

Более простым было бы использование PByte aka ^ Byte, а не PByteArray. Хотя TByteArray является статическим типом, использование массивов по-прежнему увеличивает риск случайной опечатки, как при использовании динамических массивов.

Не используйте PChar - он остановится на 1-м нулевом байте. Картинка не является строкой, она может содержать сотни нулей.

Вы должны отправить длину как отдельную переменную / функцию. int QImage :: byteCount () const http://qt-project.org/doc/qt-4.8/qimage.html#byteCount

Отредактируйте свой вопрос, пожалуйста. Вы спрашиваете о битах или постоянных битах? это разные свойства!

Также:

Вы должны узнать о «соглашениях о вызовах» в ваших компиляторах, C ++ и Pascal. Лучше бы вы могли отслеживать это на уровне Ассемблера.

попробуйте пометить эту процедуру директивой «cdecl» в коде Паскаля или, возможно, директивой «stdcall» как в коде C, так и в коде Паскаля.

Попробуйте утилиту h2pas от FreePascal для автоматической конвертации.

А теперь лучше всего - перетащите сюда Qt. Создавать мосты Qt только для чтения файлов PNG очень странно и хрупко. Существует ряд собственных библиотек Delphi с поддержкой PNG. Несколько примеров:

• Soft Gems: http://www.soft-gems.net/index.php/libs/graphicex-library
• Вампир: http://imaginglib.sf.net

Задача решена. (^_^)

Для его решения:

На стороне Qt:

test.h:

#ifndef TEST_H
#define TEST_H

#include "test_global.h"


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


#endif // TEST_H

test.cpp:

#include "test.h"
#include <QtGui>

QImage image;
QByteArray ba;


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();
}

На стороне Дельфи:

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

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

Еще раз спасибо за "Arioch The" и "David Heffernan". (^_^)