(PureBasic) Quote and SendCommand

Demonstrate the Quote and SendCommand methods.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkFtp2.pb"

Procedure ChilkatExample()

    ; 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")

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

    ; Tell the FTP object to keep an in-memory session log
    ; so we can see the commands sent to the server,
    ; and the responses received back.
    CkFtp2::setCkKeepSessionLog(ftp, 1)

    ; Change the current remote directory via the Quote method:
    success = CkFtp2::ckQuote(ftp,"CWD junk")
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Move back up 
    ; In this case, ChangeRemoteDir sends "CWD .." to the FTP server.
    success = CkFtp2::ckChangeRemoteDir(ftp,"..")
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Do the same via the SendCommand method where the
    ; raw FTP server response is returned:
    serverResponse.s = CkFtp2::ckSendCommand(ftp,"CWD junk")
    If CkFtp2::ckLastMethodSuccess(ftp) <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
    Else
        Debug serverResponse
    EndIf

    success = CkFtp2::ckDisconnect(ftp)

    Debug "Session Log:"
    Debug CkFtp2::ckSessionLog(ftp)


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure