(DataFlex) Azure ServiceBus - Request a Token from ACS

This example duplicates the HTTP POST described at Request a Token from ACS.

Note: This example requires Chilkat v11.0.0 or greater.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    Variant vReq
    Handle hoReq
    Boolean iUseTls
    Variant vResp
    Handle hoResp
    String sAccessToken
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

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

    // The goal of this example is to send the following HTTP POST:

    // POST https://your-namespace-sb.accesscontrol.windows.net/WRAPv0.9/ HTTP/1.1  
    // Content-Type: application/x-www-form-urlencoded  
    // Host: your-namespace-sb.accesscontrol.windows.net  
    // Content-Length: 136  
    // Expect: 100-continue  
    // Connection: Keep-Alive  
    // 
    // wrap_name=owner&wrap_password=r8LuxCKD6DWY8auQcFql4M7euH2UuhcLcV1TaJTqNNE%3d&wrap_scope=http%3a%2f%2fyour-namespace.servicebus.windows.net%2f
    // 

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End
    Get Create (RefClass(cComChilkatHttpRequest)) To hoReq
    If (Not(IsComObjectCreated(hoReq))) Begin
        Send CreateComObject of hoReq
    End

    // Build the HTTP request...
    Set ComHttpVerb Of hoReq To "POST"
    Set ComPath Of hoReq To "/WRAPv0.9/"
    Set ComContentType Of hoReq To "application/x-www-form-urlencoded"

    // Adding the Connection: Keep-Alive is optional.  It only makes sense if the intent is to send
    // additional requests to the same domain (your-namespace-sb.accesscontrol.windows.net) within a reasonable time period.
    Send ComAddHeader To hoReq "Connection" "Keep-Alive"

    // The Expect: 100-continue really isn't necessary.  This only makes sense when a response is large.  The "100-continue"
    // provides a means for the HTTP server to alert the HTTP client that the request failed before sending the full response.
    // In this case, the response size is small, so there's no real need to bother with an "Expect: 100-continue".
    // If desired, it would be added just like any request header:
    Send ComAddHeader To hoReq "Expect" "100-continue"

    // Note: The following headers are automatically added by Chilkat:  Content-Type, Host, Content-Length.
    // The application should NOT set these directly.

    // Add the query parameters
    // When URL decoded and split, the query params look like this:
    // 
    // 	wrap_name=owner
    // 	wrap_password=r8LuxCKD6DWY8auQcFql4M7euH2UuhcLcV1TaJTqNNE=
    // 	wrap_scope=http://your-namespace.servicebus.windows.net/

    // Pass the URL-decoded values to AddParam.
    Send ComAddParam To hoReq "wrap_name" "owner"
    Send ComAddParam To hoReq "wrap_password" "r8LuxCKD6DWY8auQcFql4M7euH2UuhcLcV1TaJTqNNE="
    Send ComAddParam To hoReq "wrap_scope" "http://your-namespace.servicebus.windows.net/"

    // OK.. our request is properly setup.  Now send to the web server at your-namespace-sb.accesscontrol.windows.net.
    // We want https (i.e. SSL/TLS), so the port would be 443.
    Move True To iUseTls
    Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
    If (Not(IsComObjectCreated(hoResp))) Begin
        Send CreateComObject of hoResp
    End
    Get pvComObject of hoReq to vReq
    Get pvComObject of hoResp to vResp
    Get ComHttpSReq Of hoHttp "your-namespace-sb.accesscontrol.windows.net" 443 iUseTls vReq vResp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // A successful response will have a status code = 200.
    Get ComStatusCode Of hoResp To iTemp1
    If (iTemp1 <> 200) Begin
        Get ComStatusCode Of hoResp To iTemp1
        Showln "Response Status Code = " iTemp1
        Get ComBodyStr Of hoResp To sTemp1
        Showln sTemp1
        Showln "Failed."
        Procedure_Return
    End

    // A successful response will contain a URL encoded param string such as the following:

    // 	wrap_access_token=net.windows.servicebus.action%3d
    // 	Listen%252cManage%252cSend%26
    // 	http%253a%252f%252fschemas.microsoft.com%252faccesscontrolservice%252f2010%252f07%252fclaims%252fidentityprovider%3d
    // 	https%253a%252f%252fyour-namespace-sb.accesscontrol.windows.net%252f%26
    // 	Audience%3dhttp%253a%252f%252fyour-namespace.servicebus.windows.net%252f%26
    // 	ExpiresOn%3d1404435127%26
    // 	Issuer%3dhttps%253a%252f%252fyour-namespace-sb.accesscontrol.windows.net%252f%26
    // 	HMACSHA256%3dF%252bBoXUoifWdT%252fly8Oic9V1oPBbc3KmXKbSJbVhGSopU%253d&
    // 	wrap_access_token_expires_in=10799
    // 

    // The UrlEncParamValue method can be used to extract individual param values by name.
    // There are two params in the response: wrap_access_token and wrap_access_token_expires.
    // (It's a bit confusing because the value of the wrap_access_token is itself a URL encoded 
    // param string.)

    // Get the access token from the response:
    Get ComBodyStr Of hoResp To sTemp1
    Get ComUrlEncParamValue Of hoResp sTemp1 "wrap_access_token" To sAccessToken

    Showln "Your access token is the following param string:"
    Showln sAccessToken


End_Procedure