Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-04-2007
jcarlos.matrix jcarlos.matrix is offline
Miembro
 
Registrado: may 2005
Ubicación: ensenada b.c.
Posts: 18
Poder: 0
jcarlos.matrix Va por buen camino
Cool No entiendo

Aplique el jemplo tal cual como esta. y no me cambia. cargo una imagen de 929 kb y y en el archivo resultando da = 929 kb
__________________
Se un buen lector y que la fuerza te acompañe
Responder Con Cita
  #2  
Antiguo 25-04-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Cita:
Empezado por jcarlos.matrix
Aplique el jemplo tal cual como esta. y no me cambia. cargo una imagen de 929 kb y y en el archivo resultando da = 929 kb
¿Y cual debía ser el resultado? Ten en cuenta que solo cambias la resolución.

Una imagen de 100x100 píxeles con 72 ppp, ocupa exactamente lo mismo que una de 100x100 píxeles con 300 ppp, ya que sigue teniendo los mismos píxeles y en pantalla no apreciaras ningún cambio. El parámetro de la resolución solo sirve a la hora de imprimir la imagen para determinar la densidad de puntos con la que se debe imprimir. Es decir una imagen con el mismo tamaño de píxeles, pero con mayor resolución, se vera mas pequeña al imprimir, ya que se imprimirán mas puntos (píxeles) en el mismo espacio.
Responder Con Cita
  #3  
Antiguo 25-04-2007
JCarlosas JCarlosas is offline
Miembro
 
Registrado: abr 2006
Ubicación: Habana. Cuba
Posts: 103
Poder: 19
JCarlosas Va por buen camino
Hola.
Es exactamente como dice Seoane.
Si lo que quieres es reducir el tamaño del archivo que contien a la imagen modifica la linea que dice.

MyJPEG.CompressionQuality := 100;
en el ejemplo.

Código Delphi [-]
var
         MiBitMap : TBitMap;    
        Begin
           
          MiBitMap := TBitMap.Create;         
          MiBitMap.SetSize(Ancho, Alto);
          
          //AQui dibujo lo que deseo en el bitmap y luego lo salvo como .jpg.
          MyJPEG := TJPEGImage.Create;
          try
           MyJPEG.Assign(MiBitMap);
           MyJPEG.CompressionQuality  := 100;
           MyJPEG.SaveToFile(FileName);
          finally
           MyJPEG.Free;
          end;
       end;

Un numero menor de 100 te dara una mayor compresion del archivo que la contiene, pero la imagen tendra una menor calidad.
Con ese valor es neceario jugar hasta obtener una calidad aceptable y un tamaño de archivo requerido.
Cabe aclarar que no todas los ficheros de imagenes se reducen al mismo tamaño independientemente que las dimensiones de la imagen (Ancho por alto de la imagen en pixel) sean identicas. Depende en gran medida el contenido de la imagen como tal.
Bueno chao.
Saludos a todos.

Última edición por JCarlosas fecha: 25-04-2007 a las 16:26:29.
Responder Con Cita
Respuesta



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
como cambiar resolucion al ejecutar programa Mark002 Windows 1 08-02-2007 10:42:17
Cambiar Resolución de windows jorgito.crazy API de Windows 3 25-12-2006 05:37:20
CAMbiar resolucion imagen en ejecucion salvanano Gráficos 6 08-09-2006 14:22:33
¿Como resolveis las diferencias de resolución de pantalla? Tejares Varios 3 16-06-2006 12:40:07
¿Adaptar a cualquier resolución o cambiar a la que to quiera? Jan_polero Gráficos 1 23-11-2004 11:37:35


La franja horaria es GMT +2. Ahora son las 22:42:44.


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
Copyright 1996-2007 Club Delphi