Http Client Demo

I try to make a request to a Rest service using the Http Client Demo as a template.

The service requires a Basic Authentication, how can I do that?

Regards,
Ole

Hello Ole, you can use this code:




 MyHttpClient.OnSendingRequest := procedure(Req: THttpRequest)
    begin
      C.Request.Headers.SetValue('authorization', TSparkleUtils.BasicAuthHeaderValue('user', ‘password'));
    end;

Hello Wagner

How can I implement that in this code?

procedure TForm2.Button1Click(Sender: TObject);
var
  Client : THttpClient;
  Request : THttpRequest;
  Response : THttpResponse;
begin
  request:=nil;
  response:=nil;
  client:=tHttpClient.Create;
  try
    request:=client.CreateRequest;
    request.uri:='https://xxxxxxxx';
    request.Method:='GET';
    response:=client.Send(request);
    request.SetContent(tencoding.UTF8.GetBytes('text/html'));
    if response.StatusCode=200 then
    showmessage('OK');
  finally
    request.Free;
    response.Free;
    client.Free;
  end;
end;

Hi Ole, use this:




procedure TForm2.Button1Click(Sender: TObject);
var
  Client : THttpClient;
  Request : THttpRequest;
  Response : THttpResponse;
begin
  request:=nil;
  response:=nil;
  client:=tHttpClient.Create;
  try
    client.OnSendingRequest := procedure(Req: THttpRequest)
    begin
      Req.Headers.SetValue('authorization', TSparkleUtils.BasicAuthHeaderValue('user', ‘password'));
    end;


    request:=client.CreateRequest;
    request.uri:='https://xxxxxxxx';
    request.Method:='GET';
    response:=client.Send(request);
    request.SetContent(tencoding.UTF8.GetBytes('text/html'));
    if response.StatusCode=200 then
    showmessage('OK');
  finally
    request.Free;
    response.Free;
    client.Free;
  end;
end;