DataFlex

Example for the Zip AppendNew Function

See more Zip Examples

Demonstrates the Zip AppendNew function. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoZip
    String sZipPath
    String sPathInZip
    Variant vEntry
    Handle hoEntry
    String sTemp1

    Move False To iSuccess

    // 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/qa_output/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 ComAddEmpty Of hoZip False "empty.txt" To iSuccess

    // Append another entry..
    Move "abc/helloWorld.txt" To sPathInZip
    Get ComAddEmpty Of hoZip False sPathInZip To iSuccess

    // Add some data to this entry..
    Get Create (RefClass(cComChilkatZipEntry)) To hoEntry
    If (Not(IsComObjectCreated(hoEntry))) Begin
        Send CreateComObject of hoEntry
    End
    Get pvComObject of hoEntry to vEntry
    Get ComEntryOf Of hoZip sPathInZip vEntry To iSuccess
    Get ComAppendString Of hoEntry "Hello World" "utf-8" To iSuccess

    // 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