Convertir un Bmp en Jpg

[Neftali [Germán.Estévez]]

Esta es una sencilla funcion que convierte un archivo Bmp a otro Jpg,
NOTA: Añadir antes, en la uses, "jpeg".

Código Delphi [-]
Procedure BmpToJpg;
var
Jpg:TjpegImage;
Bmp:Tbitmap;

begin
 Jpg:=TjpegImage.Create;
 Bmp:=TbitMap.Create;
 Try
  Bmp.LoadFromFile('MiBmp.bmp');
  Jpg.Assign(Bmp);
  Jpg.CompressionQuality:=50; // de 1..100
  Jpg.Compress;
  Jpg.SaveToFile('MiJpg.jpg');
 Finally
  Jpg.Free;
  bmp.free;
 end;
end;