Разработка динамических библиотек с помощью Delphi и сохранение состояния между вызовами функций

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

Разработка динамических библиотек с помощью Delphi и сохранение состояния

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

Перемещение кода в отдельный модуль

Для начала, переместим код, который выполняется в DLL, в отдельный модуль. Создадим файл DLLCode.pas, в котором будет содержаться весь функционал нашего DLL.

unit DLLCode;

interface

procedure AddToNum; stdcall;
procedure PrintNum; stdcall;

exports
  AddToNum,
  PrintNum;

implementation

var
  Num: Integer = 0;

procedure AddToNum;
begin
  Inc(Num);
end;

procedure PrintNum;
begin
  WriteLn(Num);
end;

end.

Объявление переменных в модуле

В модуле DLLCode.pas объявляем переменную Num в секции implementation. Эта переменная будет видна только внутри данного модуля и будет сохранять свое состояние между вызовами функций.

Создание файла проекта DLL

Теперь создадим файл проекта для нашего DLL, DLLSample.dpr. В нем мы подключим модуль DLLCode.pas и определим библиотеку.

library DLLSample;

uses
  SysUtils,
  Classes,
  DLLCode in 'DLLCode.pas';

{$R *.res}

begin
end.

Тестирование DLL

Для тестирования создадим консольное приложение DllTestApp.dpr, которое будет использовать функции из нашего DLL.

program DLLTestApp;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure AddToNum; external 'DLLSample.dll';
procedure PrintNum; external 'DllSample.dll';

begin
  PrintNum;   // Вывод начального значения
  AddToNum;   // Увеличение значения на 1
  AddToNum;
  PrintNum;   // Вывод нового значения
  ReadLn;     // Ожидание нажатия Enter
end.

При запуске этого приложения в консоль будет выведено:

0
2

и программа ожидает нажатия клавиши Enter перед закрытием.

Заключение

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

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

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

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

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

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

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