在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
Delphi调用REST很简单,首先在界面上放上: RESTClient1: TRESTClient; 然后简单调用即可: RESTClient1.BaseURL:=edtURL.Text;
RESTRequest1.Execute;
memLog.Text:=RESTResponse1.Content;
还可以对结果进行进一部处理,比如解析JSON: procedure TfrmMain.btnGetClick(Sender: TObject); var jo,jo2:TJSONObject; jv:TJSONValue; ja:TJSONArray; jp:TJSONPair; i:Integer; begin RESTClient1.BaseURL:=edtURL.Text; RESTRequest1.Execute; memLog.Text:=RESTResponse1.Content; jo:=TJSONObject.Create; ja:=jo.ParseJSONValue(RESTResponse1.Content) as TJSONArray; for jv in ja do begin jo2:=jv as TJSONObject; for i:=0 to jo2.Count-1 do begin jp:=jo2.Pairs[i]; memLog.Lines.Add(jp.JsonString.ToString+':'+jp.JsonValue.ToString); end; end; end; 在这里我使用的是Delphi自带的JSON解析,注意引用单元system.json。 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论