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;