Página 1 de 1
Problema con tUnZipFile
Publicado: Mar Jun 09, 2015 12:43 pm
por bingen
Buenas xTeam me pasa algo curioso tengo un ZIP con unos archivos y una carpeta con mas archivos, pero al descomprimirla descomprime los primeros, crea la carpeta y no mete nada en ella devolviendo un .F. en el ::Run().
Si pregunto por ::aFiles() me muestra todos los archivos completos.
He probado a meter cFileMask de todo tipo pero nada de nada. ¿Hago algo mal o es que falla tUnZipFile ?
WITH OBJECT oZip:=TUnzipFile()
:cFileName := Application:cDirectory+"Ocx\CEFBrowser.zip"
:cDirectory := Application:cDirectory+"Cef"
:lIncludePath:=.T.
lOk:=:Run()
END
Es curioso si además en el zip los archivos del raiz estan por delante de la carpeta los decomprime y si estan por detras de la carpeta tampoco los decomprime.
Re: Problema con tUnZipFile
Publicado: Mar Jun 09, 2015 3:59 pm
por ignacio
Hola Bingen,
Lo siento pero no consigo entender exactamente el problema. Si me pudieses decir como reproducirlo con los ejemplos de Xailer te lo agradezco.
Un saludo
Re: Problema con tUnZipFile
Publicado: Mié Jun 10, 2015 9:23 am
por bingen
Hola Ignacio te adjunto un pequeño ZIP que tiene tres archivos y una carpeta "locales" con ocho archivos.
Cuando intento descomprimirlo con tUnZipFile me descomprime los tres archivos y me crea la carpeta "locales" pero ni rastro de los ocho archivos, no los descomprime.
Este Zip esta en una carpeta OCX dentro de mis aplicaciones y la quiero descomprimir a una carpeta CEF dentro de la aplicación si me hace falta con el código que te he adjuntado en el anterior mensaje.
Gracias.
Re: Problema con tUnZipFile
Publicado: Mié Jun 10, 2015 12:44 pm
por ignacio
No hay fichero adjunto.
Un saludo
Re: Problema con tUnZipFile
Publicado: Mar Jun 23, 2015 10:59 am
por bingen
LO siento Ignacio raya el ridículo, no puedo adjuntar el ZIP, me explico.
Resulta que lo hice muy pequeño para no tener problemas con 8 archivos 220Kb, pues lo adjunto y a la derecha de la línea Attachments me dice que está vacio, venga pues lo mando entero, entonces me dice que es too large y empiezo a quitar cosas hasta que ya no me dice que es too large sino que me dice que está vacio.....
Jugando a locos, ya sabes.
Te dejo un enlace a DropBox a ver si así
https://www.dropbox.com/s/s8kfvfpdbrvdb ... r.zip?dl=0
Muchas gracias.
Re: Problema con tUnZipFile
Publicado: Mar Jun 23, 2015 12:09 pm
por ignacio
Hola Bingen,
Modifica el archivo ZipArchive.prg línea 444:
Código: Seleccionar todo
IF !lExtract .OR. nSize == 0 // <<<<<<<<<<<<<<<<<< AQUI
nPos += nSize
::OnProgress( nPos, nTotal )
nNext := HB_UnzipFileNext( hUnZip )
LOOP
ENDIF
Espero que te funcione correctamente.
Un saludo
Re: Problema con tUnZipFile
Publicado: Mié Jun 24, 2015 7:11 pm
por bingen
Gracias Ignacio ahora si que funciona. Supongo que vendrá así en la próxima versión y tendré que acordarme de quitar el PRG de la compilación no?
Re: Problema con tUnZipFile
Publicado: Mié Jun 24, 2015 8:25 pm
por ignacio
Lógicamente. Te aconsejo que modifiques directamente el fichero original en Xailer\source y lo añadas al proyecto desde esa misma ubicación. De esta forma no tienes que recordarte de nada.
Saludos