摘要: 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 阅读全文
posted @ 2012-07-24 14:34 ftwsnow 阅读(1358) 评论(0) 推荐(0) 编辑