摘要: class function TdbDocImg.ConvertPICintoJPG(cPic: TPicture; pWidth, pHeight: Integer): TJpegImage; var tBMP: TBitmap; begin Result := TJpegImage.Create; // if (pWidth > 0) or (pHeight > 0) t... 阅读全文
posted @ 2018-01-15 09:38 后凤凰 阅读(290) 评论(0) 推荐(0)