FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour zip SPAN
Posts: 31
Joined: Sun Oct 09, 2005 08:29 PM
zip SPAN
Posted: Tue Nov 01, 2005 06:53 PM
In preceding posts, Antonio said I should use the hbzip.lib found in xharbour.org to Zip files.
Ok, I've used it, but calling the function
HB_ZIPFILEBYPKSPAN
causes a FiveWin GPF.
I've tried that function in Xharbour console, it plays well. It seems an incompatibility with FWH.

Here's the code:
#include "FiveWin.ch"

FUNCTION main()

  hb_setdiskzip( { | nDisk | Alert( "Please insert disk no " + Str( nDisk, 3 ) ) } )

  IF HB_ZIPFILEBYPKSPAN( "a:\TEST.ZIP", "TEST.PRG" )
    Alert( "File was successfully created" )
  ENDIF

  RETURN NIL


Any suggestion?
thanks
Riccardo
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: zip SPAN
Posted: Wed Nov 02, 2005 01:03 PM

I confirm the problem. Found no solution so far.

EMG

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
zip SPAN
Posted: Wed Nov 02, 2005 05:13 PM

You must check if hbzip.lib contains any compiled PRG and if so, compile it with Harbour.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
zip SPAN
Posted: Wed Nov 02, 2005 07:09 PM

Why with Harbour? I used xHarbour for my tests.

EMG

Posts: 946
Joined: Thu Oct 06, 2005 07:05 PM
Re: zip SPAN
Posted: Wed Nov 02, 2005 09:11 PM
Maverich wrote:In preceding posts, Antonio said I should use the hbzip.lib found in xharbour.org to Zip files.
Ok, I've used it, but calling the function
HB_ZIPFILEBYPKSPAN
causes a FiveWin GPF.
I've tried that function in Xharbour console, it plays well. It seems an incompatibility with FWH.

Here's the code:
#include "FiveWin.ch"

FUNCTION main()

  hb_setdiskzip( { | nDisk | Alert( "Please insert disk no " + Str( nDisk, 3 ) ) } )

  IF HB_ZIPFILEBYPKSPAN( "a:\TEST.ZIP", "TEST.PRG" )
    Alert( "File was successfully created" )
  ENDIF

  RETURN NIL


Any suggestion?
thanks


Ricardo

Can you try with the complete set of parameters ? Something like the following ? lzipwithpath := .t.

lZipDone:= HB_ZIPFILEBYPKSPAN( cZip , aFiles , 9, { |cFile,npos| QOUT( cFile ) }, ;
.T.,, lZipWithPath, .F. )


Can't test it here, i have no floppy drive. as far as i can recall it was working OK

Richard
http://www.cbati.com

Uestudio
Fwh 13.05 Harbour 3.2 MSVC 2013
Posts: 31
Joined: Sun Oct 09, 2005 08:29 PM
zip SPAN
Posted: Thu Nov 03, 2005 04:15 PM

richard,

I simply used the code that comes with the xharbour documentation. ANY example that uses hb..SPAN causes a GPF.
If you consider that a ZIP file is often used for backup on removable drives (ZIP, flash disks, ecc.), it's a great problem.

I don't understand what Antonio said-look for prg inside the lib-how can i recompile the prgs if I don't have any source?

regards

Riccardo
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
zip SPAN
Posted: Thu Nov 03, 2005 08:49 PM

Riccardo,

I missunderstood you, I though you were using Harbour, instead of xharbour.

Please create a MAP file and search for the GPF address into the MAP file.

Don't you get a FWH MsgAlert() with the calls stack list ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
zip SPAN
Posted: Thu Nov 03, 2005 11:18 PM

Found! Simply replace Alert() with MsgInfo() and then it will work perfectly!

EMG

Posts: 31
Joined: Sun Oct 09, 2005 08:29 PM
ok!
Posted: Tue Nov 08, 2005 07:30 AM

ok, it plays.
But if there isn't a disk in the floppy, how to exit the function? I haven't found a valid solution.

regards

Riccardo

Continue the discussion