Проблема с динамическим изменением строкового поля в записи через функцию из DLL на C/C++ в приложении на Delphi

Delphi , Синтаксис , Память и Указатели

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

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

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

Контекст

В контексте задачи пользователь предоставил примеры кода на Delphi и C/C++, где в Delphi приложении создается запись MyRec с инициализацией полей, а в C++ DLL определена функция MyExportedFunc, которая должна изменять значения этих полей.

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

Проблема заключается в неправильном управлении строковыми полями и использовании типов указателей. В Delphi для строковых типов существуют специальные типы указателей, такие как PWideString и PAnsiString, которые следует использовать вместо обычных указателей pwidechar и pchar. Также рекомендуется использовать специализированные типы указателей для других типов данных, например, PInteger и PBoolean вместо Pointer.

Вот исправленный код на Delphi:

type
  PMyRec = ^MyRec;
  MyRec = record
    MyInteger    : PInteger;
    MyWideString : PWideString;
    MyAnsiString : PAnsiString;
    MyBool       : PBoolean;
  end;
  TMyFunc = function (p: PMyRec): Integer; stdcall;

procedure test;
var
  MyFunction: TMyFunc;
  TheRecord: MyRec;
  AnInteger: Integer;
  AWideString: WideString;
  AAnsiString: AnsiString;
  ABool: Boolean;
begin
  AnInteger := 1234;
  AWideString := 'hello';
  AAnsiString := 'hello2';
  ABool := TRUE;
  TheRecord.MyInteger := @AnInteger;
  TheRecord.MyWideString := @AWideString;
  TheRecord.MyAnsiString := @AAnsiString;
  TheRecord.MyBool := @ABool;
  // ... дальнейший код ...
  MyFunction(TheRecord);
  // Показать результаты изменения значений
  MessageBoxW(0, PWideChar(AWideString), '', 0);
end;

И соответствующий код на C++:

typedef struct _MyRec
{
    int        *MyInteger;    // Указатель на Integer
    WideString *MyWideString; // Указатель на WideString
    AnsiString *MyAnsiString; // Указатель на AnsiString
    bool       *MyBool;       // Указатель на Bool
} MyRec, *PMyRec;

__declspec(dllexport) int __stdcall MyExportedFunc(PMyRec PRec)
{
    MessageBoxW(NULL, PRec->MyWideString->c_bstr(), L"Debug", 0);
    *(PRec->MyWideString) = L"Let me change the value here.";
    return 0;
}

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

Также стоит отметить, что манипуляции с AnsiString и UnicodeString через границу DLL могут быть опасны, особенно если EXE и DLL написаны в разных версиях Delphi/C++Builder. WideString безопаснее в этом плане, так как его память и структура контролируются операционной системой, а не RTL.

Заключение

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

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

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

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

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

:: Главная :: Память и Указатели ::