Delphi調(diào)用REST很簡(jiǎn)單，首先在界面上放上：

RESTClient1: TRESTClient;
RESTRequest1: TRESTRequest;
RESTResponse1: TRESTResponse;

然后簡(jiǎn)單調(diào)用即可：

RESTClient1.BaseURL:=edtURL.Text; RESTRequest1.Execute; memLog.Text:=RESTResponse1.Content;

還可以對(duì)結(jié)果進(jìn)行進(jìn)一部處理，比如解析JSON：

procedure TfrmMain.btnGetClick(Sender: TObject); varjo,jo2:TJSONObject;jv:TJSONValue;ja:TJSONArray;jp:TJSONPair;i:Integer; beginRESTClient1.BaseURL:=edtURL.Text;RESTRequest1.Execute;memLog.Text:=RESTResponse1.Content;jo:=TJSONObject.Create;ja:=jo.ParseJSONValue(RESTResponse1.Content) as TJSONArray;for jv in ja dobeginjo2:=jv as TJSONObject;for i:=0 to jo2.Count-1 dobeginjp:=jo2.Pairs[i];memLog.Lines.Add(jp.JsonString.ToString+':'+jp.JsonValue.ToString);end;end;end;

在這里我使用的是Delphi自帶的JSON解析，注意引用單元system.json。

轉(zhuǎn)載于:https://www.cnblogs.com/GarfieldTom/p/4901001.html

《新程序員》：云原生和全面數(shù)字化實(shí)踐50位技術(shù)專家共同創(chuàng)作，文字、視頻、音頻交互閱讀

總結(jié)

以上是生活随笔為你收集整理的Delphi调用REST的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。