(Tcl) Automatically Determine FTP Proxy Method

Tries each of the five possible ProxyMethod settings and returns the value (1-5) of the ProxyMethod that succeeded.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set ftp [new_CkFtp2]

CkFtp2_put_Hostname $ftp "www.example-code.com"
CkFtp2_put_Username $ftp "example-code.com"
CkFtp2_put_Password $ftp "****"

CkFtp2_put_ProxyHostname $ftp "ftp.myproxyhost.com"
CkFtp2_put_ProxyPort $ftp 21
# Note: Your FTP Proxy server may or may not require authentication.
CkFtp2_put_ProxyUsername $ftp "myProxyUsername"
CkFtp2_put_ProxyPassword $ftp "myProxyPassword"

# The ProxyMethod should be an integer value between 1 and 5.
# If you know your FTP proxy server's authentication scheme,
# you may set it directly.  To determine the ProxyMethod,
# call DetermineProxyMethod.  A return value of -1 indicates a failure.
# A return value of 0 indicates that nothing worked.
# A return value of 1-5 indicates the ProxyMethod that was 
# successful, and this should be the value used for the ProxyMethod
# property.

set pMethod [CkFtp2_DetermineProxyMethod $ftp]
puts "$pMethod"

set success [CkFtp2_Disconnect $ftp]

delete_CkFtp2 $ftp