(DataFlex) Get Populi Access Key (Token)

Demonstrates how to authenticate and obtain an access key using a username and password.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoRest
    Boolean iBAutoReconnect
    Boolean iSuccess
    String sResponseBody
    Handle hoXml
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatRest)) To hoRest
    If (Not(IsComObjectCreated(hoRest))) Begin
        Send CreateComObject of hoRest
    End

    // Connect using TLS.
    // A single REST object, once connected, can be used for many Populi REST API calls.
    // The auto-reconnect indicates that if the already-established HTTPS connection is closed,
    // then it will be automatically re-established as needed.
    Move True To iBAutoReconnect
    Get ComConnect Of hoRest "yourcollege.populi.co" 443 True iBAutoReconnect To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComAddQueryParam Of hoRest "username" "POPULI_USERNAME" To iSuccess
    Get ComAddQueryParam Of hoRest "password" "POPULI_PASSWORD" To iSuccess

    Get ComFullRequestFormUrlEncoded Of hoRest "POST" "/api/index.php" To sResponseBody
    Get ComLastMethodSuccess Of hoRest To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // We should expect a 200 response if successful.
    Get ComResponseStatusCode Of hoRest To iTemp1
    If (iTemp1 <> 200) Begin
        Showln "Request Header: "
        Get ComLastRequestHeader Of hoRest To sTemp1
        Showln sTemp1
        Showln "----"
        Get ComResponseStatusCode Of hoRest To iTemp1
        Showln "Response StatusCode = " iTemp1
        Get ComResponseStatusText Of hoRest To sTemp1
        Showln "Response StatusLine: " sTemp1
        Showln "Response Header:"
        Get ComResponseHeader Of hoRest To sTemp1
        Showln sTemp1
        Showln "Response Body:"
        Showln sResponseBody
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End
    Get ComLoadXml Of hoXml sResponseBody To iSuccess
    Get ComGetXml Of hoXml To sTemp1
    Showln sTemp1

    // Sample response:
    // <?xml version="1.0" encoding="ISO-8859-1"?>
    // <response>
    // <access_key>63481e36023b5d ... 76d0dbc314</access_key>
    //     <accountid>19999999</accountid>
    //     <accounttype>PERSON</accounttype>
    // </response>

    // Save the XML to a file for subsequent requests..
    Get ComSaveXml Of hoXml "qa_data/tokens/populi_token.xml" To iSuccess


End_Procedure