>Thanks, but if it's not freely available I'm not interested
>as I wouldn't spend money on a compiler when there are such
>many good and free alternatives, I don't expect many developer
>to do so either. [ also Borland C++ looks to be going off the
>track every year :( ]
I agree, no problem.

>To compile hbziparch, you may try using -D_USE_OLDER_RW_STL
>(in C_USR) as a workaround. Pls tell us your results.
>(in BCC 5.82 it fails due to missing Borland includes.)
In BCC 5.9 fails too. None is changed.

>I see you try to switch to hbmzip, which is the best solution,
>despite all the cleaning effort I may just simply delete
>hbziparch pretty soon to not cause any more headaches for
>everyone.
Viktor, my first impressions about hbmzip is so good, my tests here
indicates high speed compared to hbziparch and the conversion is so
easy.

I´m writing two function to help hbziparch users to move to hbmzip
easily, but it is not finished yet:

---cut---
procedure HB_ZipFile( cFile, uFileToCompress, nLevel, bUpdate,
lOverwrite, cPassword, lWithPath, lWithDrive, bFileUpdate, cComment )

   local hZip

   if !( ".zip" $ cFile )
      cFile += ".zip"
   endif

   hZip = HB_ZipOpen( cFile )

   if !Empty( hZip )

      HB_ZipStoreFile( hZip, uFileToCompress, nil, cPassword )

      HB_ZipClose( hZip, cComment )

   endif

return

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

procedure HB_UnZipFile( cFile, bUpdate, lWithPath, cPassword,
cFileToUnzip, bFileUpdate )

   local hUnZip, nErr, cCurDir := CurDir()

   if !( ".zip" $ cFile )
      cFile += ".zip"
   endif

   hUnZip = HB_UnZipOpen( cFile )

   if !Empty( hUnZip )

      DirChange( "c:\" )

      nErr = HB_UnZipFileFirst( hUnZip )

      while nErr == 0

         HB_UnzipExtractCurrentFile( hUnZip, nil, cPassword )

         nErr = HB_UnZipFileNext( hUnZip )

      enddo

      HB_UnZipClose( hUnZip )

      DirChange( cCurDir )

   endif

return
---cut---



Regards,

Toninho.

__________________________________________________
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to