no puedo descomprimir un zip con xharbour RESUELTO

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

no puedo descomprimir un zip con xharbour RESUELTO
Posted: Sun May 06, 2012 09:37 PM

Hola alguien pe podría ayudar ya pase 2 días y no puedo descomprimir un archivo zip con el xharbour :cry:
sigo los ejemplos y no funciona nada
si me crea muy bien el zip pero no lo descomprime
ya estoy cansada espero me puedan ayudar

Saluditos :wink:

Ya lo logre con ayuda de un ejemplo de Manuel Mercado

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=11999&p=59579&hilit=hb+unzipfile#p59579

Code: Select all Collapse

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

a si me quedo y funciona

Code (fw): Select all Collapse

 lOKUnZip :=    HB_UNZIPFILE( cSourceZip ,bOnZipFile,nPasswZip,CurDrive()+':'+CurDir(),cTargetZip+ "\", aExtract )

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: no puedo descomprimir un zip con xharbour RESUELTO
Posted: Mon May 07, 2012 12:06 PM

Please check the parameters and their orders of the function hb_unzipfile()

Code: Select all Collapse

*------------------------------------*
Function ExtractZip(cDrive)
*------------------------------------*
Local aFiles,lOk,cDriveLetter
/* Zip and Unzip functions, should include the libs named HbZip & zlib available in \xHarbour\lib */
cDriveLetter:=cDrive+"\"

/* Array containing the list of files in the Zip with Path*/
aFiles := hb_GetFilesInZip("Sam.zip") 

/* The 3rd Parameter should be .T. if you need to extract contents of zip file as per Path */
lOk := hb_unzipfile("Sam.zip",,.T.,,cDriveLetter,aFiles,NIL)
Return lOk

Regards
Anser

FiveTech Support Forums

Continue the discussion