Конференция "Media" » Сохранить несколько TGPBitmap в поток.
 
  • 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;

    ни к чему хорошему не приводит.
 
Конференция "Media" » Сохранить несколько TGPBitmap в поток.
Есть новые Нет новых   [134431   +10][b:0][p:0]