delphi json

JSON Parser สำหรับ Delphi

ทำไม

ไม่ชอบตัวแยกวิเคราะห์ Delphi Json อื่น ๆ พวกเขาดูซับซ้อนเกินไปสำหรับงานง่าย ๆ ที่ฉันมีสำหรับ JSON

นี่คือการไปที่มัน

รุ่นนี้ได้รับการทดสอบเฉพาะใน Delphi XE 3, Delphi XE 6 (Android) และ Delphi 10 แต่ควรใช้งานได้สำหรับทุกรุ่น Delphi ที่รองรับ Generics และ Tstringhelper

สิ่งที่ขาดหายไป

• ข้อยกเว้นหากข้อความ JSON ไม่ถูกต้อง
• แปลงเป็นสตริง
• การทำให้เป็นอนุกรมและ deserialization จาก/ไปยังวัตถุ

ตัวอย่าง

เพียงแค่รวมไฟล์ djson.pas ในรายการการใช้งานของคุณเพื่อให้ทำงานนี้

ตัวอย่างที่ 1 - ผู้ใช้

JSON

{
  "username" : " thomas " ,
  "name" : " Thomas " ,
  "photos" : [
    {
      "title" : " Photo 1 " ,
      "urls" : {
        "small" : " http://example.com/photo1_small.jpg " ,
        "large" : " http://example.com/photo1_large.jpg "
      }
    },
    {
      "title" : " Photo 2 " ,
      "urls" : {
        "small" : " http://example.com/photo2_small.jpg " ,
        "large" : " http://example.com/photo2_large.jpg "
      }
    }
  ],
  "int_list" : [
    1 ,
    2 ,
    3
  ]
}

Delphi

 var
  user: TdJSON;
  photo: TdJSON;
  i: TdJSON;
begin
  user := TdJSON.parse( { JSON_TEXT } );
  try
    writeln( ' Username: ' + user[ ' username ' ].AsString);
    writeln( ' Name: ' + user[ ' name ' ].AsString);
    // Photos
    for photo in user[ ' photos ' ] do
    begin
      writeln( ' Title: ' + photo[ ' title ' ].AsString);
      writeln( ' Small url: ' + photo[ ' urls ' ][ ' small ' ].AsString);
      writeln( ' Large url: ' + photo[ ' urls ' ][ ' large ' ].AsString);
    end ;

    // Int list
    for i in user[ ' int_list ' ] do
    begin
      writeln(i.AsInteger);
    end ;
  finally
    user.free;
  end ;
end ;

ตัวอย่างที่ 2 - รายชื่อผู้ใช้

JSON

[
  {
    "username" : " thomas " ,
    "name" : " Thomas "
  },
  {
    "username" : " kurt " ,
    "name" : " Kurt "
  },
  {
    "username" : " bent " ,
    "name" : null
  }
]

Delphi

 var
  users: TdJSON;
  user: TdJSON;
begin
  users := TdJSON.Parse( { JSON_TEXT } );
  try
    for user in users do
    begin
      writeln(user[ ' username ' ].AsString);
      if ( not user[ ' name ' ].IsNull) then
        writeln(user[ ' name ' ].AsString);
    end ;
  finally
    users.Free;
  end ;
end ;

ใบอนุญาต

ใบอนุญาต MIT (MIT)

ลิขสิทธิ์ (c) 2018 Thomas Erlang

ได้รับอนุญาตโดยไม่ต้องเสียค่าใช้จ่ายสำหรับบุคคลใด ๆ ที่ได้รับสำเนาซอฟต์แวร์นี้และไฟล์เอกสารที่เกี่ยวข้อง ("ซอฟต์แวร์") เพื่อจัดการในซอฟต์แวร์โดยไม่มีการ จำกัด รวมถึง แต่ไม่ จำกัด เฉพาะสิทธิ์ในการใช้สำเนาดัดแปลงผสานเผยแพร่เผยแพร่

ประกาศลิขสิทธิ์ข้างต้นและประกาศการอนุญาตนี้จะรวมอยู่ในสำเนาทั้งหมดหรือส่วนสำคัญของซอฟต์แวร์

ซอฟต์แวร์มีให้ "ตามสภาพ" โดยไม่มีการรับประกันใด ๆ ไม่ว่าโดยชัดแจ้งหรือโดยนัยรวมถึง แต่ไม่ จำกัด เฉพาะการรับประกันความสามารถในการค้าการออกกำลังกายสำหรับวัตถุประสงค์เฉพาะและการไม่เข้าร่วม ไม่ว่าในกรณีใดผู้เขียนหรือผู้ถือลิขสิทธิ์จะต้องรับผิดชอบต่อการเรียกร้องความเสียหายหรือความรับผิดอื่น ๆ ไม่ว่าจะเป็นการกระทำของสัญญาการละเมิดหรืออื่น ๆ ที่เกิดขึ้นจากหรือเกี่ยวข้องกับซอฟต์แวร์หรือการใช้งานหรือการติดต่ออื่น ๆ ในซอฟต์แวร์