delphi RESTClient1请求 api接口

procedure TNewFormFrame.Button1Click(Sender: TObject);

begin

inherited;

memo1.Lines.text := '';

RESTClient1.ResetToDefaults;

RESTClient1.Accept := 'application/json, text/plain; q=0.9, text/html;q=0.8,';

RESTClient1.AcceptCharset := 'UTF-8, *;q=0.8';

RESTClient1.BaseURL := 'http://api.ipstack.com/' + edit2.text;

RESTClient1.HandleRedirects := True;

RESTClient1.RaiseExceptionOn500 := False;

//here is were we pass the access_key and the additional parameters

RESTRequest1.Resource := Format('?access_key=%s', [edit1.Text]);

RESTRequest1.Client := RESTClient1;

RESTRequest1.Response := RESTResponse1;

RESTRequest1.SynchronizedEvents := False;

RESTResponse1.ContentType := 'application/json';

RESTRequest1.Execute;

memo1.Lines.text := RESTResponse1.Content;

end;