Buenas tardes.
Necesito descompactar un zip desde mi aplicacion, quizas ya alguien lo tiene resuelto.
Muchas gracias.
Jorge Jaurena
Archivo ZIP
Re: Archivo ZIP
João Santos - São Paulo - Brasil
- Busmatic_wpb
- Posts: 162
- Joined: Wed Feb 22, 2017 2:19 am
Re: Archivo ZIP
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
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
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
_@Situcr.com
Desarrollos BA4/B4j androide
-
- Posts: 145
- Joined: Fri Oct 21, 2005 6:35 pm
Re: Archivo ZIP
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
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
- Posts: 162
- Joined: Wed Feb 22, 2017 2:19 am
Re: Archivo ZIP
Hola.
Debe de incluir esta libreria en tu compilacion
hbziparc
Suerte..
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
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
_@Situcr.com
Desarrollos BA4/B4j androide