我的第一个REST客户端程序！

Delphi：XE8

看了好几天的资料了，也没有弄出来一个REST程序，尝试了XE8中带的例子，也都没有搞懂。我在网上不断搜索，看是否能够找到适合自己的文章，希望能够做出来一个REST的小例子，万幸，终于弄出来一个了！

这个小程序是把IP地址发送到淘宝的REST API，得到淘宝IP库返回的解析结果，先看看运行效果吧！

这是一个REST客户端程序，既然自己暂时编不出来REST服务器，那么最简单就是找一个可以尝试的REST服务器，所以我用这种方法先编一个RESET客户端程序，对REST程序了解一下！我们先看看我这个小程序使用了哪些控件：

RESTClient1: TRESTClient;：是REST客户端管理类。

RESTRequest1: TRESTRequest;：负责REST请求相关的工作，处理请求用的参数等。

RESTResponse1: TRESTResponse：负责REST请求返回的结果，HTTP状态码和返回结果等。

这个小程序的整个单元的源代码在下面：

1. unit Unit2;
2. interface
3. uses
4. Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
5. System.Classes, Vcl.Graphics,
6. Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IPPeerClient, Vcl.StdCtrls, REST.Client,
7. Data.Bind.Components, Data.Bind.ObjectScope;
8. type
9. TForm2 = class(TForm)
10. RESTClient1: TRESTClient;
11. RESTRequest1: TRESTRequest;
12. RESTResponse1: TRESTResponse;
13. Button1: TButton;
14. Memo1: TMemo;
15. Edit1: TEdit;
16. Label1: TLabel;
17. procedure Button1Click(Sender: TObject);
18. private
19. { Private declarations }
20. public
21. { Public declarations }
22. end;
23. var
24. Form2: TForm2;
25. implementation
26. uses System.json;
27. {$R *.dfm}
28. procedure TForm2.Button1Click(Sender: TObject);
29. var
30. JO, JData: TJSONObject;
31. code: string;
32. temp: string;
33. begin
34. RESTClient1.BaseURL := 'http://ip.taobao.com//service/getIpInfo.php?ip=' +
35. trim(Edit1.Text);
36. RESTRequest1.Execute;
37. // 清理先前数据
38. Memo1.Clear;
39. Memo1.Lines.Add('请求时间:' + Formatdatetime('yyyy-mm-dd hh:mm:ss zzz', now)
40. + #13#10);
41. // 在memo中显示得到数据
42. temp := temp + '原始数据:' + #13#10;
43. temp := temp + RESTResponse1.Content + #13#10;
44. Memo1.Lines.Add(temp);
45. // 解析得到的JSON数据
46. JO := TJSONObject.ParseJSONValue(RESTResponse1.Content) as TJSONObject;
47. // 得到错误编号
48. code := (JO.Get('code').JsonValue as TJSONString).ToString;
49. if code = '0' then
50. begin
51. // 解析具体数据
52. JData := JO.Get('data').JsonValue as TJSONObject;
53. temp := '解析的详细数据' + #13#10;
54. // ISP
55. temp := temp + ' I S P:' + (JData.Get('isp').JsonValue as TJSONString)
56. .ToString + #13;
57. Memo1.Lines.Add(temp);
58. // 国家
59. temp := '国家:' + (JData.Get('country').JsonValue as TJSONString)
60. .ToString + #13;
61. Memo1.Lines.Add(temp);
62. // 地区
63. temp := '地区:' + (JData.Get('area').JsonValue as TJSONString).ToString + #13;
64. Memo1.Lines.Add(temp);
65. // 省份
66. temp := '省份:' + (JData.Get('region').JsonValue as TJSONString)
67. .ToString + #13;
68. Memo1.Lines.Add(temp);
69. // 城市
70. temp := '城市:' + (JData.Get('city').JsonValue as TJSONString)
71. .ToString + #13#10;
72. Memo1.Lines.Add(temp);
73. end;
74. end;
75. end.

源代码下载：

http://download.csdn.net/detail/sunylat/8781273

参考资料：

淘宝IP地址查询

http://ip.taobao.com/instructions.php

http://blog.csdn.net/maxwoods/article/details/24265667

http://www.cnblogs.com/xalion/p/3370459.html

http://blog.csdn.net/sunylat/article/details/41407945

http://blog.csdn.net/sunylat/article/details/46399987