(DataFlex) Create .taz, .tar.Z TAR Archive

Demonstrates how to create a compressed TAR archive containing an entire directory tree. This example creates a compressed archive using Unix "Z" compression. The typical file extensions used are .tar.Z and .taz.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoTar
    Boolean iSuccess
    Handle hoUc
    String sTemp1

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

    Get Create (RefClass(cComChilkatTar)) To hoTar
    If (Not(IsComObjectCreated(hoTar))) Begin
        Send CreateComObject of hoTar
    End

    // The TAR component will produce a  GNU tar 1.13.x format
    // archive by default.
    // It is also possible to create PAX -- POSIX 1003.1-2001 format
    // or USTAR -- POSIX 1003.1-1988 format.
    // Set the WriteFormat property to "gnu", "pax", or "ustar" to
    // choose the output TAR format:
    Set ComWriteFormat Of hoTar To "gnu"

    // Add a directory tree to be included in the output TAR archive:
    Get ComAddDirRoot Of hoTar "/Users/chilkat/temp/abc123" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoTar To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // First write a .tar, then compress to a .Z using UnixCompress.
    Get ComWriteTar Of hoTar "/Users/chilkat/testData/tar/abc123.tar" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoTar To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatUnixCompress)) To hoUc
    If (Not(IsComObjectCreated(hoUc))) Begin
        Send CreateComObject of hoUc
    End

    Get ComCompressFile Of hoUc "/Users/chilkat/testData/tar/abc123.tar" "/Users/chilkat/testData/tar/abc123.tar.Z" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoUc To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Success."
    End



End_Procedure