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

时间：2023-12-29 21:20:02

用TRESTClient控件调用REST架构服务

RESTClient控件返回数据集

用到的控件

RESTClient

RESTRequest

RESTResponseDataSetAdapter

RESTClient 控件 从服务器获得数据集 REST
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;
RESTClient 控件 从服务器获得数据集 REST

官方例子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

相关文章