Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-06-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 17
seoane Va por buen camino
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');
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 04:13:21.


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