RESTClient 控件 从服务器获得数据集 REST

Posted 2020-07-26 朝闻道

用TRESTClient控件调用REST架构服务

RESTClient控件返回数据集

用到的控件

RESTClient

RESTRequest

RESTResponseDataSetAdapter

procedure Tfrm_Main.btn_DataSet_FetchDataClick(Sender: TObject);
begin
  ResetRESTComponentsToDefaults;

  RESTResponseDataSetAdapter.Response:= RESTResponse;
  RESTResponseDataSetAdapter.Dataset:= ClientDataSet;

  RESTClient.BaseURL := edt_DataSet_BaseURL.Text;   //http://www.developer-experts.net/hdmobile/api/
  RESTRequest.Resource := edt_DataSet_ResourceURI.Text;  //mandators
  RESTRequest.Execute;
end;

 

官方例子Studio\\14.0\\Samples\\Object Pascal\\Database\\RESTDemo

D:\\Documents\\Embarcadero\\Studio\\14.0\\Samples\\Object Pascal\\Database\\RESTDemo

 View Code

 

 

http://community.embarcadero.com/blogs/entry/rad-studio-10-1-berlin-rest-json-and-using-a-fun-site-name2gender-com

 RESTRequest1->AddParameter("Name",UpperCase(Edit1->Text));
  RESTRequest1->Execute();
  RESTStatusLabel->Text = IntToStr(RESTResponse1->StatusCode)+"/"+RESTResponse1->StatusText;
  Memo1->Lines->Add(RESTResponse1->JSONText);

RESTRequest1.Params[0].Value := UpperCase(Edit1.Text);
  RESTRequest1.Execute();
  RESTStatusLabel.Text := IntToStr(RESTResponse1.StatusCode)+\'/\'+RESTResponse1.StatusText;
  Memo1.Lines.Add(RESTResponse1.JSONText);

http://www.cnblogs.com/cb168/p/3887269.html