Automatically Determine FTP Proxy Method

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

Download Chilkat FTP2 ActiveX

LOCAL loFtp
LOCAL lnSuccess
LOCAL lnPMethod

loFtp = CreateObject('Chilkat.Ftp2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loFtp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

loFtp.Hostname = "www.example-code.com"
loFtp.Username = "example-code.com"
loFtp.Password = "****"

loFtp.ProxyHostname = "ftp.myproxyhost.com"
loFtp.ProxyPort = 21
*  Note: Your FTP Proxy server may or may not require authentication.
loFtp.ProxyUsername = "myProxyUsername"
loFtp.ProxyPassword = "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.

lnPMethod = loFtp.DetermineProxyMethod()
? STR(lnPMethod)

loFtp.Disconnect()