B4X

Quote and SendCommand

See more FTP Examples

Demonstrate the Quote and SendCommand methods. B4X

Dim success As Boolean = False

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

Dim ftp As ChilkatFtp2
ftp.Initialize("ftp")

ftp.Hostname = "ftp.example.com"
ftp.Username = "login"
ftp.Password = "password"

'  Connect and login to the FTP server.
success = ftp.Connect
If success <> True Then
    Log(ftp.LastErrorText)
    Return
End If


'  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.
ftp.KeepSessionLog = True

'  Change the current remote directory via the Quote method:
success = ftp.Quote("CWD junk")
If success <> True Then
    Log(ftp.LastErrorText)
    Return
End If


'  Move back up 
'  In this case, ChangeRemoteDir sends "CWD .." to the FTP server.
success = ftp.ChangeRemoteDir("..")
If success <> True Then
    Log(ftp.LastErrorText)
    Return
End If


'  Do the same via the SendCommand method where the
'  raw FTP server response is returned:
Dim serverResponse As String = ftp.SendCommand("CWD junk")
If ftp.LastMethodSuccess <> True Then
    Log(ftp.LastErrorText)
Else
    Log(serverResponse)
End If


success = ftp.Disconnect

Log("Session Log:")
Log(ftp.SessionLog)