Archivo ZIP

[Jorge Jaurena]

Buenas tardes.

Necesito descompactar un zip desde mi aplicacion, quizas ya alguien lo tiene resuelto.
Muchas gracias.

Jorge Jaurena

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=36159&p=215459&hilit=blite#p215459

[Busmatic_wpb]

Estimado mira yo lo hago asi inclusive puedes utilizar los 7.zip y el winrar. ambos desde consola, pero yo utilizo la lib de xharbour y resa asi..

Harbour Reference Guide
hbziparc lib
https://harbour.github.io/doc/hbziparc. ... _unzipfile


Function ZipCompoacto()

Local cFileDescargas := hb_CurDrive() + ":\" + "descargas\"+alltrim(oP:vPlacas)+"_"+AtRepl(":",Time(),"" )+"_"+AtRepl( "/", DtoC(Date()), "" )+".sql"
Local cFileDescargas1 := hb_CurDrive() + ":\" + "descargas\"+alltrim(oP:vPlacas)+"_"+AtRepl(":",Time(),"" )+"_"+AtRepl( "/", DtoC(Date()), "" )+".zip"


MSGRun( "Generando ventas , espere por favor...",;
"Creando... " ,;
{||oConVentas:Backup( aSelect, cFileDescargas , lDrop )} )


lOk := HB_ZipFile( cFileDescargas1, cFileDescargas, 9,,,"mipassword",.F.)

if !lOk
msgwait(">ZIp< 120-001 no procesado",Error en ZIP" ,1)
return nil
ENDIF

Return nil


y para descomprimir utiliza algo asi...

FUNCTION Descomprime()

Local xcNewFile := "c:\recibir\Tarifas.zip"


IF FILE( xcNewFile )
Hb_UnZipFile(xcNewFile,,,"mipassword",, .f.)
RETURN NIL
endif

Return NIL

[Jorge Jaurena]

Muchas gracias por las respuestas.
Me voy a inclinar por la alternativa de usar hbziparc.lib que la encontre en la carpeta Harbour pero al enlazar me da varios errores, no se si necesita algun include.
Uso FHW y Harbour

Gracias.
Jorge Jaurena

[Busmatic_wpb]

Hola.
Debe de incluir esta libreria en tu compilacion

hbziparc

Suerte..