Как исправить ошибку загрузки изображений из базы данных в массив `TMemoryStream` для отчёта `frxReport` в Delphi

Delphi , Базы данных , BLOB поля

Как исправить ошибку загрузки изображений из базы данных в массив TMemoryStream для отчёта frxReport в Delphi

Приветствую! В данной статье мы рассмотрим проблему загрузки изображений из базы данных в массив TMemoryStream для последующего отображения в отчёте frxReport в среде разработки Delphi. Проблема заключается в том, что изображения не загружаются в массив TMemoryStream, что делает их недоступными для отображения в отчёте.

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

Разработчик работает над проектом в Delphi (RAD Studio), где в таблице базы данных хранятся изображения. Задача состоит в том, чтобы извлечь эти изображения во время выполнения программы (используется массив TMemoryStream) и отобразить их в отчёте frxReport. Однако, несмотря на попытки, изображения не загружаются в массив TMemoryStream, и, следовательно, не отображаются в отчёте.

Контекст

В коде проекта используется массив TMemoryStream для хранения изображений. Однако, в процессе загрузки изображений в массив Stream2 происходит ошибка: вместо загрузки потока данных об изображении в TMemoryStream, создаётся новый TMemoryStream и затем он заменяется ссылкой на поток данных из базы, что приводит к потере реального потока с данными изображения.

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

Для решения проблемы необходимо исправить код загрузки изображений в TMemoryStream. Вместо создания нового TMemoryStream и последующей его замены, необходимо использовать метод LoadFromStream для загрузки данных из потока в уже созданный TMemoryStream. Вот исправленный фрагмент кода:

var
  blobstream: TStream;
  Stream2: array of TMemoryStream;
  // ... другие переменные ...
  // ...
  while not UniTable1.Eof do
  begin
    // ... загрузка id и описания ...
    blobstream := UniTable1.CreateBlobStream(TBlobField(UniTable1.FieldByName('image')), bmRead);
    try
      Stream2[k] := TMemoryStream.Create;
      Stream2[k].LoadFromStream(blobstream);
    finally
      blobstream.Free;
    end;
    // ... остальной код цикла ...
  end;

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

В качестве альтернативного подхода можно рассмотреть использование класса TMyDataPack, который будет хранить данные о каждом изображении, включая его описание и сам TImage. Это позволит избежать использования глобальных переменных и упростить управление данными.

Пример класса TMyDataPack:

unit DataPack;
interface
uses
  ExtCtrls, // ... другие используемые модули ...
type
  TMyDataPack = class(TObject)
  private
    Query: TFDQuery;
    _MyId: Integer;
    _MyDescription: String;
    _MyImage: TImage;
    _Loaded: Boolean;
    function LoadData: Boolean;
  protected
  public
    constructor Create(Data: TFDQuery);
    property MyId: Integer read _MyId;
    property MyDescription: String read _MyDescription;
    property MyImage: TImage read _MyImage;
    property Loaded: Boolean read _Loaded;
  end;

implementation
{ TMyDataPack }
constructor TMyDataPack.Create(Data: TFDQuery);
begin
  Inherited Create;
  Query := Data;
  _Loaded := LoadData;
end;

function TMyDataPack.LoadData: Boolean;
var
  Stream: TStream;
begin
  Stream := Query.CreateBlobStream(TBlobField(Query.FieldByName('image')), bmRead);
  try
    _MyImage := TImage.Create(nil);
    _MyImage.Picture.Bitmap.LoadFromStream(Stream);
    // ... загрузка описания и id ...
  except
    // ... обработка исключений ...
  end;
  FreeAndNil(Stream);
  Result := True;
end;

end.

Использование TObjectList<TMyDataPack> для хранения объектов TMyDataPack позволит более удобно работать с данными.

Заключение

Исправление кода загрузки изображений в TMemoryStream и использование класса TMyDataPack для управления данными — это два подхода к решению проблемы. Выбор между ними зависит от конкретных требований проекта и предпочтений разработчика.

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

Разработчик столкнулся с проблемой загрузки изображений из базы данных в массив `TMemoryStream` для отображения в отчете `frxReport` в среде разработки Delphi, где в текущем коде происходит ошибка, приводящая к потере реальных данных изображени

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

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

:: Главная :: BLOB поля ::