(DataFlex) Append String as a File to a Zip

See more Zip Examples

Demonstrates how to append text data as a file within a zip archive.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoZip
    Boolean iSuccess
    String sZipPath
    String sFileContent
    String sPathInZip
    Variant vEntry
    Handle hoEntry
    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 file that will contain the string "Hello World";
    Move "Hello World" To sFileContent
    Move "txtFiles/helloWorld.txt" To sPathInZip
    Get ComAppendString Of hoZip sPathInZip sFileContent To vEntry
    If (IsComObject(vEntry)) Begin
        Get Create (RefClass(cComChilkatZipEntry)) To hoEntry
        Set pvComObject Of hoEntry To vEntry
    End
    Send Destroy of hoEntry

    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