Uso de Archivos ZIP y Unzip

[carloslmm]

Hola a todos de Nuevo, he querido usar los ejemplos que biene de testzip.prg y no se pueden usar con harbour, me marca unos archivos faltantes, localice la libreria que por aqui se mencionan de hbzip.lib y esta para xharbour, pero de nuevo sigue marcando los mismos errores, no se si por ahi se me paso algo que no alcanse a ver.

Les agradeceria quien me pueda orientar para su uso con harbour

Gracias

Carlos I De La Rosa
carloslmm@hotmail.com
Los Mochis, Sin.
Mexico

[Manuel Aranda]

Antes de hbzip.lib tienes que enlazar la librería pcrepos.lib

[carloslmm]

Gracias Manuel por tu respuesta, pero aun sigue pidiendo los archivos

son los siguientes

_HB_FUN_ZIPFILE
_HB_FUN_ZIPTYPE
_HB_FUN_ZIPBLOCK
_HB_FUN_ZIPMSG

EL srchivo es el de samles testzip.prg

Gracias.

[anserkk]

Dear Mr.Carlos

To use Zip & Unzip functions in xHarbour you have to link hbzip.lib and zlib.lib
Both the lib files are available in your \xHarbour\Lib folder

viewtopic.php?f=3&t=18033#p94332

Regards
Anser

[carloslmm]

Te agradesco tu Respuesta pero aun asi siguen sin funcionar, creo que lo dejare por la paz de momento por ahi lei que habia utilerias para harbour me voy a buscar una.

Gracias de Cualesquier forma a Todos

Saludos

[Biel EA6DD]

En mi blog tienes un articulo que explica como usar ZIP con Harbour.
http://bielsys.blogspot.com/2009/08/usando-ficheros-comprimidos-zip-dede.html

[carloslmm]

Biel Muchisimas gracias

Seguro con esto lo saco adelante, ya lei tu informacion y esta completa, Te agradesco mucho y tambien a los demas compañeros.

Por ahi ya hace tiempo tambien comentaba contigo lo de las camaras y me recomendaste las de axis, no se si ultimamente realizaste pruebas con las funciones de the full y otro colega que realizo una funcion de twebcam32 y con camaras normalitas y tarjetas capturadoras de video funcionan perfetamente para tener de 1 hasta 4 o dependiendo de la capturadora de video las que tenga.


Gracias a todos de nuevo y seguimos en contacto

Carlos I. De La Rosa.
carloslmm@hotmail.com

[ruben Dario]

Para complilar con xharbour con FWH 8.03 que librerias debo usar.
Deacuerdo a los comentarios se debe usar la libreria hbzip.lib y el pcrepos.lib

Al compilarlo me genera este error.

Error: Unresolved external '_inflateEnd' referenced from
Error: Unresolved external '_deflate' referenced from
Error: Unresolved external '_get_crc_table' referenced from
Error: Unresolved external '_deflateEnd' referenced from
Error: Unresolved external '_deflateInit2_' referenced from
Error: Unresolved external '_crc32' referenced from
Error: Unresolved external '_inflateInit2_' referenced from
Error: Unresolved external '_inflate' referenced from

Sera que me falta otra libreria.
Porque las que decen en la documentacion no las tiene la version de xharbour que tengo.
Alguien tiene las librerias necesarias para poder compilar.
Gracias

[anserkk]

Dear Mr.Carlos

To use Zip & Unzip functions in xHarbour you have to link hbzip.lib and zlib.lib
Both the lib files are available in your \xHarbour\Lib folder

viewtopic.php?f=3&t=18033#p94332

Regards
Anser

[MarioG]

Amigos
retomo este hilo porque no le encuentro la vuelta al intentar descomprimir
Mi fuente esta basado en el sample de Biel, ahora bien el proceso de comprimir lo hace perfectamente. Lo que no logro es que descomprima!
Ni siquiera con el sample; el codigo es:

Code: Select all  Expand view

STATIC FUNCTION Descomprime(cFile)

   LOCAL oDlg,nFiles,oText, cMsg, lVal, oMeter,nActual:=0

   nFiles:=Len(hb_GetFilesInZip(cFile))

   DEFINE DIALOG oDlg FROM 1, 1 TO 10, 60 TITLE "Espere ejecutando recuperación de datos..."

   @ 0.5, 2  SAY oText VAR cMsg SIZE 180, 20 OF oDlg

   @ 2, 2 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 200, 20
[b]? "Existe", File( cfile ), cfile[/b]
   oDlg:bStart:={||lVal:=Hb_UnZipFile('bdcentral.zip',{|cFile,nPos|oText:SetText('Descomprimiendo'+CRLF+cFile),;
                                                         nActual:=nPos/nFiles*100,oMeter:Set(nActual)} ),;
                          IF(lVal,MsgInfo('Restauracion completada con éxito'+CRLF+CRLF,'Bielsys 2009'),;
                           MsgStop('No se han podido restaurar los datos')),;
                   oDlg:END()}

   ACTIVATE DIALOG oDlg CENTERED

RETURN NIL
 

La linea resaltada la puse para comprobar y, obviamente da verdadero.
También, leyendo otros post, puse hbzip.lib y zlib.lib antes de las five, sin exito
estoy usando xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6717)
alguna sugerencia?

[anserkk]

The below given code is Working fine for me (xHarbour).

Code: Select all  Expand view

....
.....
cDrive:="D:"
@05,14 BUTTONBMP oBtnInstall PROMPT "Install on "+cDrive+" Drive" TEXTRIGHT SIZE 50,20 ;
         ACTION { lOk:=ExtractZip(cDrive) }


*------------------------------------*
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.ans")

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

Regards
Anser

[MarioG]

Anser, many thanks
you are right; hb_unzipfile only unpack it, if all the parameters are present

Regards