var
LSend : TACBrHTTP;
LURL, LRetorno: String;
begin
LURL := 'https://xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';
LSend := TACBrHTTP.Create(nil);
try
try
LSend.HTTPSend.Clear;
LSend.HTTPSend.MimeType := 'application/json';
LSend.HTTPSend.Headers.Add(
'authorization:Bearer xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx');
LSend.HTTPSend.Headers.Add('Accept-Charset: utf-8');
LSend.URLQueryParams.AddPair('id', '22');
LSend.URLQueryParams.AddPair('formato', 'JSON');
LSend.URLQueryParams.AddPair(
'token', 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx');
LSend.HTTPPost(LURL);
except
on E: Exception do
begin
Application.ProcessMessages;
ShowMessage(E.Message);
end;
end;
LRetorno := Trim(LSend.HTTPResponse);
finally
FreeAndNil(LSend);
end;