Экспорт Записей из DLL в Delphi: Методы и Примеры

Delphi , Синтаксис , Записи и Множества

В статье мы рассмотрим возможность экспорта записей из динамически подключаемых библиотек (DLL) на языке программирования Object Pascal, используемом в среде разработки Delphi. Вопрос о том, можно ли вынести определение записи за пределы DLL и использовать её в приложениях, является актуальным для многих разработчиков.

Экспорт Записей из DLL в Delphi: Методы и Примеры

Понимание Проблемы

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

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

Использование Общего Модуля Один из способов решения этой проблемы - использование общего модуля, который будет содержать определение типа записи. Такой модуль можно использовать и в самой DLL, и во внешних приложениях.

unit MyRecordUnit.pas;

interface

type
  TVariables = record
    name : string;
    units : string;
    value : double;
  end;

implementation

end.

Серюализация Записи В качестве альтернативы, можно использовать серюализацию записи в строку. Это позволит передать данные между DLL и приложением без необходимости экспортировать сам тип данных.

procedure ExportRecordToString(var RecordAsPChar : PChar; const ARecord: TVariables);
var
  s: string;
begin
  s := Format('%s,%s,%f', [ARecord.name, ARecord.units, ARecord.value]);
  StrPCopy(RecordAsPChar, s);
end;

function ImportStringToRecord(var Record: TVariables; const AString: PChar): Boolean;
var
  parts: TArray<string>;
begin
  Result := False;
  try
    SetLength(parts, 2);
    SetLength(StrSplit(AString, ',', parts), 3);
    if Length(parts) <> 3 then
      Exit;

    Record.name := parts[0];
    Record.units := parts[1];
    Record.value := StrToFloatDef(parts[2], -1);

    Result := True;
  except
    on E: Exception do
      Writeln(E.ClassName, ':', E.Message);
  end;
end;

Примеры Кода

Для использования этих методов в DLL необходимо определить экспортируемые функции:

exports
  ExportRecordToString,
  ImportStringToRecord;

И затем использовать их в коде приложения следующим образом:

var
  Record: TVariables;
  serializedRecord: PChar;

SetLength(serializedRecord, 1024);
try
  // Создаем запись
  Record.name := 'Name';
  Record.units := 'Units';
  Record.value := 1.56789;

  // Экспортируем запись в строку
  ExportRecordToString(@serializedRecord, Record);

  // Используем где-то...

  // Импортируем обратно из строки
  ImportStringToRecord(Record, serializedRecord);
finally
  SetLength(serializedRecord, 0); // Освобождаем память
end;

Заключение

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

Этот пример демонстрирует, что хотя напрямую экспортировать записи из DLL не получится, существуют эффективные способы работы с пользовательскими типами в контексте создания библиотек.

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

Описание: Разработчики в среде Delphi сталкиваются с необходимостью экспортирования записей из динамически подключаемых библиотек (DLL) и рассматривают методы и примеры, как это можно сделать.

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

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

:: Главная :: Записи и Множества ::