delphi neon

Neon - JSON Serialization Library สำหรับ Delphi

นีออนคืออะไร

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

โปรดดูการสาธิตเพื่อดู นีออน ในการดำเนินการ

การสาธิตหลักนีออน

นี่คือการสาธิตหลักที่คุณสามารถดูว่าคุณสามารถ serialize/deserialize ประเภทง่าย ๆ , บันทึก, คลาส, ประเภทเฉพาะของ Delphi (TStringList, TDataset, ฯลฯ )::

การสาธิตมาตรฐานนีออน

การสาธิตใหม่นี้พยายามเปรียบเทียบเอ็นจิ้น Serialization TJSON มาตรฐานกับเครื่องยนต์ tneon กับการเปลี่ยนแปลงเล็กน้อยคุณสามารถเปรียบเทียบ tneon กับเอ็นจิ้นการทำให้เป็นอนุกรมอื่น ๆ ที่นั่น:

การแนะนำนีออนโดย Holger Flick (วิดีโอ)

คุณสมบัติทั่วไป

การกำหนดค่า

การกำหนดค่าที่กว้างขวางผ่านอินเตอร์เฟส INeonConfiguration :

• Word Case (ไม่เปลี่ยนแปลง, ตัวพิมพ์ใหญ่, ตัวพิมพ์เล็ก, pascalcase, camelcase, snake_case)
• กรณีที่กำหนดเอง (ด้วยวิธีที่ไม่ระบุชื่อ)
• ประเภทสมาชิก (ฟิลด์คุณสมบัติ)
• ตัวเลือกในการละเว้น "F" หากคุณเลือกที่จะทำให้ฟิลด์เป็นอนุกรม
• การมองเห็นสมาชิก (ส่วนตัว, คุ้มครอง, สาธารณะ, เผยแพร่)
• การลงทะเบียน Serializer Custom
• ใช้วันที่ UTC ในการทำให้เป็นอนุกรม
• การสร้างสมาชิก NIL (Object) อัตโนมัติ

รองรับประเภท Delphi

นีออนรองรับ (DE) การทำให้เป็นอนุกรมของประเภทมาตรฐาน Delphi ส่วนใหญ่บันทึกอาร์เรย์และคลาสแน่นอน ชั้นเรียนอาจซับซ้อนตามที่คุณต้องการให้เป็นรายการอาร์เรย์ (ทั่วไป) รายการย่อยบันทึก ฯลฯ ...

ค่าที่ง่าย

• ประเภทพื้นฐาน: สตริง, จำนวนเต็ม, คู่, บูลีน, tdatetime

ค่าที่ซับซ้อน

• อาร์เรย์แบบไดนามิก ของ (ประเภทพื้นฐาน, บันทึก, คลาส, ฯลฯ ... )
• บันทึก ด้วยฟิลด์ของ (ประเภทพื้นฐาน, บันทึก, คลาส, อาร์เรย์, ฯลฯ ... )
• คลาส ที่มีฟิลด์ของ (ประเภทพื้นฐาน, บันทึก, คลาส, อาร์เรย์, ฯลฯ ... )
• รายการทั่วไป
• พจนานุกรม (คีย์ต้องเป็นประเภทสตริง)
• ชั้นเรียนที่สามารถสตรีมได้

serializers ที่กำหนดเอง

• สืบทอดมาจาก TCustomSerializer และลงทะเบียนคลาส Serializer ใหม่ในการกำหนดค่า

สิ่งที่ต้องทำ

รหัส

• การทดสอบหน่วยเพิ่มเติม

ข้อกำหนดเบื้องต้น

ห้องสมุดนี้ได้รับการทดสอบกับ Delphi 12 Athens , Delphi 11 Alexandria , Delphi 10.4 Sydney , Delphi 10.3 Rio , Delphi 10.2 Tokyo แต่ด้วยจำนวนงานขั้นต่ำควรรวบรวมกับ Delphi XE7 และสูงกว่าและสูงกว่า

ห้องสมุด/หน่วยพึ่งพา

ห้องสมุดนี้ไม่มีการพึ่งพาห้องสมุด/หน่วยภายนอก

ใช้หน่วย Delphi:

• System.json (dxe6+)
• System.rtti (D2010+)
• System.generics.collections (D2009+)

การติดตั้ง

เพียงเพิ่มเส้นทาง "แหล่งที่มา" ไปยังเส้นทางโครงการ Delphi ของคุณและ .. คุณพร้อมที่จะไป!

ตัวอย่างรหัส

ทำให้เป็นอนุกรมวัตถุ

ใช้คลาสยูทิลิตี้ Tneon

วิธีที่ง่ายที่สุดในการทำให้เป็นอนุกรมและ deserialize คือการใช้คลาสยูทิลิตี้ TNeon :

การทำให้เป็นอนุกรมวัตถุ:

 var
  LJSON: TJSONValue;
begin
  LJSON := TNeon.ObjectToJSON(AObject);
  try
    Memo1.Lines.Text := TNeon.Print(LJSON, True);
  finally
    LJSON.Free;
  end ;
end ;

วัตถุ deserialization:

 var
  LJSON: TJSONValue;
begin
  LJSON := TJSONObject.ParseJSONValue(Memo1.Lines.Text);
  try
    TNeon.JSONToObject(AObject, LJSON, AConfig);
  finally
    LJSON.Free;
  end ;

การใช้คลาส tneonserializer และ tneondeserializer

การใช้คลาส TNeonSerializerJSON และ TNeonDeserializerJSON คุณสามารถควบคุมกระบวนการได้มากขึ้น

การทำให้เป็นอนุกรมวัตถุ:

 var
  LJSON: TJSONValue;
  LWriter: TNeonSerializerJSON;
begin
  LWriter := TNeonSerializerJSON.Create(AConfig);
  try
    LJSON := LWriter.ObjectToJSON(AObject);
    try
      Memo1.Lines.Text := TNeon.Print(LJSON, True);
      MemoError.Lines.AddStrings(LWriter.Errors);
    finally
      LJSON.Free;
    end ;
  finally
    LWriter.Free;
  end ;
end ;

วัตถุ deserialization:

 var
  LJSON: TJSONValue;
  LReader: TNeonDeserializerJSON;
begin
  LJSON := TJSONObject.ParseJSONValue(Memo1.Lines.Text);
  if not Assigned(LJSON) then
    raise Exception.Create( ' Error parsing JSON string ' );

  try
    LReader := TNeonDeserializerJSON.Create(AConfig);
    try
      LReader.JSONToObject(AObject, LJSON);
      MemoError.Lines.AddStrings(LWriter.Errors);
    finally
      LReader.Free;
    end ;
  finally
    LJSON.Free;
  end ;

การกำหนดค่านีออน

มันง่ายมากที่จะกำหนด ค่านีออน

 var
  LConfig: INeonConfiguration;
begin
  LConfig := TNeonConfiguration.Default
    .SetMemberCase(TNeonCase.SnakeCase)     // Case settings
    .SetMembers(TNeonMembers.Properties)    // Member type settings
    .SetIgnoreFieldPrefix(True)             // F Prefix settings
    .SetVisibility([mvPublic, mvPublished]) // Visibility settings

    // Custom serializer registration
    .GetSerializers.RegisterSerializer(TGUIDSerializer)
  ;
end ;

---

Paolo Rossi