壓縮圖像文件並轉換成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.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;