close
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格式當來源的程式
[caption id="attachment_38" align="alignnone" width="530"]
Delphi結合Google試算表輸出JSON結果[/caption]
Orignal From: Delphi使用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格式當來源的程式
[caption id="attachment_38" align="alignnone" width="530"]
Delphi結合Google試算表輸出JSON結果[/caption]Orignal From: Delphi使用Google試算表當JSON來源
全站熱搜
留言列表
