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) HTTP GET with Custom Header and OAuth2 Bearer TokenSee more HTTP ExamplesDemonstrate how to send a GET request with customer headers and an "Authorization: Bearer
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 success: Integer; http: TChilkatHttp; url: WideString; sb: TChilkatStringBuilder; json: TChilkatJsonObject; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. http := TChilkatHttp.Create(Self); // Setting the AuthToken property causes the "Authorization: Bearer <token>" header to be adeded. http.AuthToken := 'Just_the_access_token_here'; // Add one or more custom headers.. http.SetRequestHeader('X-Tenant-ID','value goes here'); http.SetRequestHeader('blah-blah-blah','value goes here'); url := 'https://www.example.com/abc/123?x=something&y=someOtherThing'; // Send the GET request and get the response body in the StringBuilder object. sb := TChilkatStringBuilder.Create(Self); success := http.QuickGetSb(url,sb.ControlInterface); if (success <> 1) then begin Memo1.Lines.Add(http.LastErrorText); Exit; end; Memo1.Lines.Add('response status code: ' + IntToStr(http.LastStatus)); Memo1.Lines.Add('response body:'); Memo1.Lines.Add(sb.GetAsString()); // If the response contains JSON, you can load it into a Chilkat JSON object... json := TChilkatJsonObject.Create(Self); json.LoadSb(sb.ControlInterface); json.EmitCompact := 0; Memo1.Lines.Add(json.Emit()); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.