Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Convertir bmp, ico y wmf a jpeg (https://www.clubdelphi.com/foros/showthread.php?t=80433)

seoane 08-06-2006 06:02:33

Convertir bmp, ico y wmf a jpeg
 
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');


La franja horaria es GMT +2. Ahora son las 00:52:55.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi