Объектно-ориентированное программирование на Delphi: практика сериализации классов и интерфейсов

Delphi , Технологии , Объектно-ориентированное программирование

В статье будет рассмотрен вопрос объектно-ориентированной сериализации в среде Delphi. Сериализация – это процесс преобразования объектов в поток байт, который можно сохранить, передать по сети или восстановить в памяти. Объектно-ориентированный подход к сериализации позволяет обеспечить гибкость и масштабируемость программных решений, что особенно важно при работе с большим количеством классов и интерфейсов.

Оригинальный заголовок:

Объектно-ориентированное программирование и сериализация в Delphi

Введение в проблематику:

Рассмотрим интерфейс IMyInterface, который включает в себя методы для выполнения определенных действий и сохранения/загрузки состояния объектов. Пример такого интерфейса:

IMyInterface = interface
  procedure DoSomethingRelevant;
  procedure Load (Stream : TStream);
  procedure Save (Stream : TStream);
end;

И несколько классов, реализующих данный интерфейс:

TImplementingClass1 = class(TInterfacedObject, IMyInterface)
  // ...
end;
TImplementingClass2 = class(TInterfacedObject, IMyInterface)
  // ...
end;

Есть класс TMainClass, который содержит список реализаций интерфейса IMyInterface:

TMainClass = class
  strict private
    FItems : TList<IMyInterface>;
  public
    procedure LoadFromFile(const FileName: String);
    procedure SaveToFile(const FileName: String);
  end;

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

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

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

TCustomClassFactory = class(TObject)
public
  procedure Register(AClass: TClass; ID: Integer);
  function Create(const ID: Integer): IMyInterface;
end;

Такой подход позволяет убрать условную логику из метода загрузки и централизовать процесс регистрации классов. Пример инициализации фабричного класса:

constructor TProductionClassFactory.Create;
begin
  inherited Create;
  Register(TMyImplementingClass1, 1);
  Register(TMyImplementingClass2, 2);
end;

Также можно использовать класс-регистратор, который будет хранить ссылки на классы и их идентификаторы:

TMyInterfaceContainer = class
  strict private
  class var
    FItems : TList<IMyInterface>;
    FIDs: TList<Integer>;
  public
    class procedure RegisterClass(TClass, Integer);
    class function GetMyInterface(ID: Integer): IMyInterface;
  end;

Использование такого класса регистратора позволит избежать необходимости изменять код при добавлении новых реализаций интерфейса:

procedure TMainClass.LoadFromFile(const FileName: String);
begin
  // ...
  Item := TMyInterfaceContainer.GetMyInterface(ID);
  Item.Load(Stream);
  // ...
end;

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

Использование фабричного класса или класса-регистратора позволяет реализовать объектно-ориентированное создание и сериализацию объектов, что упрощает управление кодом и обеспечивает его масштабируемость.

Заключение:

В данной статье был рассмотрен подход к объектно-ориентированной сериализации в среде разработки Delphi, основанный на использовании фабрик и регистраторов классов. Это позволяет создавать гибкие и расширяемые системы, минимизируя количество изменений в коде при добавлении новых классов, реализующих интерфейс IMyInterface.

Примеры кода:

Приведены примеры кода на Object Pascal, которые демонстрируют использование фабричного класса и класса-регистратора для сериализации объектов в среде Delphi.

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

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

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

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

:: Главная :: Объектно-ориентированное программирование ::