Archivo ZIP

Post Reply
Jorge Jaurena
Posts: 145
Joined: Fri Oct 21, 2005 6:35 pm

Archivo ZIP

Post by Jorge Jaurena »

Buenas tardes.

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

Jorge Jaurena
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Archivo ZIP

Post by karinha »

João Santos - São Paulo - Brasil
User avatar
Busmatic_wpb
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: Archivo ZIP

Post by 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
Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
_@Situcr.com
Desarrollos BA4/B4j androide
Jorge Jaurena
Posts: 145
Joined: Fri Oct 21, 2005 6:35 pm

Re: Archivo ZIP

Post by 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
User avatar
Busmatic_wpb
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: Archivo ZIP

Post by Busmatic_wpb »

Hola.
Debe de incluir esta libreria en tu compilacion

hbziparc

Suerte..
Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
_@Situcr.com
Desarrollos BA4/B4j androide
Post Reply