Как правильно сериализовать массив записей в TMemoryStream для хранения в BLOB SQLite с использованием Delphi 2010

Delphi , Базы данных , SQL

Сериализация массива записей в TMemoryStream для последующего хранения в поле BLOB базы данных SQLite является важной задачей в разработке приложений на Delphi. В данной статье рассмотрим подходы к решению этой задачи на примере использования Delphi 2010 и библиотеки SQLite от Tim Anderson.

Проблема

Разработчик столкнулся с необходимостью сохранения структуры данных, представленной массивом записей, в поле BLOB SQLite. Для начала он пытается сериализовать данные в TMemoryStream, что является промежуточным этапом перед сохранением в базу данных.

Описание структуры данных

Используется тип TPerson, который представляет собой массив записей с полями для хранения различных строковых данных, таких как страна, полное имя, адрес, город и работодатель.

type
  TPerson = array of packed record
    sCountry: string[50];
    sFullName: string[100];
    sAddress: string[100];
    sCity: string[30];
    sEmployer: string[100];
  end;
var
  MyPeople: TPerson;

Неудачная попытка сериализации

В коде, представленном разработчиком, используется прямой доступ к памяти и запись массива записей в TMemoryStream. Однако, этот подход не приводит к желаемому результату.

var
  i : Integer;
  ms, ms2 : TMemoryStream;
  TestPeople : TPerson;
  sldb : TSQLiteDatabase;
begin
  ms := TMemoryStream.Create;
  ms2 := TMemoryStream.Create;
  sldb := TSQLiteDatabase.Create(slDBPath);
  try
    i := Length(MyPeople);
    ms.Write(i, SizeOf(Integer));
    ms.Write(Pointer(MyPeople)^, i * SizeOf(TPerson));
    // ...
    ms2.Read(i, SizeOf(Integer));
    SetLength(ms2, i);
    ms2.Read(Pointer(TestPeople)^, i * SizeOf(TPerson));
    // ...
  finally
    ms.Free;
    ms2.Free;
    sldb.Free;
  end;
end;

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

Для корректной сериализации массива записей в TMemoryStream, необходимо изменить тип TPerson на обычную запись, а не массив записей. Это позволит правильно вычислить размер одной записи и количество элементов в массиве.

type
  TPerson = packed record
    sCountry: string[50];
    sFullName: string[100];
    sAddress: string[100];
    sCity: string[30];
    sEmployer: string[100];
  end;
  TPersons = array of TPerson;
var
  MyPeople: TPersons;

Таким образом, размер одной записи TPerson можно получить через SizeOf(TPerson), а количество элементов массива - через Length(MyPeople). Умножение этих значений даст общий размер данных в байтах.

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

Также рассмотрим альтернативный подход с использованием динамических массивов строк, которые могут быть сериализованы в TMemoryStream более эффективно, так как занимают меньше места по сравнению с фиксированными строками.

type
  TPerson = packed record
    sCountry: string;
    sFullName: string;
    sAddress: string;
    sCity: string;
    sEmployer: string;
  end;
  TPersons = array of TPerson;
var
  MyPeople: TPersons;
(...)
procedure SavePeopleToStream(Stream: TMemoryStream);
begin
  DynArray(TypeInfo(TPersons), MyPeople).SaveToStream(Stream);
end;

Для реализации этого подхода можно использовать обертку TDynArray, которая предоставляет методы для сохранения и загрузки данных в TMemoryStream.

Заключение

Для успешной сериализации массива записей в TMemoryStream для хранения в BLOB поля SQLite, необходимо корректно определить структуру данных и использовать правильные подходы к записи и чтению данных. В зависимости от задачи, можно выбрать прямой доступ к памяти или использовать специализированные обертки, такие как TDynArray.

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

Сериализация массива объектов в `TMemoryStream` для хранения в BLOB поля базы данных SQLite требует корректного определения структуры данных и выбора правильного метода записи.

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

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

:: Главная :: SQL ::