Problema con tUnZipFile

[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.

[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

[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.

[ignacio]

No hay fichero adjunto.

Un saludo

[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.

[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

[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?

[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