Сохранение и чтение множества BMP изображений в один файл с использованием TFileStream в Delphi

Delphi , Интернет и Сети , Браузер

Вопрос пользователя заключается в необходимости сохранения множества BMP изображений в один файл с использованием компонента TFileStream в среде разработки Delphi. Пользователь столкнулся с проблемой, что текущий код позволяет сохранять и читать только одно изображение, в то время как требуется возможность работы с множеством изображений в реальном времени. Рассмотрим, как можно модифицировать существующий код для решения этой задачи.

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

procedure SaveBMPtoStream(st: TFileStream; Bmp: TBitmap);
begin
  // Создание или открытие потока для записи
  if FileExists('d:\streams\s.stm') then
    st := TFileStream.Create('d:\streams\s.stm', fmOpenReadWrite)
  else
    st := TFileStream.Create('d:\streams\s.stm', fmCreate);
  // Сохранение изображения в поток
  Bmp.SaveToStream(st);
  // Освобождение потока
  st.Free;
end;

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

procedure ReadBMPfrStream(st: TFileStream; Bmp: TBitmap);
begin
  // Открытие потока для чтения
  st := TFileStream.Create('d:\streams\s.stm', fmOpenReadWrite);
  // Чтение изображения из потока
  Bmp.LoadFromStream(st);
  // Освобождение потока
  st.Free;
end;

Подход к решению задачи:

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

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

Для сохранения и чтения множества изображений в одном файле можно использовать следующий подход:

1. Сохранение размера изображения перед самим изображением в потоке.
2. Поиск нужного изображения в потоке, считывая размеры до достижения нужного номера.
3. Сохранение всех изображений последовательно, сохраняя информацию о размере перед каждым изображением.

Пример реализации функции SaveBMPtoStream для сохранения множества изображений:

procedure SaveBMPtoStream(const fn: String; Bmp: TBitmap; Nr: Integer);
var
  fs: TFileStream;
  size: DWord;
begin
  if FileExists(fn) then
  begin
    fs := TFileStream.Create(fn, fmOpenReadWrite or fmShareDenyNone);
    fs.Seek(0, soEnd);
  end
  else
    fs := TFileStream.Create(fn, fmCreate or fmShareDenyNone);
  try
    size := Bmp.SizeOfBitmap;
    fs.Write(size, SizeOf(DWord)); // Сохраняем размер изображения в поток
    Bmp.SaveToStream(fs);
  finally
    fs.Free;
  end;
end;

Пример реализации функции LoadBMPFromStream для чтения изображения по номеру:

Function LoadBMPFromStream(const fn: String; Bmp: TBitmap; Nr: Integer): Boolean;
var
  fs: TFileStream;
  ms: TMemoryStream;
  intNr, pos: Integer;
  size: DWord;
begin
  if FileExists(fn) then
  begin
    Result := True;
    fs := TFileStream.Create(fn, fmOpenRead or fmShareDenyNone);
    try
      pos := 0;
      size := 0;
      intNr := 0;
      while (intNr < Nr) and (pos < fs.Size) do
      begin
        fs.Read(size, SizeOf(DWord));
        pos := pos + SizeOf(DWord) + size;
        fs.Seek(pos, soFromBeginning);
        inc(intNr);
      end;
      if pos < fs.Size then
      begin
        ms := TMemoryStream.Create;
        try
          ms.CopyFrom(fs, size);
          ms.Position := 0;
          Bmp.LoadFromStream(ms);
        finally
          ms.Free;
        end;
      end
      else
        Result := False;
    finally
      fs.Free;
    end;
  end;
end;

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

Заключение:

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

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

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

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

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

:: Главная :: Браузер ::