topic-11999

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Problemas con ZIP
Posted: Tue Jul 22, 2008 03:29 PM

Holas,

tengo un problema con HB_UNZIPFILE, si bien esto es de xHabour, estoy utilizando el xHabour que venia con FWH8.04, pero no extracta los archivos, lo estoy utilizando de la siguiente manera

aExtract := hb_GetFilesInZip( cFile )
HB_UNZIPFILE( cFile ,,,,CurDrive()+':\'+CurDir(), aExtract )

En aExtract se tiene todos los archivos del ZIP (cFile) pero no se llegan a extraer, he probado como destino ".\" y otras cosas mas , pero nada.

Alguna idea??

saludos

Marcelo

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Re: Problemas con ZIP
Posted: Tue Jul 22, 2008 03:58 PM

Holas,

solucionado actualizando la version de xHabour (una que encontre en el sitio de FT que parece ser del 26 de junio) + la libreia zlib + actualizar las LIB de ADS a 8.1 para que arranque el XH sin gritar.

Ahora mi problema, tendria que compilar mis propias ADS.LIB para que jale con ADS 7.1, alguien ya las tiene?

Bueno gracias por la atencion

saludos

Marcelo

Marcelo Via Giglio wrote:Holas,

tengo un problema con HB_UNZIPFILE, si bien esto es de xHabour, estoy utilizando el xHabour que venia con FWH8.04, pero no extracta los archivos, lo estoy utilizando de la siguiente manera

aExtract := hb_GetFilesInZip( cFile )
HB_UNZIPFILE( cFile ,,,,CurDrive()+':\'+CurDir(), aExtract )

En aExtract se tiene todos los archivos del ZIP (cFile) pero no se llegan a extraer, he probado como destino "." y otras cosas mas , pero nada.

Alguna idea??

saludos

Marcelo

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: Problemas con ZIP
Posted: Tue Jul 22, 2008 04:10 PM

Marcelo Via Giglio wrote:tengo un problema con HB_UNZIPFILE, si bien esto es de xHabour, estoy utilizando el xHabour que venia con FWH8.04, pero no extracta los archivos, lo estoy utilizando de la siguiente manera

aExtract := hb_GetFilesInZip( cFile )
HB_UNZIPFILE( cFile ,,,,CurDrive()+':\'+CurDir(), aExtract )

Hola Marcelo:

Como yo lo hago funciona y es mas o menos de la siguiente manera:

Code: Select all Collapse

   aFiles := hb_GetFilesInZip( cFile, .T. )
   aExtract := {}
   AEval( aFiles, {|e| AAdd( aExtract, e[ 1 ] ) } )
   HB_UNZIPFILE( cFile ,,,,CurDrive()+':\'+CurDir(), aExtract )

Espero te sirva, un abrazo.

Manuel Mercado

manuelmercado at prodigy dot net dot mx

Marcelo Via Giglio

Posts: 1088

Joined: Fri Oct 07, 2005 03:33 PM

Problemas con ZIP
Posted: Tue Jul 22, 2008 04:29 PM

Manuel,

como siempre gracias por tus consejos, lo solucione cambiando de xHarbour

un abrazo

Marcelo

FiveTech Support Forums

Continue the discussion