Проблемы и решения при передаче структур из Delphi DLL в C++

Delphi , Файловая система , DLL и PlugIns

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

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

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

TSimpleRecord = packed record
  Nr1 : Integer;
  Nr2 : Integer;
end;

function TTest() : TSimpleRecord; cdecl;
begin
  Result.Nr1 := 1;
  Result.Nr2 := 201;
  ShowMessage(IntToStr(SizeOf(Result)));
end;

В C++ при вызове функции используется следующий код:

#pragma pack(1)
struct TSimpleRecord
{
    int Nr1;
    int Nr2;
};
// ...
typedef TSimpleRecord (__cdecl TestFunc)(void);
TestFunc* Function;
HINSTANCE hInstLibrary = LoadLibrary("Reactions.dll");
if (hInstLibrary)
{
    Function = (TestFunc*)GetProcAddress(hInstLibrary, "TTest");
    if (Function)
    {
        TSimpleRecord Result = {0};
        Result = Function();
        printf("%d - %d - %d", sizeof(Result), Result.Nr1, Result.Nr2);
        cin.get();
    }
}

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

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

Проблема может быть связана с различиями в соглашениях о вызовах (calling conventions) между C++ и Delphi. Некоторые компиляторы возвращают структуры в регистрах, в то время как другие ожидают, что результат будет передан по ссылке. В данном случае, чтобы избежать проблемы, рекомендуется использовать параметр по ссылке вместо возврата значения.

Изменим функцию в Delphi на процедуру с параметром по ссылке:

procedure TTest(out Result: TSimpleRecord); cdecl;
begin
  Result.Nr1 := 1;
  Result.Nr2 := 201;
end;

И соответствующим образом обновим код в C++:

typedef void (__cdecl TestFunc)(TSimpleRecord&);

Такой подход позволит избежать несоответствий между соглашениями о вызовах.

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

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

function TTest() : Int64; cdecl;
begin
  TSimpleRecord(Result).Nr1 := 1;
  TSimpleRecord(Result).Nr2 := 201;
end;

Важно отметить, что упаковка записей (packed) может привести к неправильному выравниванию, что негативно сказывается на производительности. Для структуры, представленной в вопросе, упаковка не нужна, так как оба поля имеют одинаковый размер.

Заключение

При работе с передачей структур между C++ и Delphi важно учитывать соглашения о вызовах и возможные различия в обработке типов данных. Использование параметров по ссылке или побитовое преобразование типов может помочь решить возникающие проблемы. Следует также избегать упаковки записей, если это не является необходимым, чтобы предотвратить проблемы с выравниванием.

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

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

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

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

:: Главная :: DLL и PlugIns ::