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;
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;