Is there an internal tool for archiving in Alaska?

[Eugene Lutsenko]

Probably easier to write than to find...

[Auge_Ohr]

I though the adzip/bdzip wrappers were to a new defunct company's addzip.dll/addunzip.dll.
You mentioned pkware.dll. Do those wrappers also support that dll.

sorry ... long time ago ...
Yes you are right AZIP32.DLL / AUNZIP32.DLL is from "littleBIGware" and they still seems to sell it

[Cliff Wiernik]

where do they still sell it? I see it the company website as not active?

[Auge_Ohr]

where do they still sell it? I see it the company website as not active?

you are right again.

what i saw on http://publisher.brothersoft.com/littlebigware.html was just a Section not the Homepage. so they are out of Business.

[Wolfgang Ciriack]

I recommend to use the XbZLib Wrapper from Andreas Gehrs-Pahl.
If you like, I can post some code how i use it.

[Eugene Lutsenko]

How to use - it's certainly interesting.
But even more interesting where can I get

[Wolfgang Ciriack]

http://www.ddpsoftware.com/Downloads.htm

[Eugene Lutsenko]

http://www.ddpsoftware.com/Downloads.htm

Thank you very much! I have them all downloaded. Will study and try to apply

[Cliff Wiernik]

Some code samples would be very useful.

Cliff

[Wolfgang Ciriack]

Here is some code i use for a daily backup of files from my app.

Code: Select all

#include "directry.ch"
#include "XbZ_Zip.ch"

#pragma  library ("XbZLib.lib")

local savepath:=".\"
local savefile:="Backup_"+dtoc(date())+"_"+substr(time(),1,2)+substr(time(),4,2)+".zip"

aPfade:={ {M->oFVW:progpath+"\","*.dbf"}, ;
             {M->oFVW:progpath+"\","*.fpt"}, ;
             {M->oFVW:progpath+"\","*.arr"}, ;
             {M->oFVW:progpath+"\","*.ver"}, ;
             {M->oFVW:progpath+"\","*.ini"} }
aFi:={}
for ii:=1 to len(aPfade)
      x:=Directory(aPfade[ii][1]+aPfade[ii][2])
      for i:=1 to len(x)
         ** don't backup tmp-files
         if !("XXX." $ upper(x[i][F_NAME])) .and. !("XY." $ upper(x[i][F_NAME]))
            aadd(aFi, aPfade[ii][1]+x[i][F_NAME])
         endif
      next
next
********************
nSaved:=StartDaSi(savepath+"\"+savefile, aFi, @nErr)
*******************
if nSaved>0
      WinAlert("backup files: "+alltrim(str(nSaved))+CRLF+ ;
                   "errors: "+alltrim(str(nErr))+";"+ ;
                   "File size: "+alltrim(str(round(filesize(savepath+"\"+savedatei)/1024,0)))+" kB+CRLF)
else
      WinAlert("Error in Backup !")
endif
return
****************************************************************************************
function StartDaSi(zipdatei, aDateien, nErr)
local GetList:={}, GetOptions
local oDlg, oZip, oPrDaten, oDatei, oHeadbox, i
local nfiles:=len(aDateien)
local nFehler:=0, Retwert:=0
local aktfile:=""

DCGET OPTIONS NORESIZE  NOMAXBUTTON NOTITLEBAR

   @ 0,0 DCTOOLBAR oHeadBox SIZE 80,2 FANCY ALIGN TOOLBAR_TOP COLOR NIL,GRA_CLR_DARKBLUE

   @0.5,4 DCSAY "Backup to" SAYLEFT SAYSIZE 0 FONT cSayFont3 COLOR GRA_CLR_WHITE PARENT oHeadbox

   @ 3, 2 DCSAY "Folder:" SAYLEFT SAYSIZE 12
   @ 3,16 DCSAY upper(substr(zipdatei,1,rat("\",zipdatei)-1)) SAYLEFT SAYSIZE 64.00 COLOR GRA_CLR_DARKBLUE

   @4.3, 2 DCSAY "Backup file:" SAYLEFT SAYSIZE 12
   @4.3,16 DCSAY upper(substr(zipdatei,rat("\",zipdatei)+1)) SAYLEFT SAYSIZE 64.00 COLOR GRA_CLR_DARKBLUE FONT cSayFont2

   @5.6, 2 DCSAY "Akt. Datei:" SAYLEFT SAYSIZE 12
   @5.6,16 DCSAY {|| aktfile } SAYLEFT SAYSIZE 64.00 COLOR GRA_CLR_DARKBLUE  OBJECT oDatei

   @ 7,1 DCPROGRESS oPrDaten  SIZE 79, 1 TYPE XBPSTATIC_TYPE_RECESSEDBOX ;
            COLOR GRA_CLR_DARKBLUE,GRA_CLR_BACKGROUND  ;
            PERCENT ;
            PERCENTCOLOR GRA_CLR_WHITE ;
            DYNAMIC ;
            EVERY 5 ;
            MAXCOUNT AnzDateien

DCREAD GUI TITLE 'Backup' OPTIONS GetOptions PARENT @oDlg MODAL FIT SAVE NODESTROY EXIT

oZip:=XbZLibZip():New(zipdatei,XBZ_OPEN_CREATE)
if !oZip:Isopen(.T.)
   oDlg:destroy()
   WinAlert("Error creating Zip-File !")
   oZip:close()
   return Retwert
endif

for i:=1 to AnzDateien
   aktfile:=aDateien[i]
   dc_getrefresh(oDatei)

   if oZip:AddFile(aktfile)<>0
      nFehler++
   endif
   Retwert++
   DC_Getprogress(oPrDaten, i, nFiles)
next
nErr:=nFehler
oZip:close()
oDlg:destroy()
return Retwert