PureBasic

Transition from Zip.AppendNew to Zip.AddEmpty

Provides instructions for replacing deprecated AppendNew method calls with AddEmpty. PureBasic

IncludeFile "CkZip.pb"
IncludeFile "CkZipEntry.pb"

Procedure ChilkatExample()

    success.i = 0

    zip.i = CkZip::ckCreate()
    If zip.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; ...
    ; ...
    pathInZip.s = "example.dat"

    ; ------------------------------------------------------------------------
    ; The AppendNew method is deprecated:

    entryObj.i = CkZip::ckAppendNew(zip,pathInZip)
    If CkZip::ckLastMethodSuccess(zip) = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; ...
    ; ...

    CkZipEntry::ckDispose(entryObj)

    ; ------------------------------------------------------------------------
    ; Do the equivalent using AddEmpty.

    ; Indicate the newly appended entry is not a directory entry.
    isDir.i = 0

    success = CkZip::ckAddEmpty(zip,isDir,pathInZip)
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; Do the following if you need the zip entry object for what was just appended.
    ; The newly appended entry is the last one.
    ze.i = CkZipEntry::ckCreate()
    If ze.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    index.i = CkZip::ckNumEntries(zip) - 1
    CkZip::ckEntryAt(zip,index,ze)


    CkZip::ckDispose(zip)
    CkZipEntry::ckDispose(ze)


    ProcedureReturn
EndProcedure