Problemas con ZIP

Problemas con ZIP

Postby Marcelo Via Giglio » Tue Jul 22, 2008 3: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: 1069
Joined: Fri Oct 07, 2005 3:33 pm
Location: Cochabamba - Bolivia

Re: Problemas con ZIP

Postby Marcelo Via Giglio » Tue Jul 22, 2008 3: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
Marcelo Via Giglio
 
Posts: 1069
Joined: Fri Oct 07, 2005 3:33 pm
Location: Cochabamba - Bolivia

Re: Problemas con ZIP

Postby mmercado » Tue Jul 22, 2008 4: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  Expand view  RUN
   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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby Marcelo Via Giglio » Tue Jul 22, 2008 4:29 pm

Manuel,

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

un abrazo

Marcelo
Marcelo Via Giglio
 
Posts: 1069
Joined: Fri Oct 07, 2005 3:33 pm
Location: Cochabamba - Bolivia


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 33 guests