Convertir bmp, ico y wmf a jpeg

[seoane]

Esta fucnion convierte una imagen en formato bmp, ico, wmf, emf (los formatos soportados por un TPicture) en una imagen con el formato jpeg.


uses Jpeg;

procedure Convertir(Origen, Destino: string);
var
Imagen: TPicture;
Bitmap: TBitmap;
Jpg: TJPEGImage;
begin
Imagen:= TPicture.Create;
Jpg:= TJPEGImage.Create;
try
Imagen.LoadFromFile(Origen);
if not (Imagen.Graphic is TBitmap) then
begin
Bitmap:= TBitmap.Create;
try
Bitmap.Width:= Imagen.Width;
Bitmap.Height:= Imagen.Height;
Bitmap.Canvas.Draw(0,0,Imagen.Graphic);
Jpg.Assign(Bitmap);
finally
Bitmap.Free;
end;
end else Jpg.Assign(Imagen.Graphic);
Jpg.SaveToFile(Destino);
finally
Jpg.Free;
Imagen.Free;
end;
end;


Ejemplo de uso:

Convertir('c:\1.wmf','c:\1.jpg');