(DataFlex) Create Zip with utf-8 Filenames (Unicode filenames)

Demonstrates how to create a .zip archive that stores the filenames using the utf-8 character encoding. This allows for filenames of any language to be within a single Zip.

Note: utf-8 is the multibyte encoding for Unicode. When a Zip compression product declares that it supports Unicode filenames, what it really means is that it is capable of reading/writing utf-8. WinZip added support for Unicode (utf-8) filenames starting with version 11.2.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoZip
    Boolean iSuccess
    Boolean iRecurse
    Boolean iSuccess
    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

    Get ComNewZip Of hoZip "test.zip" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // To zip using utf-8 filenames, set the OemCodePage = 65001
    Set ComOemCodePage Of hoZip To 65001

    Move True To iRecurse
    Get ComAppendFiles Of hoZip "/temp/NonEnglishFilenames/*" iRecurse To iSuccess

    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Zip Created!"


End_Procedure