function GraphicToBmp(P: TPicture; Quality: Integer = 80): TBitmap; var Jpg: TJpegImage; begin Result := TBitmap.Create; with Result do begin Width := P.Width; Height := P.Height; Canvas.Draw(0, 0, P.Graphic); end; if Assigned(Result) then begin Jpg := TJpegImage.Create; Jpg.Assign(Result); Jpg.CompressionQuality := Quality; Jpg.JPEGNeeded; Jpg.Compress; if Assigned(Jpg) then begin Jpg.DIBNeeded; Result.Assign(Jpg); end; end; end;
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
