Delphi調用REST很簡單，首先在界面上放上：

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

然后簡單調用即可：

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

還可以對結果進行進一部處理，比如解析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。

轉載于:https://www.cnblogs.com/GarfieldTom/p/4901001.html

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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。