Delphi ทำงานกับ JSON ด้วย Rest Debuger

ใส่ URL ของ API (กรณีนี้เป็น Get) ตรวจสอบ Tab Body ถ้าหากถูกต้องจะขึ้น Response ดังภาพด้านล่าง

กรณีนี้เราจะใช้ URL ของ JSON ที่เขามีไว้ทดสอบกัน

https://api.github.com/users/hadley/orgs

กดปุ่ม Copy Component

กด OK

กด Ctrl + V จะได้ Compnent มาสามตัวคือ

RestClient1 , RestRequest1 และ RestResponse1

จากนั้นให้ลาก Component FDMemtable1,Datasource1, RESTResponseDataSetAdapter1, Memmo1 และ Button มาวางเพิ่ม

กำหนด Dataset และ Response ให้กับ RestReesponseDataSetAdapter1

กำหนด Dataset ให้ Datasource1

ทดสอบ Execute โดยคลิกขวาที่ RestRequest1 แล้ว เลือก Execute..

ได้ Status 200 ถือว่า OK

ทดสอบ Update Dataset โดยคลิ๊กขวา แล้วเลือก Update DataSet

สร้าง Field ให้ Dataset โดยคลิกขวาที่ FDMemTable1 แล้วเลือก Fields Editor

เลือก Add All Fields

ลาก component dbgrid มาวาง แล้วกำหนด Datasource เป็น Datasource1 จะปรากฏชื่อ Field ออกมา

กำหนด ให้ FDMemTable1 Properteis Active เป็น True

ทดสอบ Execute อีกที

จะพบว่า สามารถนำข้อมูลมาแสดงได้แล้ว

ในส่วนของ Button ใส่ event ลงไปเพื่อนำเอาค่า JSON ที่ Response จาก API มาแสดง

RESTRequest1.Execute;
Memo1.Lines.Add(RESTResponse1.Content) ;
RESTResponseDataSetAdapter1.Active := False;
RESTResponseDataSetAdapter1.Active := True;

เมื่อ Run ก็จะพบว่า สามารถนำมาจัดการได้เหมือนการ คิวรี่จาก ฐานข้อมูลเลย