(DataFlex) Example for the Zip AppendNew Function

See more Zip Examples

Demonstrates the Zip AppendNew function.

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoZip
    Boolean iSuccess
    String sZipPath
    Variant vEntry1
    Handle hoEntry1
    Variant vEntry2
    Handle hoEntry2
    String sTemp1

    // This example assumes 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

    Move "c:/temp/test.zip" To sZipPath

    // Initialize the zip object, which also sets the FileName property to the path of the zip to be created.
    Get ComNewZip Of hoZip sZipPath To iSuccess

    // Append a new and empty file to the zip object.
    // This does not write the zip file.  It simply adds an entry
    // that will get processed when the zip is written.
    Get ComAppendNew Of hoZip "empty.txt" To vEntry1
    If (IsComObject(vEntry1)) Begin
        Get Create (RefClass(cComChilkatZipEntry)) To hoEntry1
        Set pvComObject Of hoEntry1 To vEntry1
    End
    Send Destroy of hoEntry1

    // Append another entry..
    Get ComAppendNew Of hoZip "abc/helloWorld.txt" To vEntry2
    If (IsComObject(vEntry2)) Begin
        Get Create (RefClass(cComChilkatZipEntry)) To hoEntry2
        Set pvComObject Of hoEntry2 To vEntry2
    End

    // Add some data to this entry..
    Get ComAppendString Of hoEntry2 "Hello World" "utf-8" To iSuccess
    Send Destroy of hoEntry2

    // Write the zip, which contains 2 files:  empty.txt and helloWorld.txt
    Set ComFileName Of hoZip To sZipPath
    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success."


End_Procedure