ERROR EN TESTUZIP.PRG

[karinha]

Maestro, TESTUZIP.PRG me retorna estos errores, mismo si llamo HBZIP.LIB

Que falta?

ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³ FiveWin for xHarbour 13.03 - Mar. 2013 xHarbour development power ³Ü
³ (c) FiveTech, 1993-2013 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 ³Û
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
Compiling...
xHarbour 1.2.3 Intl. (SimpLex) (Build 20130326)
Copyright 1999-2013, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'testuzip.prg' and generating preprocessed output to 'testuzip.ppo'...

Generating C source output to 'testuzip.c'...
Done.

Lines 110, Functions/Procedures 3, pCodes 354
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
testuzip.c:
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_FUN_UNZIPFILE' referenced from C:\FWH1303\SAMPLES\TESTUZIP.OBJ
Error: Unresolved external '_HB_FUN_ISZIP' referenced from C:\FWH1303\SAMPLES\TESTUZIP.OBJ
Error: Unresolved external '_HB_FUN_GETFIRSTINZIP' referenced from C:\FWH1303\SAMPLES\TESTUZIP.OBJ
Error: Unresolved external '_HB_FUN_GETNEXTINZIP' referenced from C:\FWH1303\SAMPLES\TESTUZIP.OBJ
Error: Unresolved external '_HB_FUN_CLOSEZIPFILE' referenced from C:\FWH1303\SAMPLES\TESTUZIP.OBJ
* Linking errors *

Regards, saludos.

[LuisPonce]

Karinha

Me parece que falta añadir el ZLIB.LIB a tu archivo de enlace

Saludos

[karinha]

Luis, está inclusa en el Buildx.bat de Fivewin 13.03.

Gracias.

[Antonio Linares]

João,

Si no me equivoco, ese ejemplo es solo para FiveWin para Clipper, y deberíamos haberlo eliminado de FiveWin para Harbour.

Lo siento...

[karinha]

Gracias maestro, ya logré exito con TESTZIP.PRG

Desculpe el incomodo, estoy haciendo pruebas con mi nueva versión de FIVEWIN, que está marabillosa.

Muchas gracias.

Regards, saludos.

[LuisPonce]

Karinha,

Checa estas funciones, a mi me funcionan!!

STATIC FUNCTION Comprime(cFile,aFile)
LOCAL oDlg,oMeter,oText,cMsg,nLen,lVal,nActual:=0
nLen:=Len(aFile)
DEFINE DIALOG oDlg FROM 1, 1 TO 10, 60 TITLE "Espere, reuniendo archivos..."
@ 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

oDlg:bStart:={||lVal:=Hb_ZIPFILE(cFile,aFile, 9,{|cFile,nPos|oText:SetText("Comprimiendo "+cFile),;
nActual:=nPos/nLen*100,oMeter:Set(nActual)} ),;
IF(lVal,MsgInfo("Proceso Realizado con éxito"+CRLF+CRLF+;
"Fichero guardado "+cFile,cVersion),;
MsgStop("No se pudo realizar el Backup")),;
oDlg:END()}
ACTIVATE DIALOG oDlg CENTERED
RETURN lVal

//----------------------------------

STATIC FUNCTION Descomprime(cFile,cPathDescarga)
LOCAL oDlg,nFiles,aFiles,oText, cMsg, oMeter,nActual:=0

DEFAULT cPathDescarga:="E:\"

IF FILE(cFIle)

aFiles:=hb_GetFilesInZip(cFile)
// aFiles:=hb_GetFilesInZip(cFile,.t.)
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
oDlg:bStart:={||lVal:=Hb_UnZipFile(cFile,{|cFile,nPos|oText:SetText("Descomprimiendo"+CRLF+cFile),;
nActual:=nPos/nFiles*100,oMeter:Set(nActual)},.T.,,cPathDescarga,aFiles,NIL ),;
IF(lVal,MsgInfo("Restauracion completada con éxito"+CRLF+CRLF,cVersion),;
MsgStop("No se han podido restaurar los datos")),;
oDlg:END()}

ACTIVATE DIALOG oDlg CENTERED

ENDIF

RETURN NIL

Saludos

[karinha]

Gracias Luis, voy probrar.