Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Steplerr © (2005-12-21 13:50:00)
Пытаюсь сохранить несколько изображений в один файл примерно таким образом:

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. Нужно чтобы изображения можно было считать по одному из другой программы.

Steplerr (2005-12-21 20:39:00) [1]
Работает! Спасибо, з. танька, всё толково обьяснила!

з. танька (2005-12-21 20:08:00) [2]
используй методы
Image1.Picture.Graphic.SaveToStream();
Image1.Picture.Bitmap.SaveToStream();

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

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

Steplerr (2005-12-21 19:59:00) [3]
Может и обсасывается, но ни какой толковой информации я так и не нашёл! Посоветуйте что-нибудь дельное!!!

Плохиш (2005-12-21 14:14:00) [4]
TBitmap - это указатель, его размер сейчас 4 байта.
Запись нескольких сущностей в один файл здесь каждую неделю обсасывается.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »