Delphi DLL

HTTP Basic Authentication Test

Demonstrates how to do HTTP basic authentication using Chilkat. 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;
jsonResponse: PWideChar;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := CkHttp_Create();

// To use HTTP Basic authentication:
CkHttp_putLogin(http,'myLogin');
CkHttp_putPassword(http,'myPassword');
CkHttp_putBasicAuth(http,True);

// Run the test using this URL with the credentials above.  
// (Works while httpbin.org keeps the test endpoint available.)
jsonResponse := CkHttp__quickGetStr(http,'https://httpbin.org/basic-auth/myLogin/myPassword');
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('Response status code: ' + IntToStr(CkHttp_getLastStatus(http)));

Memo1.Lines.Add(jsonResponse);

// Output:

// Response status code: 200
// {
//   "authenticated": true, 
//   "user": "myLogin"
// }

CkHttp_Dispose(http);

end;