Delphi ActiveX

Example: Http.HasRequestHeader method

Demonstrates the HasRequestHeader method. Delphi ActiveX

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;
b: Integer;

begin
http := TChilkatHttp.Create(Self);

http.SetRequestHeader('X-CSRF-Token','Fetch');

b := http.HasRequestHeader('X-CSRF-Token');
if (b = 1) then
  begin
    Memo1.Lines.Add('X-CSRF-Token: Yes');
  end
else
  begin
    Memo1.Lines.Add('X-CSRF-Token: No');
  end;

b := http.HasRequestHeader('X-Something');
if (b = 1) then
  begin
    Memo1.Lines.Add('X-Something: Yes');
  end
else
  begin
    Memo1.Lines.Add('X-Something: No');
  end;

// The Accept and Accept-Encoding headers are default headers automatically added,
// unless the application chooses to remove by calling RemoveRequestHeader for each.
b := http.HasRequestHeader('Accept');
if (b = 1) then
  begin
    Memo1.Lines.Add('Accept: Yes');
  end
else
  begin
    Memo1.Lines.Add('Accept: No');
  end;

// Output:

// X-CSRF-Token: Yes
// X-Something: No
// Accept: Yes
end;