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

← →
Efir © (2007-10-03 22:07) [0]

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

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-03 22:33) [1]

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

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);

← →
Инс © (2007-10-04 10:29) [2]

> bmp.Create(sa);

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

Сохранить TGPBitmap в файл Найти похожие ветки