Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) 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
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As Chilkat.Http Set http = Chilkat.NewHttp ' 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" ' } Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject Dim success As Boolean 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" Dim sbRequestBody As Chilkat.StringBuilder Set sbRequestBody = Chilkat.NewStringBuilder success = json.EmitSb(sbRequestBody) Set resp = http.PTextSb("PUT","https://server.medtunnel.com/MedTunnelSvc/api/Authenticate/LoginUser",sbRequestBody,"utf-8","application/json",False,False) If (http.LastMethodSuccess = False) Then Debug.Print http.LastErrorText Exit Sub End If Dim sbResponseBody As Chilkat.StringBuilder Set sbResponseBody = Chilkat.NewStringBuilder success = resp.GetBodySb(sbResponseBody) Dim jResp As Chilkat.JsonObject Set jResp = Chilkat.NewJsonObject success = jResp.LoadSb(sbResponseBody) jResp.EmitCompact = False Debug.Print "Response Body:" Debug.Print jResp.Emit() respStatusCode = resp.StatusCode Debug.Print "Response Status Code = "; respStatusCode If (respStatusCode >= 400) Then Debug.Print "Response Header:" Debug.Print resp.Header Debug.Print "Failed." Exit Sub 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.. Dim jsonData As Chilkat.JsonObject Set jsonData = Chilkat.NewJsonObject success = jsonData.Load(Data) jsonData.EmitCompact = False Debug.Print jsonData.Emit() ' 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") Debug.Print "Token: "; token |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.