![]() |
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
(Delphi ActiveX) 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
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var http: TChilkatHttp; success: Integer; json: TChilkatJsonObject; sbRequestBody: TChilkatStringBuilder; resp: IChilkatHttpResponse; sbResponseBody: TChilkatStringBuilder; jResp: TChilkatJsonObject; respStatusCode: Integer; ReturnCode: Integer; ReturnCodeText: WideString; Data: WideString; jsonData: TChilkatJsonObject; token: WideString; begin // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. http := TChilkatHttp.Create(Self); // 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" // } json := TChilkatJsonObject.Create(Self); json.UpdateString('MedTunnelId','yourMedTunnelId@yourGroup'); json.UpdateString('Password','yourPassword'); json.UpdateString('ApplicationId','yourApplicationId'); json.UpdateString('LocationId','yourLocationId'); json.UpdateString('ExpirationInMinutes','50'); http.SetRequestHeader('Content-Type','application/json'); sbRequestBody := TChilkatStringBuilder.Create(Self); json.EmitSb(sbRequestBody.ControlInterface); resp := http.PTextSb('PUT','https://server.medtunnel.com/MedTunnelSvc/api/Authenticate/LoginUser',sbRequestBody.ControlInterface,'utf-8','application/json',0,0); if (http.LastMethodSuccess = 0) then begin Memo1.Lines.Add(http.LastErrorText); Exit; end; sbResponseBody := TChilkatStringBuilder.Create(Self); resp.GetBodySb(sbResponseBody.ControlInterface); jResp := TChilkatJsonObject.Create(Self); jResp.LoadSb(sbResponseBody.ControlInterface); jResp.EmitCompact := 0; Memo1.Lines.Add('Response Body:'); Memo1.Lines.Add(jResp.Emit()); respStatusCode := resp.StatusCode; Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode)); if (respStatusCode >= 400) then begin Memo1.Lines.Add('Response Header:'); Memo1.Lines.Add(resp.Header); Memo1.Lines.Add('Failed.'); Exit; end; // 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.. jsonData := TChilkatJsonObject.Create(Self); jsonData.Load(Data); jsonData.EmitCompact := 0; Memo1.Lines.Add(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'); Memo1.Lines.Add('Token: ' + token); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.