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

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

巴特西

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

最新文章

热门文章

巴特西

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

最新文章

热门文章

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