Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

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 потом понадобится при чтении. чтение думаю сам догадаешся по аналогии типо как матрешку разбираешь етот твой общий файл в обратном порядке. вот.


 
Steplerr ©   (2005-12-21 20:39) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
1-1133492829
Петр
2005-12-02 06:07
2006.01.08
Как подгрузить dll, написанную в Delphi в проект CBuilder?


14-1134279032
begin...end
2005-12-11 08:30
2006.01.08
С Днём рождения! 11 декабря


4-1130767725
RomeoGolf
2005-10-31 17:08
2006.01.08
Свернуть дочернее окно в панель задач


2-1135107674
Soff
2005-12-20 22:41
2006.01.08
Какой это Класс исключений?


14-1134503620
Gero
2005-12-13 22:53
2006.01.08
Ветка-долгожитель