TUnZipLib Problemas con los acentos

[bingen]

Buenas xTeam, tengo un problema con los archivos ZIP que contienen a su vez archivos comprimidos con acentos.

Por ejemplo mi zip contiene un archivo llamado
Reports/Facturación.Ini

Y el tUnZipLib solamente con pedirle que me muestre los archivos que contiene

WITH OBJECT oZip := TUnZipFile()
:cFileName := "Patch.zip"
aFilesFTP := oZip:aFiles
END

me lo muestra como
Reports/Facturaci¢n.Ini

y así con todos los acentos, por lo tanto me falla luego todo.

No encuentro nada en la clase para indicarle el tipo set de caracteres ni nada parecido, que puedo hacer.

Gracias y salu2.

[ignacio]

Buenos días,

Xailer utiliza una librería del propio Harbour para este propósito. He estado investigando las funciones de Harbour y veo que existe un parámetro lUnicode en la creación de los archivos ZIP. He modificado el módulo ZipArchive.prg incluyendo dos nuevas propiedades: cComment y lUnicode. Te adjunto el módulo modificado por si quieres probarlo poniendo lUnicode a verdadero.

Un saludo

[bingen]

Gracias lo probaré pero el ZIP no está hecho con Xailer, sino con Winrar.

Lo he descomprimido con WinRar, con 7Zip y con Windows y el resultado es correcto, el problema es al descomprimirlo con Xailer.

Voya a investigar si entonces WinRar tiene algo parecido y si no a quitar acentos...

Salu2.

[bingen]

No hay nada en Winrar sobre Unicode ni nada

Lo he probado a comprimir con /zip y lo mismo

Voy a intentarlo con Xailer mañana a ver.

Salu2.

[bingen]

Ignacio, no he metido la modificación que me has propuesto aún para el ZIP de Xailer, pero he utilizado la opción de Exportar proyecto, es decir que he hecho un ZIP con Xailer y abro el ZIP con WinRar y resulta que los acnetos se han cambiado por caracteres de 3/4.

Pero al usar UnZip para descomprimirlo recupera los acentos correctamente.

No se que pasará con lo que me has enviado, mañana te digo.

Salu2.

[bingen]

Lo siento Ignacio en la línea 179 del ZipArchive.Prg que me envías hay 2 variables p y c que no existen ????

HB_ZipFileCreate( hZip, cFile, dDate, cTime, 0, nAttr,, ;
::nCompressionLevel,p,c,::cComment, ::lUnicode )