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.

Código Delphi [-]
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:

Código Delphi [-]
  Convertir('c:\1.wmf','c:\1.jpg');