Delphinus的专栏

原创 压缩图像文件并转换成BMP格式

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.Dr