PureBasic

FTP through HTTP Tunnel (FTP over HTTP Proxy)

See more FTP Examples

Note: This example requires Chilkat v9.5.0.51 or greater.

FTP through an HTTP tunnel (via an HTTP proxy server that supports HTTP tunneling).

PureBasic

IncludeFile "CkFtp2.pb"

Procedure ChilkatExample()

    success.i = 0

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

    ftp.i = CkFtp2::ckCreate()
    If ftp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFtp2::setCkHostname(ftp, "ftp.example.com")
    CkFtp2::setCkUsername(ftp, "login")
    CkFtp2::setCkPassword(ftp, "password")

    ; Set the HTTP proxy server properties.
    ; This is to connect via HTTP/1.1 using CONNECT method
    CkFtp2::setCkHttpProxyHostname(ftp, "192.168.1.127")
    CkFtp2::setCkHttpProxyPort(ftp, 8080)

    ; If the proxy server requires authentication...
    CkFtp2::setCkHttpProxyUsername(ftp, "myProxyUsername")
    CkFtp2::setCkHttpProxyPassword(ftp, "myProxyPassword")

    ; FTP over an HTTP proxy requires that FTP Passive mode be used
    ; for data transfers. It is not possible to use non-passive (active) mode
    ; for FTP over HTTP.
    CkFtp2::setCkPassive(ftp, 1)

    ; Connect and login to the FTP server.
    success = CkFtp2::ckConnect(ftp)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Change to the remote directory where the file will be uploaded.
    success = CkFtp2::ckChangeRemoteDir(ftp,"junk")
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Upload a file.
    localFilename.s = "c:/temp/hamlet.xml"
    remoteFilename.s = "hamlet.xml"

    success = CkFtp2::ckPutFile(ftp,localFilename,remoteFilename)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    success = CkFtp2::ckDisconnect(ftp)

    Debug "File Uploaded!"


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure