Help : Zip sample prg, TestZip.Prg error

[sanilpmc]

Dear All,

Can I have any working sample for Zip and Unzip.

I tried compiling the \FWH\SAMPLES\TestZip.Prg using Harbour and xHarbour via BuildH.Bat and BuldX.Bat

I am getting the following error message. Any idea which libraries to be included in case of Harbour and xHarbour

Code: Select all  Expand view  RUN

Compiling...
xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6154)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'C:\FWH\samples\testzip.prg' and generating preprocessed output to 'C:\FWH\samples\testzip.ppo'...

Lines 172, Functions/Procedures 4
Generating C source output to 'testzip.c'...
Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
C:\FWH\samples\testzip.c:
Borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_ZIPFILE' referenced from C:\FWH\SAMPLES\TESTZIP.OBJ
Error: Unresolved external '_HB_FUN_ZIPTYPE' referenced from C:\FWH\SAMPLES\TESTZIP.OBJ
Error: Unresolved external '_HB_FUN_ZIPBLOCK' referenced from C:\FWH\SAMPLES\TESTZIP.OBJ
Error: Unresolved external '_HB_FUN_ZIPMSG' referenced from C:\FWH\SAMPLES\TESTZIP.OBJ
* There are errors


Thanks in advance

Sanil

[StefanHaupt]

Sanil,

you have include hbzip.lib in your link script

[mmercado]

Dear All,

Can I have any working sample for Zip and Unzip.

I tried compiling the \FWH\SAMPLES\TestZip.Prg using Harbour and xHarbour via BuildH.Bat and BuldX.Bat

Hi Sanil:

TestZip.prg is a 16 bits Clipper program, here you are a little working sample:

Code: Select all  Expand view  RUN

#include 'fivewin.ch'

#define HBL_ZIPLEVEL        9
#define XBL_ZIPOVERWRITE    .T.
#define XBL_ZIPWITHPATH     .T.
#define XBL_GETFULL_INFOZIP .T.

Function Main()

   Local oDlg, oBtn[ 3 ], oMtr, oFont, ;
         nProgr := 0

   DEFINE FONT oFont NAME "Verdana" SIZE 0, -11
   DEFINE DIALOG oDlg FROM 0, 0 TO 300, 400 PIXEL TITLE "Testing Zip functions with FWH and xHarbour"


   @ 10, 20 BUTTON oBtn[ 1 ] PROMPT "Zip Databases" OF oDlg SIZE 40, 15 PIXEL ACTION ZipDatabases( oMtr )

   @ 30, 20 BUTTON oBtn[ 2 ] PROMPT "Exit" OF oDlg SIZE 40, 15 PIXEL ACTION oDlg:End()

   @129,  3 METER oMtr VAR nProgr PROMPT "Progress" OF oDlg ;
            FONT oFont UPDATE TOTAL 16 ;
            COLORS CLR_HGRAY, CLR_BLACK BARCOLOR CLR_HBLUE, CLR_YELLOW SIZE 191, 15 PIXEL

   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()

Return Nil

Static Function ZipDatabases( oMtr )

   Local nEle, aFiles, aSizes, ;
         nTotal     := 0, ;
         bOnZipFile := { | cFile, nFile | nTotal += aSizes[ nFile ], oMtr:Set( nTotal ), SysRefresh() }, ;
         aDirectory := Directory( "*.dbf" ), ;
         cZipName   := "Databases.zip"

   aFiles := {}
   aSizes := {}

   For nEle := 1 To Len( aDirectory )
      AAdd( aFiles, aDirectory[ nEle, 1 ] )
      AAdd( aSizes, aDirectory[ nEle, 2 ] )
      nTotal += aDirectory[ nEle, 2 ]
   Next

   oMtr:nTotal := nTotal
   nTotal := 0

   hb_ZipFile( cZipName, aFiles, HBL_ZIPLEVEL, bOnZipFile, XBL_ZIPOVERWRITE,,, XBL_ZIPWITHPATH )

Return Nil

Build it at \Fwh\Samples

As Stefan says, the link script (buildx.bat) must include hbzip.lib

Regards.

Manuel Mercado

[sanilpmc]

Sanil,

you have include hbzip.lib in your link script

Thank you for the reply.
All ready included hbzip.lib in my Buildx.bat before i post .but the error still remains.

[sanilpmc]

Dear All,

Can I have any working sample for Zip and Unzip.

I tried compiling the \FWH\SAMPLES\TestZip.Prg using Harbour and xHarbour via BuildH.Bat and BuldX.Bat

Hi Sanil:

TestZip.prg is a 16 bits Clipper program, here you are a little working sample:

Code: Select all  Expand view  RUN

#include 'fivewin.ch'

#define HBL_ZIPLEVEL        9
#define XBL_ZIPOVERWRITE    .T.
#define XBL_ZIPWITHPATH     .T.
#define XBL_GETFULL_INFOZIP .T.

Function Main()

   Local oDlg, oBtn[ 3 ], oMtr, oFont, ;
         nProgr := 0

   DEFINE FONT oFont NAME "Verdana" SIZE 0, -11
   DEFINE DIALOG oDlg FROM 0, 0 TO 300, 400 PIXEL TITLE "Testing Zip functions with FWH and xHarbour"


   @ 10, 20 BUTTON oBtn[ 1 ] PROMPT "Zip Databases" OF oDlg SIZE 40, 15 PIXEL ACTION ZipDatabases( oMtr )

   @ 30, 20 BUTTON oBtn[ 2 ] PROMPT "Exit" OF oDlg SIZE 40, 15 PIXEL ACTION oDlg:End()

   @129,  3 METER oMtr VAR nProgr PROMPT "Progress" OF oDlg ;
            FONT oFont UPDATE TOTAL 16 ;
            COLORS CLR_HGRAY, CLR_BLACK BARCOLOR CLR_HBLUE, CLR_YELLOW SIZE 191, 15 PIXEL

   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()

Return Nil

Static Function ZipDatabases( oMtr )

   Local nEle, aFiles, aSizes, ;
         nTotal     := 0, ;
         bOnZipFile := { | cFile, nFile | nTotal += aSizes[ nFile ], oMtr:Set( nTotal ), SysRefresh() }, ;
         aDirectory := Directory( "*.dbf" ), ;
         cZipName   := "Databases.zip"

   aFiles := {}
   aSizes := {}

   For nEle := 1 To Len( aDirectory )
      AAdd( aFiles, aDirectory[ nEle, 1 ] )
      AAdd( aSizes, aDirectory[ nEle, 2 ] )
      nTotal += aDirectory[ nEle, 2 ]
   Next

   oMtr:nTotal := nTotal
   nTotal := 0

   hb_ZipFile( cZipName, aFiles, HBL_ZIPLEVEL, bOnZipFile, XBL_ZIPOVERWRITE,,, XBL_ZIPWITHPATH )

Return Nil

Build it at \Fwh\Samples

As Stefan says, the link script (buildx.bat) must include hbzip.lib

Regards.

Manuel Mercado

Thank you Mmercado for the sample. When i try to compile in XHarbour using Buildx.bat.Get the following error message.

Code: Select all  Expand view  RUN

Error: Unresolved external '_HB_FUN_HB_ZIPFILE' referenced from C:\FWH\SAMPLES\ZIPWIN.OBJ

Please help me to over come this error.

My Buildx.bat

Code: Select all  Expand view  RUN

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 8.08 - Aug. 2008           xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2008    for Microsoft Windows 95/98/NT/2000/ME/XP/Vista ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

set hdir=c:\xharbour
set bcdir=C:\Borland\BCC55

%hdir%\bin\harbour %1 /n /i..\include;%hdir%\include /w /p %2 %3 > clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r %1

echo c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo ..\lib\Fivehx.lib ..\lib\FiveHC.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtgui.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %hdir%\lib\hbzip.lib + >> b32.bc
echo %hdir%\lib\zlib.lib + >> b32.bc
echo %hdir%\lib\pcrepos.lib + >> b32.bc


rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc

rem uncomment this line to use the debugger and comment the following one
rem %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
%bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc

IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
%1
DEL *.c
DEL *.map
DEL *.obj
DEL *.PPO
DEL *.TDS
DEL *.BC
DEL *.LOG
DEL *.EXE
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:LINKERROR
ECHO * There are errors
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT

Thank you

[mmercado]

Error: Unresolved external '_HB_FUN_HB_ZIPFILE' referenced from C:\FWH\SAMPLES\ZIPWIN.OBJ

Dear Sanil:

Here the buildx.bat which I'm using and does work:

Code: Select all  Expand view  RUN

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 8.02 - Feb. 2008           xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2008    for Microsoft Windows 95/98/NT/2000/ME/XP/Vista ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

set hdir=c:\xharbour
set bcdir=c:\bcc55

%hdir%\bin\harbour %1 /n /a /v /i..\include;%hdir%\include /p %2 %3 > clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

echo -O2 -e%1.exe -I%hdir%\include;..\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r %1

echo c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo tpick.lib ..\lib\Fivehx.lib ..\lib\FiveHC.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\hbzip.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtgui.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %hdir%\lib\ct.lib + >> b32.bc
echo %hdir%\lib\pcrepos.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc

rem uncomment this line to use the debugger and comment the following one
rem %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
%bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc

IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c
@del %1.hrb
@del %1.obj

:LINKERROR
ECHO * There are errors
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT


As you can see, I'm not linking zlib.lib. I'm using non commercial xHarbour.

Regards.

Manuel Mercado

[sanilpmc]

As you can see, I'm not linking zlib.lib. I'm using non commercial xHarbour.

Regards.

Manuel Mercado

Thank you Manuel Mercado for Buildx.bat. But it doesn't solve my problem. I need to change some portion in Build.bat and thay are.

Code: Select all  Expand view  RUN

set hdir=c:\xharbour
set bcdir=c:\bcc55

Into

Code: Select all  Expand view  RUN

set hdir=c:\xharbour
set bcdir=C:\Borland\BCC55

After editing the batch file, i try to compile sample programe given by you.Then i get the following error.

Code: Select all  Expand view  RUN

Compiling...
xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6154)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'zipwin.prg' and generating preprocessed output to 'zipwin.ppo'...
Lines 55, Functions/Procedures 2
Generating C source output to 'zipwin.c'...
Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
zipwin.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external 'AlphaBlend' referenced from C:\FWH\LIB\FIVEHC.LIB|BR
USHES
Error: Unresolved external '_inflateEnd' referenced from C:\XHARBOUR\LIB\HBZIP.L
IB|ziparchive
Error: Unresolved external '_deflate' referenced from C:\XHARBOUR\LIB\HBZIP.LIB|
ziparchive
Error: Unresolved external '_get_crc_table' referenced from C:\XHARBOUR\LIB\HBZI
P.LIB|ziparchive
Error: Unresolved external '_deflateEnd' referenced from C:\XHARBOUR\LIB\HBZIP.L
IB|ziparchive
Error: Unresolved external '_deflateInit2_' referenced from C:\XHARBOUR\LIB\HBZI
P.LIB|ziparchive
Error: Unresolved external '_crc32' referenced from C:\XHARBOUR\LIB\HBZIP.LIB|zi
parchive
Error: Unresolved external '_inflateInit2_' referenced from C:\XHARBOUR\LIB\HBZI
P.LIB|ziparchive
Error: Unresolved external '_inflate' referenced from C:\XHARBOUR\LIB\HBZIP.LIB|
ziparchive
* There are errors

I over come 'AlphaBlend' error

Code: Select all  Expand view  RUN

Error: Unresolved external 'AlphaBlend' referenced from C:\FWH\LIB\FIVEHC.LIB|BR

by adding

Code: Select all  Expand view  RUN

echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc

But still other errors are remaining.

Thank you,
Sanil

[Armando Picon]

Can You send me an email to apic1002002@yahoo.es ? In response I will send You an example code about Zip, Unzip (zipper3).

I am working with FWH712 and xHarbour

As you can see, I'm not linking zlib.lib. I'm using non commercial xHarbour.

Regards.

Manuel Mercado

Thank you Manuel Mercado for Buildx.bat. But it doesn't solve my problem. I need to change some portion in Build.bat and thay are.

Code: Select all  Expand view  RUN

set hdir=c:\xharbour
set bcdir=c:\bcc55

Into

Code: Select all  Expand view  RUN

set hdir=c:\xharbour
set bcdir=C:\Borland\BCC55

After editing the batch file, i try to compile sample programe given by you.Then i get the following error.

Code: Select all  Expand view  RUN

Compiling...
xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6154)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'zipwin.prg' and generating preprocessed output to 'zipwin.ppo'...
Lines 55, Functions/Procedures 2
Generating C source output to 'zipwin.c'...
Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
zipwin.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external 'AlphaBlend' referenced from C:\FWH\LIB\FIVEHC.LIB|BR
USHES
Error: Unresolved external '_inflateEnd' referenced from C:\XHARBOUR\LIB\HBZIP.L
IB|ziparchive
Error: Unresolved external '_deflate' referenced from C:\XHARBOUR\LIB\HBZIP.LIB|
ziparchive
Error: Unresolved external '_get_crc_table' referenced from C:\XHARBOUR\LIB\HBZI
P.LIB|ziparchive
Error: Unresolved external '_deflateEnd' referenced from C:\XHARBOUR\LIB\HBZIP.L
IB|ziparchive
Error: Unresolved external '_deflateInit2_' referenced from C:\XHARBOUR\LIB\HBZI
P.LIB|ziparchive
Error: Unresolved external '_crc32' referenced from C:\XHARBOUR\LIB\HBZIP.LIB|zi
parchive
Error: Unresolved external '_inflateInit2_' referenced from C:\XHARBOUR\LIB\HBZI
P.LIB|ziparchive
Error: Unresolved external '_inflate' referenced from C:\XHARBOUR\LIB\HBZIP.LIB|
ziparchive
* There are errors

I over come 'AlphaBlend' error

Code: Select all  Expand view  RUN

Error: Unresolved external 'AlphaBlend' referenced from C:\FWH\LIB\FIVEHC.LIB|BR

by adding

Code: Select all  Expand view  RUN

echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc

But still other errors are remaining.

Thank you,
Sanil

[Antonio Linares]

Sanil,

You have to link zlib.lib. It is provided in xHarbour \lib folder.

[sanilpmc]

Sanil,

You have to link zlib.lib. It is provided in xHarbour \lib folder.

Thank you Antonio Linares and Armando Picon. Now it works fine.

Probelm solved by adding zlib.lib in my batch file.

Thank you

Sanil

[mmercado]

You have to link zlib.lib. It is provided in xHarbour \lib folder.

Hola Antonio:

Como puedo conseguir ZLib.lib de xHarbour, en mi versión no la tengo.

Gracias, un abrazo.

FWH 8.02
xHarbour 1.1.0 simplex

Manuel Mercado.

[Enrico Maria Giordano]

It is in the CVS. But I wouldn't mix libs of different xHarbour releases.

EMG

[mmercado]

It is in the CVS. But I wouldn't mix libs of different xHarbour releases.

Hi Enrico:

I appreciate your advice, thanks a lot.

Manuel Mercado