用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;
官方例子Studio14.0SamplesObject PascalDatabaseRESTDemo
D:DocumentsEmbarcaderoStudio14.0SamplesObject PascalDatabaseRESTDemo
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