error compiling 'TESTZIP.PRG'

[fraxzi]

Dear Mr. Antonio,

Im using FWH v10.5 and latest xHarbour for BCC582


I tried to compile testzip.prg with these errors:


I already included hbzip.lib but still cannot compile.

I need Zip/Unzip function in my current project.

Regards,
Frances

[Antonio Linares]

Frances,

samples\TestZip.prg was just for FW 16 bits. We have to update it for FWH 32 and FWH 64.

Here in the forums there are several examples for 32 bits. Lets find them and we point them here.

[Daniel Garcia-Gil]

Frances...


is spanish, but easy to understand http://bielsys.blogspot.com/

[anserkk]

Dear Mr.Frances,

Here is a function to extract the contents of a zip file

Code: Select all  Expand view

*------------------------------------*
Function ExtractZip(cDriveLetter)
*------------------------------------*
Local aFiles,lOk,cFolderName
// Zip and Unzip functions, should include the libs named HbZip & zlib available in \xHarbour\lib
cFolderName:=cDriveLetter+"\"  // i.e c: or d:

// Creates an Array containing the list of files in the Test.Zip with Path
aFiles := hb_GetFilesInZip("Test")  

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

Regards
Anser

[fraxzi]

Dear Mr. Antonio, Mr. Daniel and Mr. Anser,


Than you for the prompt reply.

I need to zip a file before sating it to a blob field.. then unzip if user needs to read it and open corresponding app..
say "word.doc" -> compress to zip -> save as blob.. then if user wants to open it, blob to word.zip-> unzip word.zip -> open word.doc


Does xharbour has this function? I found hb_compress() for string only.


Best regards gentlemen,
Frances