Componente para Thumbnails

[mrnovice]

Empezado por mamu

Exactamente, la funcion es TestImage, pero ojo, cada vez que compares, tenes que liberar uno a uno (free) la componente imagen que uses, sino, el error se arrastra. En la documentación no encontré nada sobre esto, de hecho, cuando solo comparaba una imagen para ver si era válida, el free daba lo mismo, pero no pasa cuando son muchas. De todas maneras es el componente más rapido que probé.

Busca "Jpg/BMP a máxima velocidad", y fijate en el post que una vez inicie que hay info muy buena, e incluso arme una parodia de cronometrar el tiempo de ejecucion (en tiempo real) para divertir a los amigos foristas. Ahi mismo hablamos sobre las V.I.L.

Un saludo.

Te agradezco mucho la atención lo leí muy rapido y probe el código de las resoluciones y si funciona lo que no me funcionó es la idea se puede saber que he estado haciendo mal?
please

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  img:TImageData;
begin
  If OpenPictureDialog1.Execute then
    Begin
      Imaging.InitImage(Img);
      Imaging.LoadImageFromFile(OpenPictureDialog1.FileName,img);
      if Imaging.TestImage(Img) then
        begin
          //es verdero
          jvthumbview1.AddFromFile(OpenPictureDialog1.FileName);
          Imaging.FreeImage(Img);
        end;
    End;
end;

estuve agregando de manera manual las imágenes pero a la 5 me truena con esa excepción que ya me trae de cabeza omg!!!! jeje no queria poner la carita pero esa excepción ya!!!!, voy a seguir intentando pero estoy seguro de que me falta algo.... gracias
Saludos.

[MaMu]

El problema es que no estas controlando la excepción, para evitar esto, primero tenés que analizar si la imagen es válida y de ser así cargarla, ya que si lo haces al revéz, la excepción genera un error por estar cargando de antemano un imagen corrupta. Probé el código y si libero cuando una imagen esta corrupta (renombre un exe a jpg y probé!!! ) ya no tengo la excepción. La idea, es que, cuando una imagen sea corrupta, cargues otra que diga error en JvThumb, queda muy bien y das un aviso de que archivo está mal.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var  img:TImageData;
begin  
   If OpenPictureDialog1.Execute 
  then Begin      
   Imaging.InitImage(Img);      
   Imaging.LoadImageFromFile(OpenPictureDialog1.FileName,img);      
     if Imaging.TestImage(Img)   
        then begin //Si es válida la cargo          
         jvthumbview1.AddFromFile(OpenPictureDialog1.FileName);  
     end          
     else begin    
        Imaging.FreeImage(Img); //esta corrupto, libero    
        jvthumbview1.AddFromFile('C:\imageError.bmp');  
     end; 
  End;
end

[mrnovice]

Empezado por mamu

El problema es que no estas controlando la excepción, para evitar esto, primero tenés que analizar si la imagen es válida y de ser así cargarla, ya que si lo haces al revéz, la excepción genera un error por estar cargando de antemano un imagen corrupta. Probé el código y si libero cuando una imagen esta corrupta (renombre un exe a jpg y probé!!! ) ya no tengo la excepción. La idea, es que, cuando una imagen sea corrupta, cargues otra que diga error en JvThumb, queda muy bien y das un aviso de que archivo está mal.


Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var img:TImageData;
begin
If OpenPictureDialog1.Execute
then Begin
Imaging.InitImage(Img);
Imaging.LoadImageFromFile(OpenPictureDialog1.FileName,img);
if Imaging.TestImage(Img)
then begin //Si es válida la cargo
jvthumbview1.AddFromFile(OpenPictureDialog1.FileName);
end
else begin
Imaging.FreeImage(Img); //esta corrupto, libero
jvthumbview1.AddFromFile('C:\imageError.bmp');
end;
End;
end

Gracias nuevamente, rayos y recontrarrayos me sigue pasando a la 5ta imagen me sale la excepción, puse el código que me pusiste no será que falta el With EoUtOfresources do begin ...end;? a eso te referias, podria pasrte la imagen, voy a seguir investigando :::..ando corto de tiempo saludos y muchas gracias, compensare toda la ayuda en cuanto pueda gracias

[MaMu]

Empezado por mrnovice

Gracias nuevamente, rayos y recontrarrayos me sigue pasando a la 5ta imagen me sale la excepción, puse el código que me pusiste no será que falta el With EoUtOfresources do begin ...end;? a eso te referias, podria pasrte la imagen, voy a seguir investigando :::..ando corto de tiempo saludos y muchas gracias, compensare toda la ayuda en cuanto pueda gracias

Y si, en que partes contemplas el tratamiento de un archivo corrupto?