(DataFlex) Quote and SendCommand

Demonstrate the Quote and SendCommand methods.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoFtp
    Boolean iSuccess
    String sServerResponse
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatFtp2)) To hoFtp
    If (Not(IsComObjectCreated(hoFtp))) Begin
        Send CreateComObject of hoFtp
    End

    Set ComHostname Of hoFtp To "ftp.example.com"
    Set ComUsername Of hoFtp To "login"
    Set ComPassword Of hoFtp To "password"

    // Connect and login to the FTP server.
    Get ComConnect Of hoFtp To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // 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.
    Set ComKeepSessionLog Of hoFtp To True

    // Change the current remote directory via the Quote method:
    Get ComQuote Of hoFtp "CWD junk" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Move back up 
    // In this case, ChangeRemoteDir sends "CWD .." to the FTP server.
    Get ComChangeRemoteDir Of hoFtp ".." To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Do the same via the SendCommand method where the
    // raw FTP server response is returned:
    Get ComSendCommand Of hoFtp "CWD junk" To sServerResponse
    Get ComLastMethodSuccess Of hoFtp To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln sServerResponse
    End

    Get ComDisconnect Of hoFtp To iSuccess

    Showln "Session Log:"
    Get ComSessionLog Of hoFtp To sTemp1
    Showln sTemp1


End_Procedure