Visual FoxPro

IMAP LastResponse and LastResponseCode

Demonstrates the IMAP LastResponse and LastResponseCode properties. Visual FoxPro

LOCAL lnSuccess
LOCAL loImap

lnSuccess = 0

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

loImap = CreateObject('Chilkat.Imap')

* Use TLS
loImap.Ssl = 1
loImap.Port = 993
lnSuccess = loImap.Connect("imap.gmail.com")
IF (lnSuccess <> 1) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* Authenticate, but with an intentionally incorrect password
* so we can see the contents of the LastErrorText, and also
* the LastResponse and LastResponseCode properties.
lnSuccess = loImap.Login("my_login","my_intentionally incorrect_password")
IF (lnSuccess = 1) THEN
    ? "Successfull login, but this example is meant to demonstrate an error, such as a failed login."
    RELEASE loImap
    CANCEL
ENDIF

* Let's look at the LastErrorText, and also the LastResponse and LastResponseCode.
? "LastResponseCode = " + loImap.LastResponseCode
? "LastReponse = " + loImap.LastResponse
? "LastErrorText = " + loImap.LastErrorText

* 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.
lnSuccess = loImap.Disconnect()

RELEASE loImap