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

用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

posted @ 2016-06-19 01:04  findumars  Views(1526)  Comments(1)  Edit  收藏  举报