PureBasic

Transition from Zip.AppendOneFileOrDir to Zip.AddFile

Provides instructions for replacing deprecated AppendOneFileOrDir method calls with AddFile. 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

    ; ...
    ; ...
    localFilePath.s = "c:/someDir/example.dat"
    saveExtraPath.i = 0

    ; ------------------------------------------------------------------------
    ; The AppendOneFileOrDir method is deprecated:

    entryObj.i = CkZip::ckAppendOneFileOrDir(zip,localFilePath,saveExtraPath)
    If CkZip::ckLastMethodSuccess(zip) = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; ...
    ; ...

    CkZipEntry::ckDispose(entryObj)

    ; ------------------------------------------------------------------------
    ; Do the equivalent using AddFile.

    ; Instead of returning the zip entry object, we just return success/failure.
    success = CkZip::ckAddFile(zip,localFilePath,saveExtraPath)
    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