Delphi使用Google試算表當JSON來源

Delphi XE版本中有相當好用的restful client元件,不過有時候找不到json服務的時候倒是挺困擾的。幸好Google雲端硬碟有提供json格式輸出服務,讓開發可以應急。

一、首先在雲端硬碟新增Google試算表

二、接著按檔案→發佈到網路….將檔案發佈到網路上

三、將網址中https://docs.google.com/spreadsheets/d/與/edit#gid=0中間的文字複製下來,然後貼到https://spreadsheets.google.com/feeds/list/________________________/od6/public/values?alt=json,中間底線的位置。如果沒問題的話,將這個網址貼到瀏覽器可以看到JSON格式。

四、打開DELPHI XE,新增mobile application,依序增加ListView、ClientDataSet以及RESTClient、RESTRequest、RESTResponse、RESTResponseDataAdapter.

五、設定後畫面如下

六、接著設定RESTClient將BaseURL貼上Google試算表的網址

七、接著設定RESTResponseDataSetAdapter,Dataset指定ClientDataSet1、將NestedElements勾選為True,以及Response設為RESTResponse1

八、接著在RESTRequest1按右鍵Execute後,如果成功會出現 Response:200 – OK

九、ListView1的ItemAppearance中的ItemAppearance設為ListItemRightDetail

九、Delphi選單上的View→ LiveBindings Designer打開。將欄位拖拉對應如下圖

十、完成了以Google試算表輸出JSON格式當來源的程式

Delphi結合Google試算表輸出JSON結果
Delphi結合Google試算表輸出JSON結果

我要留言

留言

發表迴響

你的電子郵件位址並不會被公開。 必要欄位標記為 *