procedure TuConfigura.btnGet1Click(Sender: TObject);
var
jValue: TJSONValue;
miparametro: string;
RESTRequest1: TRESTRequest;
RESTClient1: TRESTClient;
RESTResponse1 : TRESTResponse;
begin
try
RESTClient1 := TRESTClient.Create(nil);
RESTRequest1 := TRESTRequest.Create(nil);
RESTResponse1 := TRESTResponse.Create(nil);
try
RESTClient1.Accept := 'application/json, text/plain; text/json';
RESTClient1.AcceptCharset := 'UTF-8, *;q=0.8';
RESTClient1.BaseURL := eUrlApi.Text;
RESTClient1.HandleRedirects := True;
RESTClient1.AcceptEncoding := 'identity';
RESTClient1.ContentType := 'application/json';
RESTClient1.UserAgent := 'Embarcadero RESTClient/1.0';
RESTClient1.FallbackCharsetEncoding := 'UTF-8';
RESTClient1.AllowCookies := True;
RESTRequest1.Client := RESTClient1;
RESTRequest1.Params.AddItem('X-IFX-Token', eToken.Text,
TRESTRequestParameterKind.pkHTTPHEADER, [poAutoCreated]);
RESTRequest1.AddParameter('Content-Type', 'application/json',
TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]);
RESTRequest1.AddParameter('Accept', 'application/json',
TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]);
miparametro := '{ "class": "GET", "action": ' + '"' + eParam1.Text + '",'
+ ' "page": "' + eParam2.Text + '" }';
RESTRequest1.AddBody(miparametro, TRESTContentType.ctAPPLICATION_JSON);
RESTRequest1.Method := TRESTRequestMethod.rmPOST;
RESTRequest1.Timeout := 30000;
RESTResponse1.ContentType := 'application/json';
RESTRequest1.Response := RESTResponse1;
RESTRequest1.Execute;
jValue := RESTResponse1.JSONValue;
if (ComboBox1.ItemIndex = 1) and (jValue is TJSONObject) then
mRespuesta2.Text := jValue.ToString
else
mRespuesta2.Text := RESTResponse1.Content;
finally
RESTClient1.Free;
RESTRequest1.Free;
RESTResponse1.Free;
end;
except
on E: Exception do
ShowMessage(E.ClassName + ': ' + E.Message);
end;
end;