archivo.jpg está dañado

[karinha]

Verificación de que un archivo.jpg está dañado a través de FiveWin és posible?

Gracias, saludos.

[Baxajaun]

Hola Joao,

puedes utilizar jpeginfo para comprobar su estado. Alguien que controle c puede pasar el código a FWH.

https://github.com/tjko/jpeginfo

Saludos

[hmpaquito]

"Dañado" es un término ambiguo porque podría haber partes del archivo que no estuvieran dañadas y otras que si lo estuvieran.

Se me ocurre que para comprobarlo, se podria abrir con la clase image y ver si es posible obtener el tamaño en pixeles. Si devuelve 0,0 es candidato a erroneo.

[karinha]

Resuelto,

Code: Select all  Expand view

#include "FiveWin.ch"

Function u_Teste()

   //Local cFile := cGetFile( "*.*", "Seleccione um arquivo" )

   local cFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" +         ;
                            "DIB   (*.dib)| *.dib|" +          ;
                            "PCX   (*.pcx)| *.pcx|"  +         ;
                            "JPEG  (*.jpg)| *.jpg|" +          ;
                            "GIF   (*.gif)| *.gif|"  +         ;
                            "TARGA (*.tga)| *.tga|" +          ;
                            "RLE   (*.rle)| *.rle|" +          ;
                            "All Files (*.*)| *.*"             ;
                           ,"Please select a image file", 4 )

   IF EMPTY( cFile )

      MsgStop( "Please select a image file", "Please select a image file" )

      RETURN NIL

   ENDIF

   If ValidJpg( cFile )

      MsgInfo( "Imagem válida", "Imagem válida" )

   Else

      MsgInfo( "Imagem inválida", "Imagem inválida" )

   EndIf

Return Nil

Static Function ValidJpg(cArq)

Return FITypeFromMemory(MemoRead(cArq)) >= 0

/*
By

Eduardo Motta
EMotta Sistemas - www.emotta.com.br

http://fivewin.com.br/index.php?/topic/ ... resolvido/
*/
 

Gracias, saludos.


[ACC69]

Resuelto,

Code: Select all  Expand view

#include "FiveWin.ch"

Function u_Teste()

   //Local cFile := cGetFile( "*.*", "Seleccione um arquivo" )

   local cFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" +         ;
                            "DIB   (*.dib)| *.dib|" +          ;
                            "PCX   (*.pcx)| *.pcx|"  +         ;
                            "JPEG  (*.jpg)| *.jpg|" +          ;
                            "GIF   (*.gif)| *.gif|"  +         ;
                            "TARGA (*.tga)| *.tga|" +          ;
                            "RLE   (*.rle)| *.rle|" +          ;
                            "All Files (*.*)| *.*"             ;
                           ,"Please select a image file", 4 )

   IF EMPTY( cFile )

      MsgStop( "Please select a image file", "Please select a image file" )

      RETURN NIL

   ENDIF

   If ValidJpg( cFile )

      MsgInfo( "Imagem válida", "Imagem válida" )

   Else

      MsgInfo( "Imagem inválida", "Imagem inválida" )

   EndIf

Return Nil

Static Function ValidJpg(cArq)

Return FITypeFromMemory(MemoRead(cArq)) >= 0

/*
By

Eduardo Motta
EMotta Sistemas - http://www.emotta.com.br

http://fivewin.com.br/index.php?/topic/ ... resolvido/
*/
 

Gracias, saludos.


Gracias Ing. Karinha por la rutina, es bueno tenerlo a futuro.

Saludos

Atte: Adrian C. C.