-
Efir © (05.10.07 20:30) [0]Код:
var
f:TFileStream;
bmp1,bmp2:TGPBitmap;
encoderClsid:TGUID;
begin
bmp1:=TGPBitmap.Create('1.png');
bmp2:=TGPBitmap.Create('2.png');
f:=TFileStream.Create('GDIP.sav', fmCreate);
try
GetEncoderClsid('image/bmp', encoderClsid);
bmp1.Save(TStreamAdapter.Create(f), encoderClsid);
bmp2.Save(TStreamAdapter.Create(f), encoderClsid);
finally
f.Free;
bmp1.Free;
bmp2.Free;
end;
ни к чему хорошему не приводит.