摘要:
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.ad 阅读全文