PowerBuilder

Send a Raw FTP Command (Quote)

Demonstrates the Chilkat Ftp2.Quote method, which sends a raw FTP command and returns a success/failure result rather than the reply text. The only argument is the command, which must not contain CR or LF. The full reply is available in the LastReply property.

Background: Quote and SendCommand do the same thing — send an arbitrary control-connection command — and differ only in what they return: Quote gives a boolean keyed on the reply code and leaves the text in LastReply, while SendCommand returns the reply string directly. Choose Quote when you mainly care whether the command succeeded.

Chilkat PowerBuilder Downloads

Download Chilkat for PowerBuilder

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Ftp

li_Success = 0

//  Demonstrates the Ftp2.Quote method, which sends a raw FTP command to the server.  The only
//  argument is the command text.  Unlike SendCommand, it returns a success/failure bool rather
//  than the reply text.

loo_Ftp = create oleobject
li_rc = loo_Ftp.ConnectToNewObject("Chilkat.Ftp2")
if li_rc < 0 then
    destroy loo_Ftp
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Ftp.Hostname = "ftp.example.com"
loo_Ftp.Username = "myFtpLogin"

//  Normally you would not hard-code the password in source.  You should instead obtain it
//  from an interactive prompt, environment variable, or a secrets vault.
loo_Ftp.Password = "myPassword"

//  Connect and log in (Connect performs both).
li_Success = loo_Ftp.Connect()
if li_Success = 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

//  The command must not contain CR or LF characters.  Here we send a NOOP as an example.
li_Success = loo_Ftp.Quote("NOOP")
if li_Success = 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

//  The full server reply to the last command is available in the LastReply property.
Write-Debug loo_Ftp.LastReply

li_Success = loo_Ftp.Disconnect()
if li_Success = 0 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if



destroy loo_Ftp