DataFlex

Find a ZIP Entry by Exact Path Using EntryOf

See more Zip Examples

This example demonstrates how to use the EntryOf method to find a ZIP entry whose stored path exactly matches a specified path.

Unlike EntryMatching, which performs wildcard matching, EntryOf performs an exact path lookup.

This method is useful when:

• The exact ZIP path is already known
• Retrieving a specific file or directory entry
• Verifying whether a particular entry exists in the ZIP archive

Suppose the ZIP archive contains:

docs/
docs/readme.txt
docs/manual.pdf
images/logo.png
data/config/settings.json

ZIP archives may optionally contain explicit directory entries such as docs/. These directory entries can also be retrieved using EntryOf.

The example:

• Finds an exact file entry
• Finds an exact directory entry
• Demonstrates the difference between file and directory entries

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoZip
    Variant vEntry
    Handle hoEntry
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

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

    Move False To iSuccess

    // Open an existing ZIP archive.
    Get Create (RefClass(cComChilkatZip)) To hoZip
    If (Not(IsComObjectCreated(hoZip))) Begin
        Send CreateComObject of hoZip
    End

    Get ComOpenZip Of hoZip "example.zip" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatZipEntry)) To hoEntry
    If (Not(IsComObjectCreated(hoEntry))) Begin
        Send CreateComObject of hoEntry
    End

    // ------------------------------------------------------------
    // Find a specific file entry by its exact ZIP path.

    Get pvComObject of hoEntry to vEntry
    Get ComEntryOf Of hoZip "docs/readme.txt" vEntry To iSuccess

    If (iSuccess = True) Begin
        Showln "Found file entry:"
        Get ComFileName Of hoEntry To sTemp1
        Showln "  FileName = " sTemp1
        Get ComIsDirectory Of hoEntry To bTemp1
        Showln "  IsDirectory = " bTemp1
        Showln ""
    End

    // ------------------------------------------------------------
    // Find a directory entry.
    // 
    // ZIP archives may optionally contain explicit directory entries.
    // In this example, "docs/" is a separate directory entry.

    Get pvComObject of hoEntry to vEntry
    Get ComEntryOf Of hoZip "docs/" vEntry To iSuccess

    If (iSuccess = True) Begin
        Showln "Found directory entry:"
        Get ComFileName Of hoEntry To sTemp1
        Showln "  FileName = " sTemp1
        Get ComIsDirectory Of hoEntry To bTemp1
        Showln "  IsDirectory = " bTemp1
        Showln ""
    End

    // ------------------------------------------------------------
    // Attempt to find a non-existent entry.

    Get pvComObject of hoEntry to vEntry
    Get ComEntryOf Of hoZip "images/missing.png" vEntry To iSuccess

    If (iSuccess = False) Begin
        Showln "The entry images/missing.png was not found."
    End

    Send ComCloseZip To hoZip

    Showln "Done."


End_Procedure