Lianja Requires Chilkat v11.0.0+

Transition from Zip.AppendBd to Zip.AddBd

Provides instructions for replacing deprecated AppendBd method calls with AddBd. Lianja

llSuccess = .F.

loZip = createobject("CkZip")

//  ...
//  ...

lcPathInZip = "example.dat"

loBd = createobject("CkBinData")
loBd.LoadFile("c:/someDir/example.dat")

//  ------------------------------------------------------------------------
//  The AppendBd method is deprecated:
//  AppendBd returns the zip entry object, which is usually not needed.

loEntryObj = loZip.AppendBd(lcPathInZip,loBd)
if (loZip.LastMethodSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    release loBd
    return
endif

//  ...
//  ...

release loEntryObj

//  ------------------------------------------------------------------------
//  Do the equivalent using AddBd.

//  Instead of returning the zip entry object, we just return success/failure.
llSuccess = loZip.AddBd(lcPathInZip,loBd)
if (llSuccess = .F.) then
    ? loZip.LastErrorText
    release loZip
    release loBd
    return
endif

//  Do the following if you need the zip entry object for what was just appended.
//  The newly appended entry is the last one.
loZe = createobject("CkZipEntry")
lnIndex = loZip.NumEntries - 1
loZip.EntryAt(lnIndex,loZe)


release loZip
release loBd
release loZe