SuperObject.Delphi

Superobject.delphi

Pascal (Delphi, FPC) JSON Parser Library SuperObject.

Versi ini kompatibel dengan Delphi dan Compliler FPC terakhir.

Perubahan

• v1.2
  • Dukungan tipe data mata uang
  • string trim kanan yang tidak dikutip
  • Baca File dan Stream Unicode (Litle Endian dengan BOM)
  • Perbaiki Bug pada Fungsi Javadate - Kompatibilitas Windows NT
  • Sekarang Anda dapat memaksa untuk menguraikan hanya sintaksis kanonik JSON menggunakan parameter stric
  • Delphi 2010 rtti marshalling
  • Delphi 10.4 Sydney Rtti Marshalling dari "Managed Records"
  • ...

Apa itu JSON?

• JSON (Notasi Objek JavaScript) adalah format interchange data yang ringan.
• Mudah bagi manusia untuk membaca dan menulis.
• Mudah bagi mesin untuk menguraikan dan menghasilkan.
• Ini didasarkan pada subset dari bahasa pemrograman JavaScript, edisi ke -3 ECMA -262 standar - Desember 1999.
• JSON adalah format teks yang sepenuhnya independen bahasa tetapi menggunakan konvensi yang akrab bagi pemrogram.
• Properti ini membuat JSON menjadi bahasa interchange yang ideal.
• Anda bisa mendapatkan lebih banyak informasi tentang json.org.

 {
  "name" : "Jon Snow" , /* this is a comment */
  "dead" : true ,
  "telephones" : [ "000000000" , "111111111111" ] ,
  "age" : 33 ,
  "size" : 1.83 ,
  "adresses" : [
    {
      "adress" : "foo" ,
      "city" : "The wall" ,
      "pc" : 57000
    } ,
    {
      "adress" : "foo" ,
      "city" : "Winterfell" ,
      "pc" : 44000
    }
  ]
} 

Menguras struktur data JSON

 var
  obj: ISuperObject;
begin
  obj := SO( ' {"foo": true} ' );
  obj := TSuperObject.ParseString( ' {"foo": true} ' );
  obj := TSuperObject.ParseStream(stream);
  obj := TSuperObject.ParseFile(FileName);
end ;

Mengakses data

Tidak ada struktur data individual untuk setiap tipe data yang didukung. Mereka semua adalah objek: isuperobject.

  val := obj.AsString;
  val := obj.AsInteger;
  val := obj.AsBoolean;
  val := obj.AsDouble;
  val := obj.AsArray;
  val := obj.AsObject;
  val := obj.AsMethod;

Bagaimana cara membaca nilai properti suatu objek?

  val := obj.AsObject.S[ ' foo ' ]; // get a string
  val := obj.AsObject.I[ ' foo ' ]; // get an Int64
  val := obj.AsObject.B[ ' foo ' ]; // get a Boolean
  val := obj.AsObject.D[ ' foo ' ]; // get a Double
  val := obj.AsObject.O[ ' foo ' ]; // get an Object (default)
  val := obj.AsObject.M[ ' foo ' ]; // get a Method
  val := obj.AsObject.N[ ' foo ' ]; // get a null object 

Bagaimana cara membaca nilai dari array?

  // the advanced way
  val := obj.AsArray.S[ 0 ]; // get a string
  val := obj.AsArray.I[ 0 ]; // get an Int64
  val := obj.AsArray.B[ 0 ]; // get a Boolean
  val := obj.AsArray.D[ 0 ]; // get a Double
  val := obj.AsArray.O[ 0 ]; // get an Object (default)
  val := obj.AsArray.M[ 0 ]; // get a Method
  val := obj.AsArray.N[ 0 ]; // get a null object 

Menggunakan jalur

Menggunakan jalur adalah metode yang sangat produktif untuk menemukan objek ketika Anda tahu di mana itu. Ini adalah beberapa kasus penggunaan:

  obj[ ' foo ' ]; // get a property
  obj[ ' 123 ' ]; // get an item array
  obj[ ' foo.list ' ]; // get a property from an object
  obj[ ' foo[123] ' ]; // get an item array from an object
  obj[ ' foo(1,2,3) ' ]; // call a method
  obj[ ' foo[] ' ] := value ; // add an item array

Anda juga dapat merangkum jalur:

  obj := so( ' {"index": 1, "items": ["item 1", "item 2", "item 3"]} ' );
  obj[ ' items[index] ' ] // return "item 2"

atau menciptakan kembali struktur data baru dari yang lain:

  obj := so( ' {"index": 1, "items": ["item 1", "item 2", "item 3"]} ' );
  obj[ ' {"item": items[index], "index": index} ' ] // return {"item": "item 2", "index": 1} 

Menjelajahi Struktur Data

Menggunakan enumerator delphi.

Menggunakan enumerator Delphi Anda dapat menelusuri array item atau nilai objek properti di maner yang sama.

 var
  item: ISuperObject;
begin
  for item in obj[ ' items ' ] do ...

Anda juga dapat menelusuri kunci dan nilai -nilai objek seperti ini:

 var
  item: TSuperAvlEntry;
begin
  for item in obj.AsObject do ...
  begin
    item. Name ;
    item. Value ;
  end ;

Menjelajahi Properti Objek Tanpa Pencacah

 var
  item: TSuperObjectIter;
begin
  if ObjectFindFirst(obj, item) then
  repeat
    item.key;
    item.val;
  until not ObjectFindNext(item);
  ObjectFindClose(item);

Menjelajahi Array Item Tanpa Pencacah

 var
  item: Integer;
begin
  for item := 0 to obj.AsArray.Length - 1 do
    obj.AsArray[item]

RTTI & Marshalling di Delphi 2010

 type
  TData = record
    str: string;
    int: Integer;
    bool: Boolean;
    flt: Double;
  end ;
var
  ctx: TSuperRttiContext;
  data: TData;
  obj: ISuperObject;
begin
  ctx := TSuperRttiContext.Create;
  try
    data := ctx.AsType<TData>(SO( ' {str: "foo", int: 123, bool: true, flt: 1.23} ' ));
    obj := ctx.AsJson<TData>(data);
  finally
    ctx.Free;
  end ;
end ;

Menyimpan data

  obj.AsJSon(options);
  obj.SaveTo(stream);
  obj.SaveTo(filename);

Pembantu

  SO([ ' prop1 ' , true, ' prop2 ' , 123 ]); // return an object {"prop1": true, "prop2": 123}
  SA([true, 123 ]); // return an array [true, 123] 

Bentuk non -kanonik

SuperObject dapat mengurai bentuk non -kanonik.

 // unquoted identifiers
SO( ' {foo: true} ' );
// unescaped or unquoted strings
SO( ' {собственность: bla bla bla} ' );
// excadecimal
SO( ' {foo: xFF} ' );

Contoh tambahan

Dapatkan string JSON:

 function TDataModule3.GetSearchLostStatus: string;
 var
  X: ISuperObject;
 begin
  X := SO;
  with FServiceThread do
  begin
   X.B['NowSearchForFile'] := NowSearchForFile;
   X.S['LastLostFile'] := LastLostFile;
   X.B['NowSearchForRec'] := NowSearchForRec;
   X.S['LostRecProgress'] := LostRecProgress;
  end;
  Result := X.AsJSON;
 end;

Dapatkan data kembali dari string JSON:

 procedure TForm2.SetSearchLostStatus(const Params: string);
 var
  s: string;
  X: ISuperObject;
 begin
  X := TSuperObject.ParseString(PChar(Params), True);
  FNowSearchForFile := not X.B['NowSearchForFile'];
  FLastLostFile := X.S['LastLostFile'];
  FNowSearchForRec := X.B['NowSearchForRec'];
  FLostRecProgress := X.I['LostRecProgress'];
 end;

Penggunaan array:

 procedure TForm4.SetQueueStatus(const Params: string);
 var
  j: integer;
  X:  ISuperObject;
  X1: TSuperArray;
  s: string;
 begin
  X  := TSuperObject.ParseString(PChar(s), True);
  X1 := X.A['Queues'];
  StringGrid1.RowCount := X1.Length + 1;
  for j := 0 to X1.Length - 1 do
   with StringGrid1, X1[j] do
   begin
    Cells[0, j + 1] := S['NAME'];
    if j = 0 then
     Cells[1, j + 1] := S['FILES_QUEUED1'] + ' + ' + S['FILES_QUEUED2']
    else
     Cells[1, j + 1] := S['FILES_QUEUED'];
    Cells[2, j + 1] := S['STATUS'];
    Cells[3, j + 1] := S['FILES_DONE'];
    Cells[4, j + 1] := S['FILES_SKIPPED'];
   end;
 end;

Penggunaan jalur:

 var s: string; json, field: iSuperObject;
 ....
  field := json.O['Document.CurrentItems.DocumentItem.Fields.FieldValue[1].Value'];
  s := json.O['Value'].AsString;