Componente para Thumbnails

[mrnovice]

no tiene nada que ver pero tenias llena la bandeja de entrada de mensajes privados
-----
Saludos buen día, disculpe que lo meste, este me he fijado en el foro y parece que tiene experiencia en el manejo de este componente de JEDI DSL, has de cuenta estoy haciendo una aplicación pero el componente nosé si tenga una especia de bug, es decir cuando cargo dos imágenes de un directorio 'c:\x' no hay problema las imágenes son 2480 x 3507 formato jpg tamaño aproximado de 150 kb a 300 kb pero cuando pones muchas me aparece el error EOutOfResources 'Espacio de almacenamiento insuficiente para procesar este comando', no se si hays o escuchado de esta experiencia, alguna idea para solucionarlo, lo que pasa es que las imágenes que se procesan son de tamaño similar pero intente algo de las excepciones pero no me funcionó tal vez no lo implemente incluso con el except on EOutOfResources y pues no auxilio es de vital importancia para mi, o algún componente similar?

[MaMu]

Empezado por mrnovice

no tiene nada que ver pero tenias llena la bandeja de entrada de mensajes privados
-----
Saludos buen día, disculpe que lo meste, este me he fijado en el foro y parece que tiene experiencia en el manejo de este componente de JEDI DSL, has de cuenta estoy haciendo una aplicación pero el componente nosé si tenga una especia de bug, es decir cuando cargo dos imágenes de un directorio 'c:\x' no hay problema las imágenes son 2480 x 3507 formato jpg tamaño aproximado de 150 kb a 300 kb pero cuando pones muchas me aparece el error EOutOfResources 'Espacio de almacenamiento insuficiente para procesar este comando', no se si hays o escuchado de esta experiencia, alguna idea para solucionarlo, lo que pasa es que las imágenes que se procesan son de tamaño similar pero intente algo de las excepciones pero no me funcionó tal vez no lo implemente incluso con el except on EOutOfResources y pues no auxilio es de vital importancia para mi, o algún componente similar?

A mi me pasaba exactamente lo mismo, y evite esa excepción chequeando que la imágen sea un archivo válido y no este corrupto antes de cargarla en un jvThumb. Para hacer esto, busca las Vampire Image Library, que una vez me recomendo dec aqui en el foro, y desde entonces no he dejado de usarlas.

Saludos

[mrnovice]

Empezado por mamu

A mi me pasaba exactamente lo mismo, y evite esa excepción chequeando que la imágen sea un archivo válido y no este corrupto antes de cargarla en un jvThumb. Para hacer esto, busca las Vampire Image Library, que una vez me recomendo dec aqui en el foro, y desde entonces no he dejado de usarlas.

Saludos

Saludos, gracias por la pronta respuesta en serio gracias es bueno saber que no soy el único con este problema, me sentía algo frustrado, El VCL de Vampyre Imaging Library afortunadamente lo tengo voy a buscar esa función luego te digo cómo me fue, saludos, <no se si parte del problema te aparecio 'Floating point division by zero'? supongo que va de la mano con EOutOfResources, saludos buen día. >Ya estoy viendo el post que hiciste acerca el de point divion by zero, lo estoy checando, hay disculpa
Espero hacer funcionar esto jejeje aunque sea a golpes al monitor jajaj a veces pasa XD

[mrnovice]

Empezado por mamu

A mi me pasaba exactamente lo mismo, y evite esa excepción chequeando que la imágen sea un archivo válido y no este corrupto antes de cargarla en un jvThumb. Para hacer esto, busca las Vampire Image Library, que una vez me recomendo dec aqui en el foro, y desde entonces no he dejado de usarlas.

Saludos

ya estuve analizando Vampyre Imagin Library pero , cual fue la funciòn que usaste, fue acaso testImage?, ahhhh! ya quiero resolverlos saludos y gracias nuevamente

[MaMu]

Empezado por mrnovice

ya estuve analizando Vampyre Imagin Library pero vi que es un Timage32 y un Timage, no habra problemas de compatibilidad, cual fue la funciòn que usaste, fue acaso testImage?, ahhhh! ya quiero resolverlos saludos y gracias nuevamente

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.

[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