Двоичный файл с набором изображений

Может кто-либо обеспечить меня хорошим примером как сохранить множество изображений в единственном бинарном файле?

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

Данный пример помещает вашу запись в объект. Хотя это и не было строго необходимым, я сконфигурировал алгоритм имеенно так, потому что рано или поздно вы это сделаете... В качестве средства для чтения и записи он использует потоки. Возможно вы уже использовали потоки, поэтому моя технология не будет для вас открытием. Одно из преимуществ использования потока в том, что для работы с графическими объектами -- bitmap, icon, metafile -- можно использовать методы SaveToStream и LoadFromStream.

У меня была проблема с использованием LoadFromStream, и она была похожей на вашу. При вызове Graphic.LoadFromStream, графика "оставляла" позицию потока с самом его конце, а не в конце записи. Другими словами, если графический объект первый раз записывал себя в поток, данные заканчивались в позиции 247. Но когда графический объект "читал себя", он не останавливался в позиции 247, а читал себя из всего потока. Поэтому мог быть прочитан только один объект.

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

Кое-то еще: я сделал объект, способным обрабатывать иконки, метафайлы, а также простые изображения. Не знаю, понадобиться ли вам это, и может быть я выбрал не самое элегантное решение...

unit
 Unit2;

interface

uses
 Graphics, Classes;

type

  TAlbumRec = class

  private

    FGraphic: TGraphic;
    FDescription: string
; { ...Просто пример поля }
    FItemType: ShortInt;  { ...Просто пример поля }
    procedure
 SetGraphic(AGraphic: TGraphic);
  public

    constructor
 Create;
    destructor
 Destroy; override
;
    procedure
 LoadFromStream(Stream: TStream);
    procedure
 SaveToStream(Stream: TStream);
    property
 Graphic: TGraphic read
 FGraphic write
 SetGraphic;
    property
 Description: string read
 FDescription write
 FDescription;
    property
 ItemType: ShortInt read
 FItemType write
 FItemType;
  end
;

implementation


constructor
 TAlbumRec.Create;
begin

  inherited
 Create;
end
;

destructor
 TAlbumRec.Destroy;
begin

  FGraphic.Free;
  inherited
 Destroy;
end
;

procedure
 TAlbumRec.LoadFromStream(Stream: TStream);
var

  GraphicTypeCode: Char;
  EndPosition: LongInt;
begin

  { Считываем в потоке позицию где заканчивается запись... }
  Stream.Read
(EndPosition, SizeOf(EndPosition));

  { Считываем в Delphi 1.0 строку... }
  Stream.Read
(FDescription[0], SizeOf(Byte));
  Stream.Read
(FDescription[1], Byte(FDescription[0]));

  { Читаем целое... }
  Stream.Read
(FItemType, SizeOf(FItemType));

  { Считываем код, сообщающий тип графического объекта,
  который необходимо создать... }
  Stream.Read
(GraphicTypeCode, SizeOf(GraphicTypeCode));

  { Освобождаем текущий графический объект и пересоздаем его.. }
  FGraphic.Free;
  FGraphic := nil
;
  case
 GraphicTypeCode of

    'B': FGraphic := TBitmap.Create;
    'I': FGraphic := TIcon.Create;
    'M': FGraphic := TMetafile.Create;
  end
;

  { Загружаем из потока графику... }
  if
 FGraphic <> nil
 then

    FGraphic.LoadFromStream(Stream);

  { Ищем в потоке конечную позицию для данной записи. Почему мы это делаем?
  Я обнаружил это, когда графический объект читал себя из потока, и при этом
  "оставлял" позицию потока с самом его конце, а не в конце записи. Поэтому
  мог быть прочитан только один объект... }
  Stream.Seek(EndPosition, 0);
end
;

procedure
 TAlbumRec.SaveToStream(Stream: TStream);
var

  GraphicTypeCode: Char;
  StartPosition,
    EndPosition: LongInt;
begin

  { Запоминаем позицию потока для дальнейшей записи наших объектов... }
  StartPosition := Stream.Position;

  { Здесь мы собираемся записать позицию где заканчиваются данные записи.
  Мы пока не знаем как это позиционируется, поэтому пока записываем ноль
  чтобы сохранить место... }
  EndPosition := 0;
  Stream.Write(EndPosition, SizeOf(EndPosition));

  { Записываем строку Delphi 1.0... }
  Stream.Write(FDescription[0], SizeOf(Byte));
  Stream.Write(FDescription[1], Byte(FDescription[0]));

  { Записываем целое... }
  Stream.Write(FItemType, SizeOf(FItemType));

  { Записываем код, сообщающий тип графического объекта,
  который мы собираемся писать... }
  if
 (FGraphic = nil
) or
 (FGraphic.Empty) then

    GraphicTypeCode := 'Z'
  else
 if
 FGraphic is
 TBitmap then

    GraphicTypeCode := 'B'
  else
 if
 FGraphic is
 TIcon then

    GraphicTypeCode := 'I'
  else
 if
 FGraphic is
 TMetaFile then

    GraphicTypeCode := 'M';
  Stream.Write(GraphicTypeCode, SizeOf(GraphicTypeCode));

  { Записываем графику... }
  if
 (GraphicTypeCode <> 'Z') then

    FGraphic.SaveToStream(Stream);

  { Возвращаемся к месту откуда мы начинали и записываем
  конечную позицию, которую мы сохранили... }
  EndPosition := Stream.Position;
  Stream.Seek(StartPosition, 0);
  Stream.Write(EndPosition, SizeOf(EndPosition));

  { Возвращаем конечную позицию, после этого поток готов
  для следующей записи... }
  Stream.Seek(EndPosition, 0);
end
;

procedure
 TAlbumRec.SetGraphic(AGraphic: TGraphic);
begin

  FGraphic.Free;
  FGraphic := nil
;
  if
 AGraphic <> nil
 then

  begin

    FGraphic := TGraphic(AGraphic.ClassType.Create);
    FGraphic.Assign(AGraphic);
  end
;
end
;

end
.

Другое по теме:

• Как из Делфи рисовать в любой части экрана или в чужом окне
• Зеркальное отображение
• Как создать список файлов с их изображением