| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Сохранить TGPBitmap в файл

Efir ©   (2007-10-03 22:07:00) 

Я предполагаю, что делать нужно так:

var
 f:TFileStream;
 bmp:TGPBitmap;
 sa:TStreamAdapter;
begin
 bmp:=TGPBitmap.Create('1.png');
 f:=TFileStream.Create('GDIP.sav', fmCreate);
 sa:=TStreamAdapter.Create(f);

 bmp.Save(sa, ImageFormatPNG);

 f.Free;
 bmp.Free;
 sa.Free;
end;

но ничего не происходит. Хочется сохранить несколько картинок в один файл.

---

Efir   (2007-10-04 21:53:00) [1]

Аааа, ну я и лузер, это ж надо так ступить.

> Инс ©   (04.10.07 10:29) [2]
спасибо.

---

Инс   (2007-10-04 10:29:00) [2]

> bmp.Create(sa);

bmp:=TGPBitmap.Create(sa);
для начала, а там посмотрим...

---

Efir   (2007-10-03 22:33:00) [3]

Нашёл ошибку:

encoderClsid:TGUID;

GetEncoderClsid('image/jpeg', encoderClsid);
bmp.Save(sa, encoderClsid);

Вроде сохраняет, но вот теперь как загрузить?
С таким кодом вылетает ошибка:

f:=TFileStream.Create('GDIP.sav', fmOpenRead);
f.Position:=0;
sa:=TStreamAdapter.Create(f);
bmp.Create(sa);

---

Наверх