Delphi DLL

Example: Http.HasRequestHeader method

Demonstrates the HasRequestHeader method. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
b: Boolean;

begin
http := CkHttp_Create();

CkHttp_SetRequestHeader(http,'X-CSRF-Token','Fetch');

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

b := CkHttp_HasRequestHeader(http,'X-Something');
if (b = True) 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 := CkHttp_HasRequestHeader(http,'Accept');
if (b = True) 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

CkHttp_Dispose(http);

end;