zip e unzip con fwppc

[vensanto]

Salve
ho trovato su internet sorgenti free per zip e unzip
ho provato a compilarli e vanno bene per clarm
ma non riesco ad interfacciarli con harbur_ce

http://www.eurosoftsnc.net/fivewin/zip_utils_src.zip

se qualcuno ci riesce potrebbe essere utile a tutti aggiungere la funzionalità di zip e unzip per fwppc

Grazie

Santo Venezia

[Antonio Linares]

Santo,

Please try this harbour library with FWPPC:
http://www.mediafire.com/?sharekey=414c ... 6e282a0ee8

You can use hb_ZipFile() and hb_UnzipFile ().

Code: Select all  Expand view  RUN

lOk := hb_ZipFile( ::cTarget  , ;
                           aFiles , ;
                           ::nCompress , ;
                           bZip  , ;
                           ::lOverwrite , ;           // overwrite
                           ::cPassword  , ;
                           ::lWithPath,;               // with path
                           ::lWithDrive  )

lOk := hb_UnZipFile( ::cZip        , ;
                            bOnUnZipFile  , ;
                            ::lWithSubDir   , ;
                            ::cPassword     , ;
                            ::cZipDir + "\" ,;
                            ::aFiles        ,;
                            ::bProgress)