การใช้งาน Parse JSON to Array ในภาษา Delphi Object Pascal แบบง่ายๆ

ในการพัฒนาแอพพลิเคชันสมัยใหม่ JSON (JavaScript Object Notation) เป็นรูปแบบข้อมูลที่ได้รับความนิยมอย่างสูง เนื่องจากความเรียบง่ายในโครงสร้างและสามารถใช้งานได้กับหลายภาษา รวมถึง Delphi Object Pascal ด้วย ดังนั้นในบทความนี้เราจะมาดูวิธีการ Parse JSON ที่เป็น Array ใน Delphi พร้อมกับตัวอย่างโค้ดใช้งานและการอธิบายการทำงาน ตลอดจนยกตัวอย่าง use case ที่น่าสนใจจากโลกจริง

JSON คืออะไร?

JSON เป็นรูปแบบข้อมูลที่ใช้ในการแลกเปลี่ยนข้อมูลระหว่าง Client และ Server โดยที่โครงสร้างของ JSON จะมีลักษณะคล้ายกับ Object ใน JavaScript ซึ่งทำให้ JSON มีความชัดเจนและอ่านง่าย ข้อมูลใน JSON สามารถเป็นประเภทต่างๆ เช่น String, Number, Object, Array, Boolean และ Null

การติดตั้ง Library สำหรับ JSON ใน Delphi

ในการทำงานกับ JSON ใน Delphi คุณาจะต้องมี `System.JSON` ซึ่งเป็น Unit ที่มาพร้อมกับ Delphi 2010 ขึ้นไป หากคุณใช้เวอร์ชันที่เก่ากว่าอาจจะต้องพิจารณาการใช้งาน Library อื่น ๆ ที่รองรับ นอกจากนี้คุณยังสามารถใช้ `SuperObject` ซึ่งเป็น Library เพิ่มเติมสำหรับการทำงานกับ JSON ที่ใช้งานง่ายมากขึ้น

ตัวอย่างโค้ด JSON Array

เราจะมาดูตัวอย่างการ Parse JSON array ใน Delphi โดยสมมุติว่าเรามีข้อมูล JSON ที่ต้องการจะ Parse ดังนี้:

 {
    "students": [
        {"name": "John", "age": 22},
        {"name": "Anna", "age": 21},
        {"name": "Mike", "age": 23}
    ]
}

ขั้นตอนที่ 1: การประกาศตัวแปรและ JSON String

 uses
  System.SysUtils, System.JSON;

var
  JSONString: string;
  JSONObject: TJSONObject;
  JSONArray: TJSONArray;
  Student: TJSONObject;
  i: Integer;
begin
  JSONString := '{"students": [{"name": "John", "age": 22},{"name": "Anna", "age": 21},{"name": "Mike", "age": 23}]}';

ในส่วนนี้เราได้ประกาศ `JSONString` ที่มีข้อมูล JSON นักเรียน 3 คน

ขั้นตอนที่ 2: Parse JSON

   JSONObject := TJSONObject.ParseJSONValue(JSONString) as TJSONObject;
  try
    JSONArray := JSONObject.GetValue('students') as TJSONArray;
    for i := 0 to JSONArray.Count - 1 do
    begin
      Student := JSONArray.Items[i] as TJSONObject;
      Writeln('Name: ' + Student.GetValue('name').Value);
      Writeln('Age: ' + Student.GetValue('age').Value);
    end;
  finally
    JSONObject.Free;
  end;
end;

ในที่นี้เราใช้ `TJSONObject.ParseJSONValue` ในการแปลง JSON String เป็น JSON Object และใช้ `GetValue` เพื่อดึงค่าจาก JSON Object ตามที่เราต้องการ โดยเราจะวนลูปเพื่อดึงค่านักเรียนแต่ละคนใน JSONArray

อธิบายการทำงานของโค้ด

Use Case ในโลกจริง

เรามาดูกันว่าข้อมูล JSON เหล่านี้สามารถนำไปใช้ในสถานการณ์จริงๆ ได้อย่างไร สมมุติว่าเรากำลังพัฒนาแอพพลิเคชันระบบการศึกษาสำหรับโรงเรียนที่สามารถเก็บข้อมูลนักเรียนและแสดงผลในรูปแบบต่างๆ ซึ่ง JSON จะถูกใช้ในการสื่อสารข้อมูลระหว่าง Client และ Server ตัวอย่างเช่น การส่งข้อมูลนักเรียนเพื่อแสดงผลในแอพพลิเคชันต่างๆ บนเว็บไซต์หรือแอพมือถือ

การ Parse JSON จะช่วยให้นักพัฒนาสามารถรับข้อมูลจาก API ได้ง่ายและรวดเร็ว ลดเวลาในการพัฒนาและทำให้โปรเจคเสร็จสมบูรณ์ไปอีกขั้น

เชิญชวนผู้อ่านมาเรียนรู้เพิ่มเติมที่ EPT

หากคุณต้องการศึกษาเพิ่มเติมเกี่ยวกับการทำงานกับ JSON และการพัฒนาแอพพลิเคชันใน Delphi Object Pascal รวมถึงพื้นฐานและแนวพร้อมให้สิ่งที่น่าสนใจในโลกของการเขียนโปรแกรม อย่าลืมเยี่ยมชม EPT (Expert-Programming-Tutor) ซึ่งเรามีหลักสูตรและผู้สอนเฉพาะทางที่จะช่วยให้คุณเข้าใจและทำความรู้จักกับการเขียนโปรแกรมได้ในระดับที่สูงขึ้น

programming เป็นศิลปะที่มีความสนุกและท้าทาย สามารถสร้างสรรค์นวัตกรรมใหม่ ๆ ดังนั้นไม่ควรรอช้า ลงทะเบียนเรียนกับ EPT วันนี้!

สรุป

JSON เป็นข้อมูลรูปแบบสำคัญที่จำเป็นในยุคดิจิทัลนี้ และการทำงานกับ JSON ใน Delphi Object Pascal ก็ไม่ใช่เรื่องยากอีกต่อไปกับวิธีการ Parse ที่เราอธิบายในบทความนี้หวังว่าทุกคนจะสามารถนำไปใช้ประโยชน์ได้จริงในการพัฒนาแอพพลิเคชันของคุณในอนาคต!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง