![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) Azure ServiceBus - Request a Token from ACSThis example duplicates the HTTP POST described at Request a Token from ACS. Note: This example requires Chilkat v11.0.0 or greater.
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 |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.