如何实现bmp和jpeg格式图片的互相转换及图像质量控制？

Question

请问如何实现bmp和jpeg格式图片的互相转换及图像质量控制？

Answer 1

use jpeg;
]
function BmpToJpg(Bmp: TBitmap; Quality: Integer = 100): TJpegImage;
begin
  Result := nil;
  if Assigned(Bmp) then 
  begin
    Result := TJpegImage.Create;
    Result.Assign(Bmp); 
    Result.CompressionQuality := Quality;
    Result.JPEGNeeded; 
    Result.Compress;
  end;
end;function JpgToBmp(Jpg: TJpegImage): TBitmap;
begin
  Result := nil;
  if Assigned(Jpg) then 
  begin
    Result := TBitmap.Create;
    Jpg.DIBNeeded; 
    Result.Assign(Jpg); 
  end;
end;

Answer 2

楼上jpgtoBmp如何控制bmp质量？