(DataFlex) Append Files to Existing Zip w/out Rewriting Entire Zip

Demonstrates how to use the QuickAppend method to append files to an existing .zip archive. This method works by editing the existing .zip -- it does not rewrite or recompress the contents of the existing .zip. It is the fastest way to append additional files to a pre-existing large .zip archive. Note: The QuickAppend method is new and available in the pre-release downloads, or in official releases dated after 6-October-2007.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoZip
    Boolean iSuccess
    Boolean iSaveExtraPath
    String sTemp1

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatZip)) To hoZip
    If (Not(IsComObjectCreated(hoZip))) Begin
        Send CreateComObject of hoZip
    End

    // The NewZip method only initializes the Zip object -- it does
    // not create or write a .zip file.
    Get ComNewZip Of hoZip "notUsed.zip" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Add a reference to a file.  This is the file that will
    // be added to a pre-existing .zip archive.  
    // Note: this does not read or compress the file contents --
    // it simply adds a reference to the zip object.
    Move False To iSaveExtraPath
    Get ComAppendOneFileOrDir Of hoZip "something.dat" iSaveExtraPath To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Appends the contents of the zip object to the preExisting.zip
    // zip archive.  preExisting.zip is opened, and the files
    // referenced by this zip object are streamed in, compressed,
    // and appended to the end of the archive.
    Get ComQuickAppend Of hoZip "preExisting.zip" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success!"

    // Note: Additional files, directory trees, or in-memory data
    // can be appended by calling AppendOneFileOrDir, AppendFiles,
    // AppendString, AppendData, etc. multiple times.
    // Whatever files and/or in-memory data that are referenced by
    // this zip object will be appended to preExisting.zip when
    // QuickAppend is called


End_Procedure