PureBasic

Transition from Zip.AppendDataEncoded to Zip.AddEncoded

Provides instructions for replacing deprecated AppendDataEncoded method calls with AddEncoded. 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"
    encoding.s = "base64"
    encData.s = "... BASE64 DATA ..."

    ; ------------------------------------------------------------------------
    ; The AppendDataEncoded method is deprecated:

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

    ; ...
    ; ...

    CkZipEntry::ckDispose(entryObj)

    ; ------------------------------------------------------------------------
    ; Do the equivalent using AddEncoded.

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