(DataFlex) Azure ServiceBus - Request a Token from ACS

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

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

Use ChilkatAx-win32.pkg

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

    // 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 pvComObject of hoReq to vReq
    Get ComSynchronousRequest Of hoHttp "your-namespace-sb.accesscontrol.windows.net" 443 iUseTls vReq To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 <> True) 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."
        Send Destroy of hoResp
        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

    Send Destroy of hoResp


End_Procedure