superxmlparserxmljson解析_delphisuperxmlparser资源-CSDN文库

共41个文件

dpr：10个

pas：7个

svn-base：4个

superxmlparser，xml,json

4星 · 超过85%的资源需积分: 48 22 浏览量 2011-10-27 09:40:20 上传评论 2 收藏 1.03MB RAR 举报

资源推荐

资源详情

资源评论

收起资源包目录

superxmlparser.rar （41个子文件）

superobject.pas 180KB

readme.html 8KB

superxmlparser.dcu 22KB

superxmlparser.pas 41KB

tests

test_format.dpr 785B

test_rpc.dpr 618B

test_perf.dpr 1KB

test_prototype.dpr 1KB

test_usage.dpr 4KB

test_validate.dpr 3KB

superobject.dcu 109KB

demos

PropertyEditor

soeditor.pas 4KB

demo.png 8KB

Thumbs.db 6KB

googlesearch

search.dpr 284B

main.pas 1KB

main.dfm 834B

RTTI

main.pas 2KB

main.dfm 834B

rttisearch.dpr 288B

VirtualTreeView

soedit.dpr 357B

soedit.exe 780KB

main.ddp 51B

soedit.dproj 5KB

soedit.res 4KB

soedit.dproj.local 62B

soedit.rar 616KB

sample.json 745B

main.pas 7KB

main.dfm 4KB

.svn

props

format 2B

prop-base

tmp

props

prop-base

text-base

soedit.dpr.svn-base 357B

main.pas.svn-base 7KB

sample.json.svn-base 745B

main.dfm.svn-base 4KB

entries 843B

main.dcu 12KB

soedit.identcache 271B

googlesuggest

main.pas 1KB

main.dfm 632B

suggest.dpr 288B

<html> <head> <style type="text/css">  </style> </head> <body bgcolor="#D4D0C8"> <h1>SuperObject</h1> <h3>What is JSON ?</h3> JSON (JavaScript Object Notation) is a lightweight data-interchange format. It is easy for humans to read and write. It is easy for machines to parse and generate. It is based on a subset of the JavaScript Programming Language, Standard ECMA-262 3rd Edition - December 1999. JSON is a text format that is completely language independent but uses conventions that are familiar to programmers. These properties make JSON an ideal data-interchange language. You can get more informations on <a href="http://www.json.org">json.org</a>. <pre id="exCode"> { "name": "Henri Gourvest", /* this is a comment */ "vip": true, "telephones": ["000000000", "111111111111"], "age": 33, "size": 1.83, "adresses": [ { "adress": "blabla", "city": "Metz", "pc": 57000 }, { "adress": "blabla", "city": "Nantes", "pc": 44000 } ] } </pre> <h3>Parsing a JSON data structure</h3> <pre id="exCode"> var obj: ISuperObject; begin obj := SO('{"foo": true}'); obj := TSuperObject.ParseString('{"foo": true}'); obj := TSuperObject.ParseStream(stream); obj := TSuperObject.ParseFile(FileName); end; </pre> <h3>Accessing data</h3> There isn't individual datastructure for each supported data types. They are all an object: the ISuperObject. <pre id="exCode"> val := obj.AsString; val := obj.AsInteger; val := obj.AsBoolean; val := obj.AsDouble; val := obj.AsArray; val := obj.AsObject; val := obj.AsMethod; </pre> <h4>How to read a property value of an object ?</h4> <pre id="exCode"> 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 </pre> <h4>How to read a value from an array ?</h4> <pre id="exCode"> // 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 </pre> <h4>Using paths</h4> Using paths is a very productive method to find an object when you know where is it. This is some usage cases: <pre id="exCode"> 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 </pre> you also can encapsulate paths: <pre id="exCode"> obj := so('{"index": 1, "items": ["item 1", "item 2", "item 3"]}'); obj['items[index]'] // return "item 2" </pre> or recreate a new data structure from another: <pre id="exCode"> obj := so('{"index": 1, "items": ["item 1", "item 2", "item 3"]}'); obj['{"item": items[index], "index": index}'] // return {"item": "item 2", "index": 1} </pre> <h3>Browsing data structure</h3> <h4>Using Delphi enumerator.</h4> Using Delphi enumerator you can browse item's array or property's object value in the same maner. <pre id="exCode"> var item: ISuperObject; begin for item in obj['items'] do ... </pre> you can also browse the keys and values of an object like this: <pre id="exCode"> var item: TSuperAvlEntry; begin for item in obj.AsObject do ... begin item.Name; item.Value; end; </pre> <h4>Browsing object properties without enumerator</h4> <pre id="exCode"> var item: TSuperObjectIter; begin if ObjectFindFirst(obj, item) then repeat item.key; item.val; until not ObjectFindNext(item); ObjectFindClose(item); </pre> <h4>Browsing array items without enumerator</h4> <pre id="exCode"> var item: Integer; begin for item := 0 to obj.AsArray.Length - 1 do obj.AsArray[item] </pre> <h3>RTTI & marshalling in Delphi 2010</h3> <pre id="exCode"> 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; </pre> <h3>Saving data</h3> <pre id="exCode"> obj.AsJSon(options); obj.SaveTo(stream); obj.SaveTo(filename); </pre> <h3>Helpers</h3> <pre id="exCode"> SO(['prop1', true, 'prop2', 123]); // return an object {"prop1": true, "prop2": 123} SA([true, 123]); // return an array [true, 123] </pre> <h3>Non canonical forms</h3> The SuperObject is able to parse non canonical forms. <pre id="exCode"> // unquoted identifiers SO('{foo: true}'); // unescaped or unquoted strings SO('{собственность: bla bla bla}'); // excadecimal SO('{foo: \xFF}'); </pre> </body> </html>

评论收藏

内容反馈