Lianja

Enable FTP MODE Z Compression

Demonstrates the Chilkat Ftp2.SetModeZ method, which enables MODE Z compression for subsequent data connections. It takes no arguments. Call it after connecting and only when the HasModeZ property is true.

Background: MODE Z compresses data on the fly (using zlib) as it crosses the wire, which can meaningfully speed up transfers of compressible content — text, HTML, logs — over a slow link. It is a server extension, so check HasModeZ first and expect it to be unavailable on many servers. There is little benefit for already-compressed data such as images or archives, where the CPU cost of compression buys almost nothing.

Chilkat Lianja Downloads

Download Chilkat for Lianja

Lianja

llSuccess = .F.

//  Demonstrates the Ftp2.SetModeZ method, which enables MODE Z compression for subsequent data
//  connections.  It takes no arguments.  Call it after connecting, and only when the HasModeZ
//  property indicates the server supports it.

loFtp = createobject("CkFtp2")

loFtp.Hostname = "ftp.example.com"
loFtp.Username = "myFtpLogin"

//  Normally you would not hard-code the password in source.  You should instead obtain it
//  from an interactive prompt, environment variable, or a secrets vault.
loFtp.Password = "myPassword"

llSuccess = loFtp.Connect()
if (llSuccess = .F.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

llSuccess = loFtp.ChangeRemoteDir("public_html")
if (llSuccess = .F.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

//  Only enable compression if the server advertises MODE Z support.
if (loFtp.HasModeZ) then
    llSuccess = loFtp.SetModeZ()
    if (llSuccess = .F.) then
        ? loFtp.LastErrorText
        release loFtp
        return
    endif

    ? "MODE Z compression enabled."
else
    ? "The server does not support MODE Z."
endif

//  Subsequent uploads, downloads, and listings are transferred compressed.

llSuccess = loFtp.Disconnect()
if (llSuccess = .F.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif



release loFtp