Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-03-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 22
cHackAll Va por buen camino
Cita:
Empezado por mamu Ver Mensaje
Tiempo de proceso V.I.L.: 6m-18s
Tiempo de proceso D.Seoane: 1m-04s
Tiempo de proceso cHackAll: 2m-27s
mamu, cronometraste la comparacion de BMP + JPG en todos los casos?
en fin... habra que darle una oportunidad a los benditos Streams


Felicidades amigo seoane

Saludos
Responder Con Cita
  #2  
Antiguo 10-03-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Poder: 21
MaMu Va por buen camino
dec

Si, estoy usando a bajo nivel, y la forma que empleo es la siguiente:
Código Delphi [-]
 
var imagen:TImageData;
     x,y:integer;
begin
   ...
    LoadImageFromFile(lista[i],imagen);  //cargo la imagen
    if TestImage(imagen)                    //valida=True - archivo_corrupto=False           
       then begin
         x:=imagen.Width;
         y:=Img.Height;
       end;
   ...
end;

El tema del retraso pasa por la siguiente línea ya que tiene dependencia sobre el tamaño del archivo, y no encontré en la documentación otro método mas directo para las propiedades
Código Delphi [-]
LoadImageFromFile(lista[i],imagen);  //cargo la imagen

Con respecto a las funciones
Código Delphi [-]
InitImage(imagen);
FreeImage(imagen);

en este caso no son necesarias en todo momento, ya que no estoy utilizando ninguna de las funciones que se incluyen en las V.I.L. que dependen del TImageData en cuestión

cHackAll

Si, cronometré a las 3 funciones por igual proceso.
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;
Responder Con Cita
  #3  
Antiguo 10-03-2008
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.141
Poder: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Pues tal vez el "TestImage()"... pero, me parece que no. Quiero decir, queda más o menos claro que se carga la imagen completamente, al menos con las funciones de que hablamos. De este modo se puede conseguir mucha información acerca de la imagen, pero, lo que interesa en este caso es conseguir parte de esa información, y por tanto todo el tiempo que se invierta en lo demás será para nada.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #4  
Antiguo 11-03-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Poder: 21
MaMu Va por buen camino
Cita:
Empezado por dec Ver Mensaje
Hola,

Pues tal vez el "TestImage()"... pero, me parece que no. Quiero decir, queda más o menos claro que se carga la imagen completamente, al menos con las funciones de que hablamos. De este modo se puede conseguir mucha información acerca de la imagen, pero, lo que interesa en este caso es conseguir parte de esa información, y por tanto todo el tiempo que se invierta en lo demás será para nada.
Claro, pero el "TestImage()"... es muy util, sobre todo cuando los mal intencionados le cambian la extención a un EXE por BMP/JPG, lo que ahorra código, o cuando simplemente un archivo esta corrupto. De todas maneras, no la estoy usando actualmente para la carga, sino que la uso para la revisión de imágenes, donde informo archivos corruptos, etc.

Otra cosa, yo capture los ticks, haciendo un LoadFromFile a un TImage tradicional, y lo compare con el LoadImageFromFile(), ambos con una imagen de 3.5Mb, el tiempo es idéntico. Y ojo, pienso tambien que esta librería es espectacular, quizas o le estemos pifiando en algo o no me sirve por tratarse de ser muchas fotos (5000 prom).
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;

Última edición por MaMu fecha: 11-03-2008 a las 00:04:59.
Responder Con Cita
  #5  
Antiguo 11-03-2008
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 26
seoane Va por buen camino
Cita:
Empezado por cHackAll Ver Mensaje
No es por competir


Cita:
Empezado por cHackAll Ver Mensaje
en fin... habra que darle una oportunidad a los benditos Streams
Deberías darles esa oportunidad, al final usan las mismas APIs que tu.
Responder Con Cita
  #6  
Antiguo 11-03-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 22
cHackAll Va por buen camino
Cita:
Empezado por seoane Ver Mensaje
Cita:
Empezado por cHackAll Ver Mensaje
en fin... habra que darle una oportunidad a los benditos Streams
Deberías darles esa oportunidad, al final usan las mismas APIs que tu.
Pues no es cierto, yo he utilizado APIs compatibles con 16 bits

PD: creo que la comprobación de formato me ha costado la victoria , sin embargo no olvidemos que el "concurso" de velocidades ha sido comprobado uno tras otro, y luego de que el NTFS ha echo un caché de gran parte de los datos y Sistema de archivos.



Saludos
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Maxima valor de un nuevo registro Arturo_ Tablas planas 8 23-07-2007 22:14:32
Cantidad maxima de hilos ?? marceloalegre Varios 2 18-04-2007 17:27:46
imprimir imagenes en maxima calidad alain Impresión 3 22-06-2006 17:05:50
Longitud máxima para una consulta SQL moesis Conexión con bases de datos 3 17-08-2004 23:54:43
Longitud maxima integer cinecito Varios 10 12-05-2004 03:06:22


La franja horaria es GMT +2. Ahora son las 01:07:58.


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