Funzionalità ZIP di xHarbour

Marco Turco · Post by **Marco Turco** » Tue Apr 29, 2008 12:08 pm

Purtroppo ho ancora qualche problema.
Quando chiamo hb_unzipfile molte volte consecutivamente il sistema va in crash.

Io ho inserito hbzip e zlib nella sequenza di link sopra fivehx e fivehc (vedi sequenza sotto). Mi gireresti la tua sequenza di link che stai utilizzando e che ti funziona ?

%C_LIB_INSTALL%\C0W32.OBJ=420,.T.,0,0,
K:\FWH\lib\CANAL5\C5STBAR.LIB=421,.T.,0,0,
K:\FWH\lib\CANAL5\VTITLE.LIB=422,.T.,0,0,
%HB_LIB_INSTALL%\hbzip.lib=423,.T.,0,0,
%HB_LIB_INSTALL%\ZLIB.LIB=424,.T.,0,0,
K:\fwh\LIB\Fivehx.lib=425,.T.,0,0,
K:\fwh\LIB\Fivehc.lib=426,.T.,0,0,
K:\FWH\lib\CANAL5\LIBRERIA.LIB=427,.T.,0,0,
%HB_LIB_INSTALL%\rtl.lib=428,.T.,0,0,
%HB_LIB_INSTALL%\vm.lib=429,.T.,0,0,
%HB_LIB_INSTALL%\gtgui.lib=430,.T.,0,0,
%HB_LIB_INSTALL%\lang.lib=431,.T.,0,0,
%HB_LIB_INSTALL%\macro.lib=432,.T.,0,0,
%HB_LIB_INSTALL%\rdd.lib=433,.T.,0,0,
%HB_LIB_INSTALL%\dbfntx.lib=434,.T.,0,0,
%HB_LIB_INSTALL%\dbfcdx.lib=435,.T.,0,0,
%HB_LIB_INSTALL%\DBFFPT.LIB=436,.T.,0,0,
%HB_LIB_INSTALL%\HBSIX.LIB=437,.T.,0,0,
%HB_LIB_INSTALL%\debug.lib=438,.T.,0,0,
%HB_LIB_INSTALL%\common.lib=439,.T.,0,0,
%HB_LIB_INSTALL%\pp.lib=440,.T.,0,0,
%HB_LIB_INSTALL%\pcrepos.lib=441,.T.,0,0,
%HB_LIB_INSTALL%\CT.LIB=442,.T.,0,0,
%HB_LIB_INSTALL%\rddads.lib=443,.T.,0,0,
K:\OLDEST\FW23\SAMPLES\ACE32.LIB=444,.T.,0,0,
%C_LIB_INSTALL%\CW32.LIB=445,.T.,0,0,
%C_LIB_INSTALL%\IMPORT32.LIB=446,.T.,0,0,
%C_LIB_INSTALL%\PSDK\odbc32.lib=447,.T.,0,0,
%C_LIB_INSTALL%\PSDK\rasapi32.lib=448,.T.,0,0,
%C_LIB_INSTALL%\PSDK\nddeapi.lib=449,.T.,0,0,
%C_LIB_INSTALL%\PSDK\iphlpapi.lib=450,.T.,0,0,
K:\FWH\LIB\TSBROWSE.LIB=451,.T.,0,0,
K:\FWH\LIB\FILEXLS3.LIB=452,.T.,0,0,
K:\FWH\lib\EZTWAIN3.LIB=453,.T.,0,0,

Grazie

Tue Apr 29, 2008 12:15 pm

Non sono sicuro che dipenda dalla sequenza. Se mi mandi un microesempio che mostri il problema posso vedere se me lo fa anche qui. In ogni caso, io ho messo così:

Code: Select all

fivehx.lib +
hbzip.lib +
fivehc.lib +
rtl.lib +
vm.lib +
common.lib +
gtgui.lib +
lang.lib +
rdd.lib +
dbffpt.lib +
dbfntx.lib +
dbfcdx.lib +
hbsix.lib +
macro.lib +
pcrepos.lib +
zlib.lib +
tip.lib +
ct.lib +
odbc32.lib +
import32.lib +
cw32.lib +
wininet.lib +
winscard.lib +
rasapi32.lib

EMG

Marco Turco · Post by **Marco Turco** » Tue Apr 29, 2008 1:18 pm

Niente da fare, si inchioda.
Comunque sono riuscito a fare un self-contained che mostra il problema,
puoi scaricarlo da www.softwarexp.co.uk/beta/prova.zip

C'è il sorgente, l'eseguibile ed un file test.zip che voglio scompattare.

Che ne pensi ?

Tue Apr 29, 2008 1:40 pm

Qui funziona, con le seguenti modifiche che comunque non dovrebbero influire:

Code: Select all

// Fivewin Zip Files management !!!

#include "FiveWin.Ch"

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

function Main()

local cZipFile:="test.zip"

local nReturn:=hb_UnzipFile(cZipFile,,.f.,,,"file(00).cnd")

msginfo(nReturn)

return nil

EMG

Marco Turco · Post by **Marco Turco** » Tue Apr 29, 2008 2:19 pm

Forse ho qualche problema,
ho provato ad effettuare il link dell'esempio utilizzando il buildx.bat fornito da FWH ed ho una serie di segnalazioni:

┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for xHarbour 8.04 - Apr. 2008 xHarbour development power │▄
│ (c) FiveTech, 1993-2008 for Microsoft Windows 95/98/NT/2000/ME/XP/Vista │█
└────────────────────────────────────────────────────────────────────────────┘█
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'testzip.prg' and generating preprocessed output to 'testzip.ppo'...
testzip.prg(15) Warning W0005 RETURN statement with no return value in function

Lines 19, Functions/Procedures 1
Generating C source output to 'testzip.c'...
Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
testzip.c:
Error E2209 k:\xharbour\include\hbvmpub.h 65: Unable to open include file 'asser
t.h'
Error E2209 k:\xharbour\include\hbdefs.h 58: Unable to open include file 'stdarg
.h'
Error E2209 k:\xharbour\include\hbdefs.h 59: Unable to open include file 'stdio.
h'
Error E2209 k:\xharbour\include\hbdefs.h 60: Unable to open include file 'stdlib
.h'
Error E2209 k:\xharbour\include\hbdefs.h 61: Unable to open include file 'string
.h'
Error E2209 k:\xharbour\include\hbsetup.h 65: Unable to open include file 'limit
s.h'
Error E2141 k:\xharbour\include\hbwince.h 165: Declaration syntax error
Error E2293 k:\xharbour\include\hbwince.h 166: ) expected
Error E2141 k:\xharbour\include\hbwince.h 167: Declaration syntax error
Error E2293 k:\xharbour\include\hbwince.h 168: ) expected
Error E2147 k:\xharbour\include\hbwince.h 169: 'wchar_t' cannot start a paramete
r declaration
Error E2147 k:\xharbour\include\hbwince.h 170: 'wchar_t' cannot start a paramete
r declaration
Error E2293 k:\xharbour\include\hbwince.h 171: ) expected
Error E2188 k:\xharbour\include\hbdefs.h 459: Expression syntax
Error E2257 k:\xharbour\include\hbdefs.h 481: , expected
Error E2139 k:\xharbour\include\hbvmpub.h 282: Declaration missing ;
Error E2141 k:\xharbour\include\hbapi.h 614: Declaration syntax error
Error E2451 testzip.c 31: Undefined symbol 'NULL'
Error E2141 testzip.c 31: Declaration syntax error
Error E2190 testzip.c 31: Unexpected }
Error E2190 testzip.c 31: Unexpected }
Error E2040 testzip.c 31: Declaration terminated incorrectly
Error E2190 testzip.c 31: Unexpected }
Error E2190 testzip.c 31: Unexpected }
Error E2040 testzip.c 31: Declaration terminated incorrectly
Error E2228 testzip.c 31: Too many error or warning messages
*** 26 errors in Compile ***
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Premere un tasto per continuare . . .
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Fatal: Unable to open file 'TESTZIP.OBJ'
* There are errors

K:\FWH\samples>

*********************************************

Questo è il mio buildx:

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 8.04 - Apr. 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...

rem set hdir=k:\xharbour
rem set bcdir=k:\bcc55

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

echo -O2 -e%1.exe -Ik:\xharbour\include %1.c > b32.bc
k:\bcc55\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc k:\bcc55\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 k:\xharbour\lib\rtl.lib + >> b32.bc
echo k:\xharbour\lib\vm.lib + >> b32.bc
echo k:\xharbour\lib\gtgui.lib + >> b32.bc
echo k:\xharbour\lib\lang.lib + >> b32.bc
echo k:\xharbour\lib\macro.lib + >> b32.bc
echo k:\xharbour\lib\rdd.lib + >> b32.bc
echo k:\xharbour\lib\dbfntx.lib + >> b32.bc
echo k:\xharbour\lib\dbfcdx.lib + >> b32.bc
echo k:\xharbour\lib\dbffpt.lib + >> b32.bc
echo k:\xharbour\lib\hbsix.lib + >> b32.bc
echo k:\xharbour\lib\debug.lib + >> b32.bc
echo k:\xharbour\lib\common.lib + >> b32.bc
echo k:\xharbour\lib\pp.lib + >> b32.bc
echo k:\xharbour\lib\pcrepos.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
echo k:\xharbour\lib\rddads.lib + >> b32.bc
echo k:\xharbour\lib\Ace32.lib + >> b32.bc

echo k:\bcc55\lib\cw32.lib + >> b32.bc
echo k:\bcc55\lib\import32.lib + >> b32.bc
echo k:\bcc55\lib\psdk\odbc32.lib + >> b32.bc
echo k:\bcc55\lib\psdk\rasapi32.lib + >> b32.bc
echo k:\bcc55\lib\psdk\nddeapi.lib + >> b32.bc
echo k:\bcc55\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 k:\bcc55\bin\ilink32 -Gn -Tpe -s -v @b32.bc
pause
k:\bcc55\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

: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

**************

Qualche idea ? Devo forse reinstallare xharbour ?

stefano · Post by **stefano** » Tue Apr 29, 2008 2:41 pm

Marco,

ho preso spunto da

http://rapidshare.com/files/86591177/blite.zip.html

e poi l'ho modificato

le due librerie le ho inserite prima delle Fivehx ...
non ho preso in considerazione testzip

Spero che ti serva

Ciao
Stefano

Tue Apr 29, 2008 2:43 pm

Error E2141 k:\xharbour\include\hbwince.h 165: Declaration syntax error

wince?

EMG

stefano · Post by **stefano** » Tue Apr 29, 2008 2:44 pm

scusa per il Link
non ho ancora dimestichezza ...

Stefano

Marco Turco · Post by **Marco Turco** » Wed Apr 30, 2008 7:32 am

Ho cambiato nome al prg ed ora il link avviene correttamente. Il problema è che comunque il programma mi va in crash come prima.

Mi potreste confermare le dimensioni di hbzip e zlib ?

Io ho hbzip.lib di 681472 bytes e zlib.lib di 60928 bytes

Wed Apr 30, 2008 7:47 am

La mia hbzip.lib è di 2671616 bytes mentre la zlib.lib è uguale alla tua.

EMG

Marco Turco · Post by **Marco Turco** » Wed Apr 30, 2008 3:52 pm

Come è possibile che la tua hbzip sia di 2.5MB e quella fornita con xHarbour sia di 600kb ?

L'hai compilata tu ? Utilizzi mslink o il linker bcc ?
Potresti zipparla ed inviarmela via email in modo da provare con la tua ?

Wed Apr 30, 2008 6:07 pm

Marco Turco wrote:Come è possibile che la tua hbzip sia di 2.5MB e quella fornita con xHarbour sia di 600kb ?

L'hai compilata tu ? Utilizzi mslink o il linker bcc ?

L'ho compilata lanciando l'apposito batch makallbc.bat che c'è nel CVS che serve a compilare xHarbour e tutte le librerie della directory contrib

Marco Turco wrote:Potresti zipparla ed inviarmela via email in modo da provare con la tua ?

Fatto.

EMG

Marco Turco · Post by **Marco Turco** » Thu May 01, 2008 7:08 pm

Grazie. Ma niente da fare. Ora non va più in crash ma nemmeno scompatta lo zip.

Forse ci sono problemi nelle librerie di xharbour fornite in binario con Fwh April 2008. Provo a ricrearmi tutte le librerie dalla cvs.

Grazie.

stefano · Post by **stefano** » Wed May 14, 2008 9:13 pm

Marco

ho compilato fwh 8.04 con xharbour versone maggio 2008
e le funzioni zip ed unzip funzionano

solo un piccolo problema :

zipfile() quanto è OK ritorna .T.
unzipfile() quando è OK ritorna .F.

però ho controllato e le funzioni compattano e scompattano correttamente

non ho provato con fwh 8.05 ... non riesco ad entrare nel server (upgrade fino al 25/05/2008)?

devo sentire Antonio

Saluti
Stefano

Marco Turco · Post by **Marco Turco** » Thu May 15, 2008 10:46 am

Ho risolto anch'io,
Antonio mi ha inviato la 8.04 ricompilata ed ora mi sembra tutto ok.