(DataFlex) IMAP LastResponse and LastResponseCode

Demonstrates the IMAP LastResponse and LastResponseCode properties.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoImap
    Boolean iSuccess
    String sTemp1

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

    Get Create (RefClass(cComChilkatImap)) To hoImap
    If (Not(IsComObjectCreated(hoImap))) Begin
        Send CreateComObject of hoImap
    End

    // Use TLS
    Set ComSsl Of hoImap To True
    Set ComPort Of hoImap To 993
    Get ComConnect Of hoImap "imap.gmail.com" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoImap To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Authenticate, but with an intentionally incorrect password
    // so we can see the contents of the LastErrorText, and also
    // the LastResponse and LastResponseCode properties.
    Get ComLogin Of hoImap "my_login" "my_intentionally incorrect_password" To iSuccess
    If (iSuccess = True) Begin
        Showln "Successfull login, but this example is meant to demonstrate an error, such as a failed login."
        Procedure_Return
    End

    // Let's look at the LastErrorText, and also the LastResponse and LastResponseCode.
    Get ComLastResponseCode Of hoImap To sTemp1
    Showln "LastResponseCode = " sTemp1
    Get ComLastResponse Of hoImap To sTemp1
    Showln "LastReponse = " sTemp1
    Get ComLastErrorText Of hoImap To sTemp1
    Showln "LastErrorText = " sTemp1

    // Sample output:

    // LastResponseCode = AUTHENTICATIONFAILED
    // LastReponse = aaab NO [AUTHENTICATIONFAILED] Invalid credentials (Failure)
    // LastErrorText = ChilkatLog:
    //   Login:
    //     DllDate: Oct 28 2023
    //     ChilkatVersion: 9.5.0.96
    //     UnlockPrefix: EXCODE
    //     UnlockStatus: 2
    //     Architecture: Little Endian; 64-bit
    //     Language: .NET 4.5 / x64 / VS2012
    //     VerboseLogging: 0
    //     imapServer: imap.gmail.com
    //     loginX(47ms):
    //       login: my_login
    //       greeting: * OK Gimap ready for requests from 98.213.102.119 w5mb285327441qtc
    // 
    //       authenticateLogin(47ms):
    //         loginImap(47ms):
    //           ConnectionType: SSL/TLS
    //           ImapCmdSent: aaab LOGIN "my_login"
    //           getCompleteResponse(47ms):
    //             ImapCmdResp: aaab NO [AUTHENTICATIONFAILED] Invalid credentials (Failure)
    //           --getCompleteResponse
    //         --loginImap
    //         isOK:
    //           serverResponse: aaab NO [AUTHENTICATIONFAILED] Invalid credentials (Failure)
    //         --isOK
    //       --authenticateLogin
    //     --loginX
    //     Failed.
    //   --Login
    // --ChilkatLog

    // Disconnect from the IMAP server.
    Get ComDisconnect Of hoImap To iSuccess


End_Procedure