Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 02-02-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.142
Poder: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Con el siguiente código no me va mal para convertir un "BITMAP" en un "JPEG". Adáptalo como te sea menester, a ver si te sive de algo.

Código Delphi [-]
uses
  Jpeg;

procedure BitmapToJpeg(const
  origen, destino: string);
var
  bitmap: TBitmap;
  jpeg: TJPEGImage;
begin
  bitmap := TBitmap.Create;
  jpeg := TJPEGImage.Create;
  try
    bitmap.LoadFromFile(origen);
    jpeg.Assign(bitmap);
    jpeg.SaveToFile(destino);
  finally
    jpeg.Free;
    bitmap.Free;
  end;
end;
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 02-02-2006 a las 17:16:00.
Responder Con Cita
 



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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
No puedo leer JPG en D7 roman Gráficos 15 21-07-2004 10:36:25
como puedo abrir (desde un programa de delpi) archivos hlp, doc, txt, csv, htm, etcet crespopg API de Windows 1 17-07-2004 03:42:39
problemas selectSQL-Like, pasando datos desde código en el delphi Giniromero SQL 6 22-09-2003 17:49:49
No puedo instalar bien un componente de codigo de barrar? danytorres Varios 2 13-09-2003 19:58:55
Como puedo cargar un SQL DTS desde Delphi? Elektron Conexión con bases de datos 2 31-07-2003 11:03:52


La franja horaria es GMT +2. Ahora son las 03:27:34.


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