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


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;