GDI+压缩图片 image/png image/jpeg
var encoderClsid: TGUID; stat: TStatus; image: TGPImage; begin image := TGPImage.Create('a.bmp'); GetEncoderClsid('image/jpeg', encoderClsid); stat := image.save('a.jpg', encoderClsid, nil); if ( stat= OK ) then memo1.lines.add('Save Successfully!') else memo1.lines.add( format( 'Failure: stat = %s',[GetStatus(stat)])); image.free; end;