Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Classic ASP) MedTunnel: Login UserSee more MedTunnel ExamplesAuthenticate and create a session for the User. This gets a user token to be used in the Authorization header for other API calls. For more information, see https://server.medtunnel.com/apidocs/html/M_MedTunnelSvc_Controllers_AuthenticateController_LoginUser.htm
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set http = Server.CreateObject("Chilkat_9_5_0.Http") ' Implements the following CURL command: ' curl -X PUT -k ' -H "Content-Type: application/json" ' -d '{ "MedTunnelId":"yourMedTunnelId@yourGroup", ' "Password":"yourPassword", ' "ApplicationId":"yourApplicationId", ' "LocationId":"yourLocationId", ' "ExpirationInMinutes":"50" ' }' ' https://server.medtunnel.com/MedTunnelSvc/api/Authenticate/LoginUser ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code ' Use this online tool to generate code from sample JSON: ' Generate Code to Create JSON ' The following JSON is sent in the request body. ' { ' "MedTunnelId": "yourMedTunnelId@yourGroup", ' "Password": "yourPassword", ' "ApplicationId": "yourApplicationId", ' "LocationId": "yourLocationId", ' "ExpirationInMinutes": "50" ' } set json = Server.CreateObject("Chilkat_9_5_0.JsonObject") success = json.UpdateString("MedTunnelId","yourMedTunnelId@yourGroup") success = json.UpdateString("Password","yourPassword") success = json.UpdateString("ApplicationId","yourApplicationId") success = json.UpdateString("LocationId","yourLocationId") success = json.UpdateString("ExpirationInMinutes","50") http.SetRequestHeader "Content-Type","application/json" set sbRequestBody = Server.CreateObject("Chilkat_9_5_0.StringBuilder") success = json.EmitSb(sbRequestBody) ' resp is a Chilkat_9_5_0.HttpResponse Set resp = http.PTextSb("PUT","https://server.medtunnel.com/MedTunnelSvc/api/Authenticate/LoginUser",sbRequestBody,"utf-8","application/json",0,0) If (http.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If set sbResponseBody = Server.CreateObject("Chilkat_9_5_0.StringBuilder") success = resp.GetBodySb(sbResponseBody) set jResp = Server.CreateObject("Chilkat_9_5_0.JsonObject") success = jResp.LoadSb(sbResponseBody) jResp.EmitCompact = 0 Response.Write "<pre>" & Server.HTMLEncode( "Response Body:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( jResp.Emit()) & "</pre>" respStatusCode = resp.StatusCode Response.Write "<pre>" & Server.HTMLEncode( "Response Status Code = " & respStatusCode) & "</pre>" If (respStatusCode >= 400) Then Response.Write "<pre>" & Server.HTMLEncode( "Response Header:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( resp.Header) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Failed.") & "</pre>" Response.End End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "ReturnCode": 1, ' "ReturnCodeText": "Success", ' "Data": "{\"UserId\":36990,\"UserTypeId\":1, ... \"UserRole\":\"Account Admin\"}" ' } ' Sample code for parsing the JSON response... ' Use the following online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON ReturnCode = jResp.IntOf("ReturnCode") ReturnCodeText = jResp.StringOf("ReturnCodeText") Data = jResp.StringOf("Data") ' Load the Data into another JSON object and parse.. set jsonData = Server.CreateObject("Chilkat_9_5_0.JsonObject") success = jsonData.Load(Data) jsonData.EmitCompact = 0 Response.Write "<pre>" & Server.HTMLEncode( jsonData.Emit()) & "</pre>" ' Sample result. ' { ' "UserId": 36990, ' "UserTypeId": 1, ' "UserTypeDesc": "Single Provider", ' "Token": "MT 730DCA95-2B86-4A91-994E-99995B1A6FC1:9999952A-C6DA-4FB5-83D6-9999E880B4A2:50:/hc3CTWCS0kNMxZXTWR4NQ==:tev2vAToTCrnuyT6rxyCgQ==:sAYcvgPoIfaaCF0+gdeSD1GFcYk=", ' "MailboxId": 36965, ' "UserRole": "Account Admin" ' } token = jsonData.StringOf("Token") Response.Write "<pre>" & Server.HTMLEncode( "Token: " & token) & "</pre>" %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.