Delphi调用REST

本文整理自网络，侵删。

 
Delphi调用REST

Delphi调用REST很简单，首先在界面上放上：

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

然后简单调用即可：

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。
 

相关阅读 >>

Delphi 隐藏进程代码

Delphi 更改消息对话框中的按钮标题

Delphi 外壳扩展创建快捷方式和获取快捷方式的目标对象

Delphi启动屏幕保护

Delphi服务程序(service)的调试方法

Delphi 的编译指令(1): $define、$undef、$ifdef、$else、$endif

Delphi xe6 通过javascript api调用百度地图

Delphi xe7 android 实现的在线更新app的一个程序

Delphi 获取网页代码单元

Delphi 的链式代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi调用REST