Cохранение нескольких изображений в один файл?

← →
Steplerr © (2005-12-21 13:50) [0]

Пытаюсь сохранить несколько изображений в один файл примерно таким образом:

procedure save;
var f:File of TBitmap;
begin
AssignFile(f,"file.img");
ReWrite(f);
Write(f,Image1.Picture.Bitmap);
Write(f,Image2.Picture.Bitmap);
CloseFile(f);
end;

А мне сохраняется вместо изображения - какие-то 4 крякозябла. Пробовал TPicture, TImage..., но всё равно не получается!!! Помоготе, кто может!!!!!

P.S. Нужно чтобы изображения можно было считать по одному из другой программы.

← →
Плохиш © (2005-12-21 14:14) [1]

TBitmap - это указатель, его размер сейчас 4 байта.
Запись нескольких сущностей в один файл здесь каждую неделю обсасывается.

← →
Steplerr © (2005-12-21 19:59) [2]

Может и обсасывается, но ни какой толковой информации я так и не нашёл! Посоветуйте что-нибудь дельное!!!

← →
з. танька (2005-12-21 20:08) [3]

используй методы
Image1.Picture.Graphic.SaveToStream();
Image1.Picture.Bitmap.SaveToStream();

я делала так: заводишь объект FS: TFileStream на свой "общий" файл,
Temp: TMemoryStream - тоже надо..
далее алгоритм такой:
1 сохраняешь картинку в поток Temp указанным выше методом
2 берешь у нево (потока) Size
3 пишешь етот size в FS
4 пишешь Temp в FS

size потом понадобится при чтении. чтение думаю сам догадаешся по аналогии типо как матрешку разбираешь етот твой общий файл в обратном порядке. вот.

Работает! Спасибо, з. танька, всё толково обьяснила!

Cохранение нескольких изображений в один файл? Найти похожие ветки