Как записать несколько картинок в один .dat файл

← →
Digitman (2001-09-28 12:50) [3]

запись в поток индексированного списка битмапов

var
FileStream: TFileStream;
bmplist: TComponentList; //список битмапов, записываемых в поток
bmplistcount: Integer; //число битмапов в списке
offslist: TList; //список смещений битмапов в потоке
i: Integer;

.....
готовим здесь объекты-битмапы,
создаем экземпляр bmplist
и ссылки на экземпляры битмапов записываем в bmplist в нужном порядке следования
......

bmplistcount := bmplist.Count; // общее число битмапов, подлежащих сохранению

FileStream := TFileStream.Create("mybitmaps.dat", fmCreate);
offslist := TList.Create;

try

//резерв места в потоке под заголовок
FileStream.Size := SizeOf(bmplistcount) + SizeOf(Integer)*bmplistcount;
FileStream.Position := FileStream.Size; // в конец заголовка
//емкость списка смещений
offslist.Capacity := bmplistcount;

for i:= 0 to bmplistcount - 1 do
//сохранение смещения битмапа в потоке в список смещений
offslist.Items[i] := Pointer(FileStream.Position);
//сохранение в поток i-го битмапа
TBitmap(bmplist.Items[i]).SaveToStream(FileStream);

with FileStream do begin
Position := 0;
Write(bmplistcount, SizeOf(bmplistcount)); //сохранение числа битмапов
Write(offslist.List^, SizeOf(Integer)*bmplistcount); //сохранение списка смещений
end;
finally
offslist.Free;
FileStream.Free;
end;
....

чтение из потока битмапа по его порядковому номеру в списке сохраненных

function GetBitmapFromFile(const FileName: String; const bmpidx: Integer): TBitmap;
var
FileStream: TFileStream;
i: Integer;
begin
Result := TBitmap.Create;
try
FileStream := TFileStream.Create("mybitmaps.dat", fmOpenRead);
try
FileStream.Read(i, SizeOf(i));//общ.число битмапов в потоке
if bmpidx < i then begin
FileStream.Position := (i+1)*SizeOf(Integer);
FileStream.Read(i, SizeOf(i));//смещение нужного битмапа в потоке
FileStream.Position := i;
Result.LoadFromStream(FileStream);
end else
raise Exception.Create("BmpIndex out of bound");
finally
FileStream.Free;
end;
except
Result.Free;
raise;
end;
end;

примерно так. до ума доводи сам.

Как записать несколько картинок в один .dat файл Найти похожие ветки