├── ReadMe.txt ├── .gitignore ├── bin ├── testdb.mdb ├── test.unicode.json └── test.json ├── qdac ├── QString.pas ├── qjson.pas ├── qrbtree.pas └── qdac.inc ├── source ├── Base64.pas ├── YxdJson.pas ├── YxdRtti.pas ├── YxdStr.pas ├── YxdAdoStream.pas └── pcre │ ├── pcre_exec.obj │ ├── pcre_get.obj │ ├── pcre_info.obj │ ├── pcre_study.obj │ ├── pcre_ucd.obj │ ├── pcre_compile.obj │ ├── pcre_config.obj │ ├── pcre_globals.obj │ ├── pcre_newline.obj │ ├── pcre_tables.obj │ ├── pcre_version.obj │ ├── pcre_xclass.obj │ ├── pcre_dfa_exec.obj │ ├── pcre_fullinfo.obj │ ├── pcre_maketables.obj │ ├── pcre_ord2utf8.obj │ ├── pcre_refcount.obj │ ├── pcre_valid_utf8.obj │ ├── pcre_try_flipped.obj │ ├── pcre_default_tables.obj │ └── makefile.mak └── demo ├── YxdJson ├── JSON基本测试 │ ├── Unit2.pas │ ├── uJSON.pas │ ├── JSONTest.res │ ├── JSON_Test.res │ ├── JSONTest.otares │ ├── JSONTest_XE.res │ ├── JSONTest_Icon2.ico │ ├── JSONTest_d2007.res │ ├── JSON_Test_Icon.ico │ ├── JSONTest_d2007_Icon.ico │ ├── JSONTest.dpr │ ├── JSONTest_d2007.dpr │ ├── JSONTest_XE.dpr │ ├── JSONTest.dproj │ ├── JSONTest_d2007.dproj │ ├── JSON_Test.dproj │ ├── Unit2.dfm │ └── JSONTest_XE.dproj ├── JSON_Checker │ ├── 项目1.ico │ ├── Unit1.pas │ ├── Unit2.pas │ ├── Unit3.pas │ ├── JSONChecker.res │ ├── JSONChecker.D10.res │ ├── JSONChecker.D10.FMX.res │ ├── JSONChecker.D10.FMX.dpr │ ├── JSONChecker.D10.dpr │ ├── JSONChecker.dpr │ ├── Unit2.dfm │ ├── Unit3.fmx │ ├── JSONChecker.dproj │ ├── Unit1.dfm │ └── JSONChecker.D10.FMX.deployproj ├── JSON与数据集互转 │ ├── CMOV.inc │ ├── Unit1.pas │ ├── Project1.res │ ├── uQDBJson.pas │ ├── JSON_DataSet_Serialize_2007.res │ ├── JSON_DataSet_Serialize_XE6.res │ ├── JSON_DataSet_Serialize_2007.dpr │ ├── JSON_DataSet_Serialize_XE6.dpr │ ├── Unit1.dfm │ ├── JSON_DataSet_Serialize_XE6.dproj │ └── JSON_DataSet_Serialize_2007.dproj ├── JSON性能对比测试 │ ├── main.pas │ ├── uJSON.pas │ ├── JSONTest.res │ ├── MSVCRT.LIB │ ├── JSON_Test_XE.res │ ├── JSONTest_Icon2.ico │ ├── JSON_Test_D2007.res │ ├── JSONTest_d2007_Icon.ico │ ├── JSONTest.dpr │ ├── JSON_Test_XE.dpr │ ├── JSONTest_d2007.dpr │ ├── main.dfm │ ├── JSONTest_d2007.dproj │ ├── JSON_Test_D2007.dproj │ ├── JSONTest.dproj │ └── JSON_Test_XE.dproj ├── JsonDebug │ ├── Unit1.pas │ ├── JSONDebug.res │ ├── Project1.res │ ├── JSONDebug.dpr │ ├── Project1.skincfg │ └── Unit1.dfm ├── JSON转为MsgPack │ ├── Unit1.pas │ ├── Project1.dproj │ ├── Project1.res │ ├── Project1.Berlin.res │ ├── Project1.Berlin_Icon.ico │ ├── Project1.dpr │ ├── Project1.cfg │ ├── Unit1.dfm │ └── Project1.Berlin.dproj ├── YxdJson_VS_QJson │ ├── main.pas │ ├── jsondemo.res │ ├── jsondemo_2007.res │ ├── jsondemo_Icon.ico │ ├── qdac.inc │ ├── jsondemo.dpr │ ├── jsondemo.cfg │ ├── ProjectGroup1.groupproj │ ├── jsondemo_2007.dproj │ ├── jsondemo.12.2.dproj │ ├── main.dfm │ └── jsondemo.bdsproj └── JsonSerializeTest │ ├── Unit1.pas │ ├── Project1.res │ ├── Project1.d2007.res │ ├── Project1.dpr │ ├── Project1.d2007.dpr │ ├── Project1.d2007.dproj │ └── Unit1.dfm └── clean.bat /ReadMe.txt: -------------------------------------------------------------------------------- 1 | 增加 Delphi 7 支持 -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | /dcu/*.dcu 2 | *.dcu 3 | -------------------------------------------------------------------------------- /bin/testdb.mdb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/bin/testdb.mdb -------------------------------------------------------------------------------- /qdac/QString.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/qdac/QString.pas -------------------------------------------------------------------------------- /qdac/qjson.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/qdac/qjson.pas -------------------------------------------------------------------------------- /qdac/qrbtree.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/qdac/qrbtree.pas -------------------------------------------------------------------------------- /source/Base64.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/Base64.pas -------------------------------------------------------------------------------- /source/YxdJson.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/YxdJson.pas -------------------------------------------------------------------------------- /source/YxdRtti.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/YxdRtti.pas -------------------------------------------------------------------------------- /source/YxdStr.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/YxdStr.pas -------------------------------------------------------------------------------- /bin/test.unicode.json: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/bin/test.unicode.json -------------------------------------------------------------------------------- /source/YxdAdoStream.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/YxdAdoStream.pas -------------------------------------------------------------------------------- /source/pcre/pcre_exec.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_exec.obj -------------------------------------------------------------------------------- /source/pcre/pcre_get.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_get.obj -------------------------------------------------------------------------------- /source/pcre/pcre_info.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_info.obj -------------------------------------------------------------------------------- /source/pcre/pcre_study.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_study.obj -------------------------------------------------------------------------------- /source/pcre/pcre_ucd.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_ucd.obj -------------------------------------------------------------------------------- /source/pcre/pcre_compile.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_compile.obj -------------------------------------------------------------------------------- /source/pcre/pcre_config.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_config.obj -------------------------------------------------------------------------------- /source/pcre/pcre_globals.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_globals.obj -------------------------------------------------------------------------------- /source/pcre/pcre_newline.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_newline.obj -------------------------------------------------------------------------------- /source/pcre/pcre_tables.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_tables.obj -------------------------------------------------------------------------------- /source/pcre/pcre_version.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_version.obj -------------------------------------------------------------------------------- /source/pcre/pcre_xclass.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_xclass.obj -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/Unit2.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON基本测试/Unit2.pas -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/uJSON.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON基本测试/uJSON.pas -------------------------------------------------------------------------------- /source/pcre/pcre_dfa_exec.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_dfa_exec.obj -------------------------------------------------------------------------------- /source/pcre/pcre_fullinfo.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_fullinfo.obj -------------------------------------------------------------------------------- /source/pcre/pcre_maketables.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_maketables.obj -------------------------------------------------------------------------------- /source/pcre/pcre_ord2utf8.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_ord2utf8.obj -------------------------------------------------------------------------------- /source/pcre/pcre_refcount.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_refcount.obj -------------------------------------------------------------------------------- /source/pcre/pcre_valid_utf8.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_valid_utf8.obj -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/项目1.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON_Checker/项目1.ico -------------------------------------------------------------------------------- /demo/YxdJson/JSON与数据集互转/CMOV.inc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON与数据集互转/CMOV.inc -------------------------------------------------------------------------------- /demo/YxdJson/JSON与数据集互转/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON与数据集互转/Unit1.pas -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON性能对比测试/main.pas -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/uJSON.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON性能对比测试/uJSON.pas -------------------------------------------------------------------------------- /demo/YxdJson/JsonDebug/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JsonDebug/Unit1.pas -------------------------------------------------------------------------------- /source/pcre/pcre_try_flipped.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_try_flipped.obj -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON_Checker/Unit1.pas -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/Unit2.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON_Checker/Unit2.pas -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/Unit3.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON_Checker/Unit3.pas -------------------------------------------------------------------------------- /demo/YxdJson/JSON与数据集互转/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON与数据集互转/Project1.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON与数据集互转/uQDBJson.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON与数据集互转/uQDBJson.pas -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON基本测试/JSONTest.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSON_Test.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON基本测试/JSON_Test.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSONTest.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON性能对比测试/JSONTest.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/MSVCRT.LIB: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON性能对比测试/MSVCRT.LIB -------------------------------------------------------------------------------- /demo/YxdJson/JSON转为MsgPack/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON转为MsgPack/Unit1.pas -------------------------------------------------------------------------------- /demo/YxdJson/JsonDebug/JSONDebug.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JsonDebug/JSONDebug.res -------------------------------------------------------------------------------- /demo/YxdJson/JsonDebug/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JsonDebug/Project1.res -------------------------------------------------------------------------------- /source/pcre/pcre_default_tables.obj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/source/pcre/pcre_default_tables.obj -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest.otares: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON基本测试/JSONTest.otares -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest_XE.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON基本测试/JSONTest_XE.res -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/main.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/YxdJson_VS_QJson/main.pas -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/JSONChecker.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON_Checker/JSONChecker.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest_Icon2.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON基本测试/JSONTest_Icon2.ico -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest_d2007.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON基本测试/JSONTest_d2007.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSON_Test_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON基本测试/JSON_Test_Icon.ico -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSON_Test_XE.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON性能对比测试/JSON_Test_XE.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON转为MsgPack/Project1.dproj: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON转为MsgPack/Project1.dproj -------------------------------------------------------------------------------- /demo/YxdJson/JSON转为MsgPack/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON转为MsgPack/Project1.res -------------------------------------------------------------------------------- /demo/YxdJson/JsonSerializeTest/Unit1.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JsonSerializeTest/Unit1.pas -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSONTest_Icon2.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON性能对比测试/JSONTest_Icon2.ico -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSON_Test_D2007.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON性能对比测试/JSON_Test_D2007.res -------------------------------------------------------------------------------- /demo/YxdJson/JsonSerializeTest/Project1.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JsonSerializeTest/Project1.res -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/jsondemo.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/YxdJson_VS_QJson/jsondemo.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/JSONChecker.D10.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON_Checker/JSONChecker.D10.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest_d2007_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON基本测试/JSONTest_d2007_Icon.ico -------------------------------------------------------------------------------- /demo/YxdJson/JSON转为MsgPack/Project1.Berlin.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON转为MsgPack/Project1.Berlin.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSONTest_d2007_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON性能对比测试/JSONTest_d2007_Icon.ico -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/jsondemo_2007.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/YxdJson_VS_QJson/jsondemo_2007.res -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/jsondemo_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/YxdJson_VS_QJson/jsondemo_Icon.ico -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/JSONChecker.D10.FMX.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON_Checker/JSONChecker.D10.FMX.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON转为MsgPack/Project1.Berlin_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON转为MsgPack/Project1.Berlin_Icon.ico -------------------------------------------------------------------------------- /demo/YxdJson/JsonSerializeTest/Project1.d2007.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JsonSerializeTest/Project1.d2007.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON与数据集互转/JSON_DataSet_Serialize_2007.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON与数据集互转/JSON_DataSet_Serialize_2007.res -------------------------------------------------------------------------------- /demo/YxdJson/JSON与数据集互转/JSON_DataSet_Serialize_XE6.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/yangyxd/YxdJson/HEAD/demo/YxdJson/JSON与数据集互转/JSON_DataSet_Serialize_XE6.res -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/qdac.inc: -------------------------------------------------------------------------------- 1 | {$DEFINE QDAC} 2 | 3 | {$IF RTLVersion<18} 4 | {$MESSAGE Error '!!!QDAC Only test in 2007 and XE6,No support in other version!!!'} 5 | {$IFEND =24} 7 | {$LEGACYIFEND ON} 8 | {$IFEND} 9 | 10 | 11 | -------------------------------------------------------------------------------- /demo/YxdJson/JsonDebug/JSONDebug.dpr: -------------------------------------------------------------------------------- 1 | program JSONDebug; 2 | 3 | uses 4 | Vcl.Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.MainFormOnTaskbar := True; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/JSONChecker.D10.FMX.dpr: -------------------------------------------------------------------------------- 1 | program JSONChecker.D10.FMX; 2 | 3 | uses 4 | System.StartUpCopy, 5 | FMX.Forms, 6 | Unit3 in 'Unit3.pas' {Form1}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | Application.Initialize; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /demo/YxdJson/JsonSerializeTest/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.MainFormOnTaskbar := True; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/JSONChecker.D10.dpr: -------------------------------------------------------------------------------- 1 | program JSONChecker.D10; 2 | 3 | uses 4 | Vcl.Forms, 5 | Unit2 in 'Unit2.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.MainFormOnTaskbar := True; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /demo/YxdJson/JsonSerializeTest/Project1.d2007.dpr: -------------------------------------------------------------------------------- 1 | program Project1.d2007; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.MainFormOnTaskbar := True; 12 | Application.CreateForm(TForm1, Form1); 13 | Application.Run; 14 | end. 15 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON转为MsgPack/Project1.dpr: -------------------------------------------------------------------------------- 1 | program Project1; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | {$IFNDEF VER150} 12 | Application.MainFormOnTaskbar := True; 13 | {$ENDIF} 14 | Application.CreateForm(TForm1, Form1); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/jsondemo.dpr: -------------------------------------------------------------------------------- 1 | program jsondemo_2007; 2 | 3 | uses 4 | Forms, 5 | main in 'main.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.MainFormOnTaskbar := True; 12 | Application.Title := 'QJSON Demo and Test'; 13 | Application.CreateForm(TForm1, Form1); 14 | Application.Run; 15 | end. 16 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest.dpr: -------------------------------------------------------------------------------- 1 | program JSON_Test; 2 | 3 | uses 4 | Forms, 5 | Unit2 in 'Unit2.pas' {Form2}, 6 | uLkJSON in 'uLkJSON.pas'; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | ReportMemoryLeaksOnShutdown := True; 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TForm2, Form2); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON与数据集互转/JSON_DataSet_Serialize_2007.dpr: -------------------------------------------------------------------------------- 1 | program JSON_DataSet_Serialize_2007; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | ReportMemoryLeaksOnShutdown := True; 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TForm1, Form1); 14 | Application.Run; 15 | end. 16 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON与数据集互转/JSON_DataSet_Serialize_XE6.dpr: -------------------------------------------------------------------------------- 1 | program JSON_DataSet_Serialize_XE6; 2 | 3 | uses 4 | Vcl.Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | ReportMemoryLeaksOnShutdown := True; 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.CreateForm(TForm1, Form1); 14 | Application.Run; 15 | end. 16 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSONTest.dpr: -------------------------------------------------------------------------------- 1 | program JSON_Test_D2007; 2 | 3 | uses 4 | Forms, 5 | uLkJSON in 'uLkJSON.pas', 6 | main in 'main.pas' {Form1}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | ReportMemoryLeaksOnShutdown := True; 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TForm1, Form1); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSON_Test_XE.dpr: -------------------------------------------------------------------------------- 1 | program JSON_Test_XE; 2 | 3 | uses 4 | Forms, 5 | uLkJSON in 'uLkJSON.pas', 6 | main in 'main.pas' {Form1}; 7 | 8 | {$R *.res} 9 | 10 | begin 11 | ReportMemoryLeaksOnShutdown := True; 12 | Application.Initialize; 13 | Application.MainFormOnTaskbar := True; 14 | Application.CreateForm(TForm1, Form1); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /qdac/qdac.inc: -------------------------------------------------------------------------------- 1 | {$DEFINE QDAC} 2 | 3 | {$IF RTLVersion>=24} 4 | {$LEGACYIFEND ON} 5 | {$IFEND} 6 | 7 | {$IF RTLVersion<18} 8 | {$MESSAGE Error '!!!QDAC 3 ONLY work and tested for 2007+,No support in older version!!!'} 9 | {$IFEND =22} 11 | {$DEFINE ENABLE_REGEX} 12 | {$ELSE} 13 | {$IFNDEF BCB} 14 | {$DEFINE ENABLE_REGEX} 15 | {$ENDIF} 16 | {$IFEND} 17 | 18 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/JSONChecker.dpr: -------------------------------------------------------------------------------- 1 | program JSONChecker; 2 | 3 | uses 4 | Forms, 5 | Unit1 in 'Unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | ReportMemoryLeaksOnShutdown := True; 11 | Application.Initialize; 12 | Application.MainFormOnTaskbar := True; 13 | Application.Title := 'JSON View'; 14 | Application.CreateForm(TForm1, Form1); 15 | Application.Run; 16 | end. 17 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest_d2007.dpr: -------------------------------------------------------------------------------- 1 | program JSONTest; 2 | 3 | uses 4 | Forms, 5 | Unit2 in 'Unit2.pas' {Form2}, 6 | uJSON in 'uJSON.pas', 7 | uLkJSON in 'uLkJSON.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | ReportMemoryLeaksOnShutdown := True; 13 | Application.Initialize; 14 | Application.MainFormOnTaskbar := True; 15 | Application.CreateForm(TForm2, Form2); 16 | Application.Run; 17 | end. 18 | -------------------------------------------------------------------------------- /demo/clean.bat: -------------------------------------------------------------------------------- 1 | cd Source 2 | del *.dcu;*.zip;*.7z;*.hpp;*.identcache;*.local /q /s 3 | del __history\*.* /q /s 4 | rd __history 5 | 6 | cd .. 7 | cd Qdac 8 | del *.dcu;*.zip;*.7z;*.hpp;*.identcache;*.local /q /s 9 | del __history\*.* /q /s 10 | rd __history 11 | 12 | cd .. 13 | cd dcu 14 | del *.dcu /q /s 15 | del __history\*.* /q /s 16 | 17 | cd ..\Demo 18 | del *.exe /q/s 19 | 20 | cmdex cleanup(".\") 21 | pause -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest_XE.dpr: -------------------------------------------------------------------------------- 1 | program JSONTest_XE; 2 | 3 | uses 4 | Forms, 5 | Unit2 in 'Unit2.pas' {Form2}, 6 | uLkJSON in 'uLkJSON.pas', 7 | QString in 'QString.pas'; 8 | 9 | {$R *.res} 10 | 11 | begin 12 | ReportMemoryLeaksOnShutdown := True; 13 | Application.Initialize; 14 | Application.MainFormOnTaskbar := True; 15 | Application.CreateForm(TForm2, Form2); 16 | Application.Run; 17 | end. 18 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSONTest_d2007.dpr: -------------------------------------------------------------------------------- 1 | program JSONTest; 2 | 3 | uses 4 | Forms, 5 | Unit2 in 'Unit2.pas' {Form2}, 6 | uJSON in 'uJSON.pas', 7 | uLkJSON in 'uLkJSON.pas', 8 | YxdJson in 'YxdJson.pas'; 9 | 10 | {$R *.res} 11 | 12 | begin 13 | ReportMemoryLeaksOnShutdown := True; 14 | Application.Initialize; 15 | Application.MainFormOnTaskbar := True; 16 | Application.CreateForm(TForm2, Form2); 17 | Application.Run; 18 | end. 19 | -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/jsondemo.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -cg 28 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 29 | -H+ 30 | -W+ 31 | -M 32 | -$M16384,1048576 33 | -K$00400000 34 | -LE"C:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Bpl" 35 | -LN"C:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Dcp" 36 | -U"..\..\..\..\Source" 37 | -O"..\..\..\..\Source" 38 | -I"..\..\..\..\Source" 39 | -R"..\..\..\..\Source" 40 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON转为MsgPack/Project1.cfg: -------------------------------------------------------------------------------- 1 | -$A8 2 | -$B- 3 | -$C+ 4 | -$D+ 5 | -$E- 6 | -$F- 7 | -$G+ 8 | -$H+ 9 | -$I+ 10 | -$J- 11 | -$K- 12 | -$L+ 13 | -$M- 14 | -$N+ 15 | -$O+ 16 | -$P+ 17 | -$Q- 18 | -$R- 19 | -$S- 20 | -$T- 21 | -$U- 22 | -$V+ 23 | -$W- 24 | -$X+ 25 | -$YD 26 | -$Z1 27 | -GD 28 | -cg 29 | -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 30 | -H+ 31 | -W+ 32 | -M 33 | -$M16384,1048576 34 | -K$00400000 35 | -LE"d:\program files (x86)\borland\delphi7\Projects\Bpl" 36 | -LN"d:\program files (x86)\borland\delphi7\Projects\Bpl" 37 | -U"..\..\..\source" 38 | -O"..\..\..\source" 39 | -I"..\..\..\source" 40 | -R"..\..\..\source" 41 | -DEUREKALOG;EUREKALOG_VER6 42 | -w-UNSAFE_TYPE 43 | -w-UNSAFE_CODE 44 | -w-UNSAFE_CAST 45 | -------------------------------------------------------------------------------- /demo/YxdJson/JsonDebug/Project1.skincfg: -------------------------------------------------------------------------------- 1 | [ExpressSkins] 2 | Default=1 3 | ShowNotifications=0 4 | Enabled=0 5 | dxSkinBlack=1 6 | dxSkinBlue=1 7 | dxSkinBlueprint=1 8 | dxSkinCaramel=1 9 | dxSkinCoffee=1 10 | dxSkinDarkRoom=1 11 | dxSkinDarkSide=1 12 | dxSkinDevExpressDarkStyle=1 13 | dxSkinDevExpressStyle=1 14 | dxSkinFoggy=1 15 | dxSkinGlassOceans=1 16 | dxSkinHighContrast=1 17 | dxSkiniMaginary=1 18 | dxSkinLilian=1 19 | dxSkinLiquidSky=1 20 | dxSkinLondonLiquidSky=1 21 | dxSkinMcSkin=1 22 | dxSkinMoneyTwins=1 23 | dxSkinOffice2007Black=1 24 | dxSkinOffice2007Blue=1 25 | dxSkinOffice2007Green=1 26 | dxSkinOffice2007Pink=1 27 | dxSkinOffice2007Silver=1 28 | dxSkinOffice2010Black=1 29 | dxSkinOffice2010Blue=1 30 | dxSkinOffice2010Silver=1 31 | dxSkinOffice2013White=1 32 | dxSkinPumpkin=1 33 | dxSkinSeven=1 34 | dxSkinSevenClassic=1 35 | dxSkinSharp=1 36 | dxSkinSharpPlus=1 37 | dxSkinSilver=1 38 | dxSkinSpringTime=1 39 | dxSkinStardust=1 40 | dxSkinSummer2008=1 41 | dxSkinTheAsphaltWorld=1 42 | dxSkinsDefaultPainters=1 43 | dxSkinValentine=1 44 | dxSkinVS2010=1 45 | dxSkinWhiteprint=1 46 | dxSkinXmas2008Blue=1 47 | -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/ProjectGroup1.groupproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {EEFE8642-A2A9-42FF-B5CD-1F523920AC8A} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | Default.Personality.12 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON转为MsgPack/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 638 3 | Top = 407 4 | Caption = 'Form1' 5 | ClientHeight = 686 6 | ClientWidth = 1027 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | DesignSize = ( 15 | 1027 16 | 686) 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object Button1: TButton 20 | Left = 8 21 | Top = 8 22 | Width = 89 23 | Height = 25 24 | Caption = #24207#21015#21270#27979#35797 25 | TabOrder = 0 26 | OnClick = Button1Click 27 | end 28 | object Memo1: TMemo 29 | Left = 8 30 | Top = 39 31 | Width = 1011 32 | Height = 274 33 | Anchors = [akLeft, akTop, akRight] 34 | ScrollBars = ssBoth 35 | TabOrder = 1 36 | ExplicitWidth = 619 37 | end 38 | object Memo2: TMemo 39 | Left = 8 40 | Top = 319 41 | Width = 1011 42 | Height = 359 43 | Anchors = [akLeft, akTop, akRight, akBottom] 44 | ScrollBars = ssBoth 45 | TabOrder = 2 46 | ExplicitWidth = 619 47 | ExplicitHeight = 248 48 | end 49 | object Button2: TButton 50 | Left = 103 51 | Top = 8 52 | Width = 89 53 | Height = 25 54 | Caption = #24207#21015#21270#21040#25991#20214 55 | TabOrder = 3 56 | OnClick = Button2Click 57 | end 58 | object SaveDialog1: TSaveDialog 59 | Filter = #25152#26377#25991#20214'|*.*|JSON'#25991#20214'|*.txt;*.json' 60 | Left = 408 61 | Top = 288 62 | end 63 | end 64 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/Unit2.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 704 6 | ClientWidth = 1092 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object Memo1: TMemo 17 | Left = 0 18 | Top = 41 19 | Width = 585 20 | Height = 663 21 | Align = alLeft 22 | Lines.Strings = ( 23 | 'Memo1') 24 | TabOrder = 0 25 | ExplicitTop = 0 26 | ExplicitHeight = 704 27 | end 28 | object Memo2: TMemo 29 | Left = 585 30 | Top = 41 31 | Width = 507 32 | Height = 663 33 | Align = alClient 34 | Lines.Strings = ( 35 | 'Memo1') 36 | TabOrder = 1 37 | ExplicitLeft = 456 38 | ExplicitTop = 88 39 | ExplicitWidth = 577 40 | ExplicitHeight = 600 41 | end 42 | object Panel1: TPanel 43 | Left = 0 44 | Top = 0 45 | Width = 1092 46 | Height = 41 47 | Align = alTop 48 | TabOrder = 2 49 | ExplicitLeft = 464 50 | ExplicitTop = 352 51 | ExplicitWidth = 185 52 | object Label1: TLabel 53 | Left = 24 54 | Top = 14 55 | Width = 31 56 | Height = 13 57 | Caption = 'Label1' 58 | end 59 | object Button1: TButton 60 | Left = 401 61 | Top = 10 62 | Width = 75 63 | Height = 25 64 | Caption = 'Button1' 65 | TabOrder = 0 66 | OnClick = Button1Click 67 | end 68 | object CheckBox5: TCheckBox 69 | Left = 511 70 | Top = 13 71 | Width = 106 72 | Height = 17 73 | Caption = 'Name'#21518#21152#31354#26684 74 | TabOrder = 1 75 | OnClick = CheckBox5Click 76 | end 77 | end 78 | end 79 | -------------------------------------------------------------------------------- /demo/YxdJson/JsonDebug/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'JSON To Record (RTTI'#27979#35797')' 5 | ClientHeight = 382 6 | ClientWidth = 796 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | PixelsPerInch = 96 15 | TextHeight = 13 16 | object mmo1: TMemo 17 | Left = 104 18 | Top = 0 19 | Width = 692 20 | Height = 382 21 | Align = alRight 22 | Lines.Strings = ( 23 | 24 | '{"Sess_Id":"","Sess_Ids":"","ID":"{326A2635-4AEC-480F-A772-C746E' + 25 | '801BA60}","Sender_ID":"{8EE3965B-C598-4854-A9CA-483DBE34FE8B}","' + 26 | 'Sender_Name":"'#26031#29595#29305#26234#24935#37202#24215'","Groups":"","Title":"","Msg_Info":"'#27426#36814#30331#24405#26412#37202 + 27 | #24215#26234#24935#31649#29702#31995#32479#65281#35831#24744#29992#25163#26426#25511#21046#26412#23458#25151#37324#30340#26234#33021#37202#24215#35774#22791#65281'","Msg_Type":"mtInnerUser","Send_Type' + 28 | '":"stLogin","SEND_START_TIME":"08:30:00.000","SEND_End_TIME":"20' + 29 | ':00:00.000",' 30 | 31 | '"Weeks":127,"Timers":"[\"08:00:00\",\"11:30:00\",\"20:30:00\"]",' + 32 | '"Timers_Delay":30,"Create_Time":"2014-06-16T14:20:53.000","Start' + 33 | '_Time":"2014-06-16","End_Time":"2015-06-16","Using":true}') 34 | ScrollBars = ssBoth 35 | TabOrder = 0 36 | ExplicitTop = 48 37 | ExplicitHeight = 334 38 | end 39 | object Button1: TButton 40 | Left = 8 41 | Top = 8 42 | Width = 90 43 | Height = 25 44 | Caption = 'JsonToRecord' 45 | TabOrder = 1 46 | OnClick = ToRecordClick 47 | end 48 | object Button2: TButton 49 | Left = 8 50 | Top = 39 51 | Width = 90 52 | Height = 25 53 | Caption = 'RecordToJson' 54 | TabOrder = 2 55 | OnClick = Button2Click 56 | end 57 | end 58 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/main.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'QJson Compare' 5 | ClientHeight = 425 6 | ClientWidth = 772 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object Panel1: TPanel 18 | Left = 0 19 | Top = 0 20 | Width = 772 21 | Height = 49 22 | Align = alTop 23 | BevelOuter = bvNone 24 | TabOrder = 0 25 | object Button10: TButton 26 | Left = 672 27 | Top = 12 28 | Width = 75 29 | Height = 25 30 | Caption = #24320#22987'(&S)' 31 | TabOrder = 0 32 | OnClick = Button10Click 33 | end 34 | object chkCreate: TCheckBox 35 | Left = 16 36 | Top = 16 37 | Width = 97 38 | Height = 17 39 | Caption = #21019#24314#32467#28857 40 | Checked = True 41 | State = cbChecked 42 | TabOrder = 1 43 | end 44 | object chkLoad: TCheckBox 45 | Left = 123 46 | Top = 16 47 | Width = 97 48 | Height = 17 49 | Caption = #21152#36733#25991#20214 50 | Checked = True 51 | State = cbChecked 52 | TabOrder = 2 53 | end 54 | object chkSave: TCheckBox 55 | Left = 231 56 | Top = 16 57 | Width = 97 58 | Height = 17 59 | Caption = #20445#23384#25991#20214 60 | Checked = True 61 | State = cbChecked 62 | TabOrder = 3 63 | end 64 | object chkTypes: TCheckBox 65 | Left = 339 66 | Top = 16 67 | Width = 129 68 | Height = 17 69 | Caption = #35299#26512#19981#21516#31867#22411#25968#25454 70 | Checked = True 71 | State = cbChecked 72 | TabOrder = 4 73 | end 74 | end 75 | object mmResult: TMemo 76 | Left = 0 77 | Top = 49 78 | Width = 772 79 | Height = 376 80 | Align = alClient 81 | ImeName = #20013#25991' - QQ'#20116#31508#36755#20837#27861 82 | TabOrder = 1 83 | end 84 | object OpenDialog1: TOpenDialog 85 | Left = 48 86 | Top = 104 87 | end 88 | object SaveDialog1: TSaveDialog 89 | Left = 16 90 | Top = 96 91 | end 92 | end 93 | -------------------------------------------------------------------------------- /demo/YxdJson/JsonSerializeTest/Project1.d2007.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {859e37df-d9ad-49f7-81ea-143b3bc3f185} 4 | Project1.d2007.dpr 5 | Debug 6 | AnyCPU 7 | DCC32 8 | ..\..\..\bin\Project1.d2007.exe 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | ..\..\..\source 21 | ..\..\..\source 22 | ..\..\..\source 23 | ..\..\..\source 24 | ..\..\..\bin 25 | ..\..\..\dcu 26 | ..\..\..\dcu 27 | ..\..\..\dcu 28 | ..\..\..\bin 29 | ..\..\..\dcu 30 | 31 | 32 | Delphi.Personality 33 | VCLApplication 34 | 35 | FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse103312521.0.0.01.0.0.0Project1.d2007.dpr 36 | 37 | 38 | 39 | 40 | MainSource 41 | 42 | 43 |
Form1
44 | 45 | 46 | -------------------------------------------------------------------------------- /demo/YxdJson/JsonSerializeTest/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 509 6 | ClientWidth = 766 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | DesignSize = ( 15 | 766 16 | 509) 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object Label1: TLabel 20 | Left = 8 21 | Top = 48 22 | Width = 72 23 | Height = 13 24 | Caption = #25968#25454#24211#36830#25509#65306 25 | end 26 | object Label2: TLabel 27 | Left = 8 28 | Top = 72 29 | Width = 60 30 | Height = 13 31 | Caption = #26597#35810#35821#21477#65306 32 | end 33 | object Button1: TButton 34 | Left = 8 35 | Top = 8 36 | Width = 75 37 | Height = 25 38 | Caption = #26657#39564 39 | TabOrder = 0 40 | OnClick = Button1Click 41 | end 42 | object Memo1: TMemo 43 | Left = 8 44 | Top = 96 45 | Width = 750 46 | Height = 130 47 | Anchors = [akLeft, akTop, akRight] 48 | ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861 49 | Lines.Strings = ( 50 | 'Memo1') 51 | ScrollBars = ssBoth 52 | TabOrder = 1 53 | end 54 | object Memo2: TMemo 55 | Left = 8 56 | Top = 256 57 | Width = 750 58 | Height = 245 59 | Anchors = [akLeft, akTop, akRight, akBottom] 60 | ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861 61 | Lines.Strings = ( 62 | 'Memo1') 63 | ScrollBars = ssBoth 64 | TabOrder = 2 65 | end 66 | object CheckBox1: TCheckBox 67 | Left = 128 68 | Top = 13 69 | Width = 73 70 | Height = 17 71 | Caption = #32553#36827 72 | TabOrder = 3 73 | end 74 | object CheckBox2: TCheckBox 75 | Left = 213 76 | Top = 13 77 | Width = 73 78 | Height = 17 79 | Caption = #36716#30721 80 | TabOrder = 4 81 | end 82 | object Button2: TButton 83 | Left = 288 84 | Top = 8 85 | Width = 90 86 | Height = 25 87 | Caption = #23545#35937#24207#21015#21270 88 | TabOrder = 5 89 | OnClick = Button2Click 90 | end 91 | object Button3: TButton 92 | Left = 384 93 | Top = 8 94 | Width = 90 95 | Height = 25 96 | Caption = 'Record'#24207#21015#21270 97 | TabOrder = 6 98 | OnClick = Button3Click 99 | end 100 | object Button4: TButton 101 | Left = 480 102 | Top = 8 103 | Width = 90 104 | Height = 25 105 | Caption = 'DataSet '#24207#21015#21270 106 | TabOrder = 7 107 | OnClick = Button4Click 108 | end 109 | object Edit1: TEdit 110 | Left = 86 111 | Top = 45 112 | Width = 539 113 | Height = 21 114 | TabOrder = 8 115 | Text = 116 | 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=testdb.mdb;Persist ' + 117 | 'Security Info=False' 118 | end 119 | object Edit2: TEdit 120 | Left = 86 121 | Top = 69 122 | Width = 539 123 | Height = 21 124 | TabOrder = 9 125 | Text = 'Select * from Users' 126 | end 127 | object Button5: TButton 128 | Left = 576 129 | Top = 8 130 | Width = 113 131 | Height = 25 132 | Caption = 'DataSet '#21453#24207#21015#21270 133 | TabOrder = 10 134 | OnClick = Button5Click 135 | end 136 | object Button6: TButton 137 | Left = 8 138 | Top = 229 139 | Width = 60 140 | Height = 25 141 | Caption = #20132#25442 142 | TabOrder = 11 143 | OnClick = Button6Click 144 | end 145 | object ADODataSet1: TADODataSet 146 | Parameters = <> 147 | Left = 376 148 | Top = 264 149 | end 150 | end 151 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {d1bcadc3-e5a0-46c3-8d93-203fd8ced567} 4 | JSONTest.dpr 5 | Debug 6 | AnyCPU 7 | DCC32 8 | JSONTest.exe 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | ..\..\..\qdac;..\..\..\source 21 | ..\..\..\qdac;..\..\..\source 22 | ..\..\..\qdac;..\..\..\source 23 | ..\..\..\qdac;..\..\..\source 24 | 25 | 26 | Delphi.Personality 27 | VCLApplication 28 | 29 | 30 | False 31 | True 32 | False 33 | 34 | 35 | True 36 | False 37 | 1 38 | 0 39 | 0 40 | 0 41 | False 42 | False 43 | False 44 | False 45 | False 46 | 1033 47 | 1252 48 | 49 | 50 | 51 | 52 | 1.0.0.0 53 | 54 | 55 | 56 | 57 | 58 | 1.0.0.0 59 | 60 | 61 | 62 | JSONTest.dpr 63 | 64 | 65 | 66 | 67 | 68 | 69 | MainSource 70 | 71 | 72 | 73 |
Form2
74 | 75 | 76 | -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/jsondemo_2007.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {1eaa4b4e-765f-4384-bd68-58870deb106d} 4 | jsondemo.dpr 5 | Debug 6 | AnyCPU 7 | DCC32 8 | ..\..\..\bin\jsondemo.exe 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | ..\..\..\bin 17 | ..\..\..\dcu 18 | ..\..\..\dcu 19 | ..\..\..\dcu 20 | ..\..\..\bin 21 | ..\..\..\dcu 22 | ..\..\..\source\;..\..\..\qdac\ 23 | ..\..\..\source\;..\..\..\qdac\ 24 | ..\..\..\source\;..\..\..\qdac\ 25 | ..\..\..\source\;..\..\..\qdac\ 26 | 27 | 28 | 7.0 29 | DEBUG 30 | ..\..\..\source\;..\..\..\qdac\ 31 | ..\..\..\source\;..\..\..\qdac\ 32 | ..\..\..\source\;..\..\..\qdac\ 33 | ..\..\..\source\;..\..\..\qdac\ 34 | ..\..\..\bin 35 | ..\..\..\dcu 36 | ..\..\..\dcu 37 | ..\..\..\dcu 38 | ..\..\..\bin 39 | ..\..\..\dcu 40 | 41 | 42 | Delphi.Personality 43 | VCLApplication 44 | 45 | FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse103312521.0.0.01.0.0.0jsondemo.dpr 46 | 47 | 48 | 49 | 50 | MainSource 51 | 52 | 53 |
Form1
54 | 55 | 56 | 57 | 58 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/Unit3.fmx: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 531 6 | ClientWidth = 926 7 | FormFactor.Width = 320 8 | FormFactor.Height = 480 9 | FormFactor.Devices = [Desktop] 10 | DesignerMasterStyle = 0 11 | object Panel1: TPanel 12 | Align = Top 13 | Size.Width = 926.000000000000000000 14 | Size.Height = 49.000000000000000000 15 | Size.PlatformDefault = False 16 | TabOrder = 0 17 | object Button1: TButton 18 | Position.X = 16.000000000000000000 19 | Position.Y = 16.000000000000000000 20 | TabOrder = 0 21 | Text = #35299#26512 22 | OnClick = Button1Click 23 | end 24 | object CheckBox1: TCheckBox 25 | Position.X = 120.000000000000000000 26 | Position.Y = 16.000000000000000000 27 | TabOrder = 2 28 | Text = 'Name'#21518#21152#31354#26684 29 | OnChange = CheckBox1Change 30 | end 31 | object CheckBox2: TCheckBox 32 | Position.X = 256.000000000000000000 33 | Position.Y = 16.000000000000000000 34 | TabOrder = 1 35 | Text = #20005#26684#27169#24335 36 | OnChange = CheckBox2Change 37 | end 38 | object Label1: TLabel 39 | Position.X = 608.000000000000000000 40 | Position.Y = 16.000000000000000000 41 | Text = 'Label1' 42 | TabOrder = 3 43 | end 44 | end 45 | object Memo1: TMemo 46 | Touch.InteractiveGestures = [Pan, LongTap, DoubleTap] 47 | DataDetectorTypes = [] 48 | Lines.Strings = ( 49 | '[' 50 | ' "JSON Test Pattern pass1",' 51 | ' {"object with 1 member":["array with 1 element"]},' 52 | ' {},' 53 | ' [],' 54 | ' -42,' 55 | ' true,' 56 | ' false,' 57 | ' null,' 58 | ' {' 59 | ' "integer": 1234567890,' 60 | ' "real": -9876.543210,' 61 | ' "e": 0.123456789e-12,' 62 | ' "E": 1.234567890E+34,' 63 | ' "": 23456789012E66,' 64 | ' "zero": 0,' 65 | ' "one": 1,' 66 | ' "space": " ",' 67 | ' "quote": "\"",' 68 | ' "backslash": "\\",' 69 | ' "controls": "\b\f\n\r\t",' 70 | ' "slash": "/ & \/",' 71 | ' "alpha": "abcdefghijklmnopqrstuvwyz",' 72 | ' "ALPHA": "ABCDEFGHIJKLMNOPQRSTUVWYZ",' 73 | ' "digit": "0123456789",' 74 | ' "0123456789": "digit",' 75 | ' "special": "`1~!@#$%^&*()_+-={'#39':[,]}|;.?",' 76 | ' "hex": "\u0123\u4567\u89AB\uCDEF\uabcd\uef4A",' 77 | ' "true": true,' 78 | ' "false": false,' 79 | ' "null": null,' 80 | ' "array":[ ],' 81 | ' "object":{ },' 82 | ' "address": "50 St. James Street",' 83 | ' "url": "http://www.JSON.org/",' 84 | ' "comment": "// /* */": " ",' 86 | ' " s p a c e d " :[1,2 , 3' 87 | '' 88 | ',' 89 | '' 90 | 91 | '4 , 5 , 6 ,7 ],"compact":[1,2,3' + 92 | ',4,5,6,7],' 93 | 94 | ' "jsontext": "{\"object with 1 member\":[\"array with 1 e' + 95 | 'lement\"]}",' 96 | ' "quotes": "" \u0022 %22 0x22 034 "",' 97 | 98 | ' "\/\\\"\uCAFE\uBABE\uAB98\uFCDE\ubcda\uef4A\b\f\n\r\t`1~' + 99 | '!@#$%^&*()_+-=[]{}|;:'#39',./<>?"' 100 | ': "A key can be any string"' 101 | ' },' 102 | ' 0.5 ,98.6' 103 | ',' 104 | '99.44' 105 | ',' 106 | '' 107 | '1066,' 108 | '1e1,' 109 | '0.1e1,' 110 | '1e-1,' 111 | '1e00,2e+00,2e-00' 112 | ',"rosebud"]') 113 | Align = Left 114 | Position.Y = 49.000000000000000000 115 | Size.Width = 369.000000000000000000 116 | Size.Height = 482.000000000000000000 117 | Size.PlatformDefault = False 118 | TabOrder = 2 119 | Viewport.Width = 349.000000000000000000 120 | Viewport.Height = 462.000000000000000000 121 | end 122 | object Memo2: TMemo 123 | Touch.InteractiveGestures = [Pan, LongTap, DoubleTap] 124 | DataDetectorTypes = [] 125 | Align = Client 126 | Size.Width = 557.000000000000000000 127 | Size.Height = 482.000000000000000000 128 | Size.PlatformDefault = False 129 | TabOrder = 1 130 | Viewport.Width = 553.000000000000000000 131 | Viewport.Height = 478.000000000000000000 132 | end 133 | end 134 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest_d2007.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {ace080c6-4d89-4142-a42b-c8ed2b60798c} 4 | JSONTest_d2007.dpr 5 | Debug 6 | AnyCPU 7 | DCC32 8 | ..\..\..\bin\JSONTest_d2007.exe 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | 17 | 18 | 7.0 19 | DEBUG 20 | ..\..\..\qdac;..\..\..\source; 21 | ..\..\..\qdac;..\..\..\source; 22 | ..\..\..\qdac;..\..\..\source; 23 | ..\..\..\qdac;..\..\..\source; 24 | ..\..\..\bin 25 | ..\..\..\dcu 26 | ..\..\..\dcu 27 | ..\..\..\dcu 28 | ..\..\..\bin 29 | ..\..\..\dcu 30 | 31 | 32 | Delphi.Personality 33 | VCLApplication 34 | 35 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse20529361.0.0.01.0.0.0 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | CodeGear C++Builder Office 2000 Servers Package 61 | CodeGear C++Builder Office XP Servers Package 62 | Microsoft Office 2000 Sample Automation Server Wrapper Components 63 | Microsoft Office XP Sample Automation Server Wrapper Components 64 | JSONTest_d2007.dpr 65 | 66 | 67 | 68 | 69 | MainSource 70 | 71 | 72 | 73 | 74 |
Form2
75 | 76 | 77 | -------------------------------------------------------------------------------- /source/pcre/makefile.mak: -------------------------------------------------------------------------------- 1 | # 2 | # makefile to make pcre .obj files using Borland's C++ compiler bcc32 3 | # derived from a makefile generated by BCB6' bpr2mak 4 | # 5 | # if pcre source directory is different from $(JCL)\source\pcre-7.7, use 6 | # "make -Dpcresrc=" to tell make where to find the 7 | # source files 8 | # 9 | # Make.exe needs to reside in the same directory as bcc32.exe. 10 | # For example, if you have Borlands free C++ v. 5.5 compiler (available from 11 | # http://www.borland.com/products/downloads/download_cbuilder.html#) installed: 12 | # 13 | # >C:\Program Files\Borland\BCC55\Bin\make 14 | # 15 | # or, if you want to use C++ Builder 6: 16 | # 17 | # >C:\Program Files\Borland\CBuilder6\Bin\make 18 | # 19 | # or, if you want to use Borland Developer Studio 2006: 20 | # 21 | # >C:\Program files\Borland\BDS\4.0\bin\make 22 | # 23 | # To choose the target CPU, pass "-DCPU=n" as option to make, with n being a 24 | # number between 3 and 6, with the following meanings: 25 | # 26 | # n Target CPU (or compatible) 27 | # -------------------------------- 28 | # 3 80386 29 | # 4 80486 30 | # 5 Pentium (default) 31 | # 6 Pentium Pro 32 | # 33 | # Robert Rossmair, 2004-10-16 34 | # 35 | 36 | CallingConvention = -pr 37 | 38 | !if !$d(BCB) 39 | BCB = $(MAKEDIR)\.. 40 | !endif 41 | 42 | BCC = $(BCB) 43 | 44 | !if !$d(pcresrc) 45 | pcresrc = ..\..\..\pcre-7.7 46 | !endif 47 | 48 | !if !$d(CPU) 49 | CPU = 5 # Pentium 50 | !endif 51 | 52 | # --------------------------------------------------------------------------- 53 | # IDE SECTION 54 | # --------------------------------------------------------------------------- 55 | # The following section of the project makefile is managed by the BCB IDE. 56 | # It is recommended to use the IDE to change any of the values in this 57 | # section. 58 | # --------------------------------------------------------------------------- 59 | 60 | VERSION = BCB.06.00 61 | # --------------------------------------------------------------------------- 62 | OBJFILES = .\pcre_compile.obj .\pcre_config.obj .\pcre_dfa_exec.obj \ 63 | .\pcre_exec.obj .\pcre_fullinfo.obj .\pcre_get.obj .\pcre_globals.obj \ 64 | .\pcre_info.obj .\pcre_maketables.obj .\pcre_newline.obj \ 65 | .\pcre_ord2utf8.obj .\pcre_refcount.obj .\pcre_study.obj .\pcre_tables.obj \ 66 | .\pcre_try_flipped.obj .\pcre_ucd.obj .\pcre_valid_utf8.obj \ 67 | .\pcre_version.obj .\pcre_xclass.obj .\pcre_default_tables.obj 68 | 69 | # --------------------------------------------------------------------------- 70 | DEBUGLIBPATH = $(BCB)\lib\debug 71 | RELEASELIBPATH = $(BCB)\lib\release 72 | USERDEFINES = SUPPORT_UTF8;SUPPORT_UCP 73 | SYSDEFINES = NO_STRICT;_NO_VCL;_RTLDLL 74 | INCLUDEPATH = $(pcresrc);$(BCC)\include;$(BCB)\include\vcl 75 | LIBPATH = $(BCB)\lib\obj;$(BCB)\lib 76 | # LIBPATH = $(pcresrc) 77 | WARNINGS= -wpar -w-aus 78 | PATHC = .;$(pcresrc) 79 | # PATHOBJ = .;$(LIBPATH) 80 | ALLLIB = import32.lib cw32i.lib 81 | # --------------------------------------------------------------------------- 82 | CFLAG1 = -O2 -Ve -X- -a8 -$(CPU) -b -d -k- -vi -tWM- -DHAVE_CONFIG_H 83 | 84 | LFLAGS = -D"" -ap -Tpe -x -Gn 85 | # --------------------------------------------------------------------------- 86 | # MAKE SECTION 87 | # --------------------------------------------------------------------------- 88 | # This section of the project file is not used by the BCB IDE. It is for 89 | # the benefit of building from the command-line using the MAKE utility. 90 | # --------------------------------------------------------------------------- 91 | 92 | .autodepend 93 | # --------------------------------------------------------------------------- 94 | 95 | !if !$d(BCC32) 96 | BCC32 = bcc32 97 | !endif 98 | 99 | !if !$d(LINKER) 100 | LINKER = ilink32 101 | !endif 102 | 103 | # --------------------------------------------------------------------------- 104 | !if $d(PATHC) 105 | .PATH.C = $(PATHC) 106 | !endif 107 | 108 | # --------------------------------------------------------------------------- 109 | pcre: includes tables $(OBJFILES) 110 | 111 | # --------------------------------------------------------------------------- 112 | .c.obj: 113 | $(BCC)\BIN\$(BCC32) -c $(CFLAG1) $(CallingConvention) $(WARNINGS) -I$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -n$(@D) {$< } 114 | 115 | includes: 116 | copy /Y $(pcresrc)\pcre.h.generic $(pcresrc)\pcre.h 117 | copy /Y $(pcresrc)\config.h.generic $(pcresrc)\config.h 118 | 119 | tables: 120 | $(BCC)\BIN\$(BCC32) -c -tWC $(CFLAG1) $(WARNINGS) -I$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -n.\ $(pcresrc)\dftables.c 121 | $(BCC)\BIN\$(LINKER) $(LFLAGS) -L$(LIBPATH) c0x32.obj .\dftables.obj, .\dftables.exe,, $(ALLLIB),, 122 | del dftables.tds 123 | del dftables.obj 124 | dftables.exe pcre_default_tables.c 125 | del dftables.exe 126 | # --------------------------------------------------------------------------- 127 | 128 | 129 | 130 | 131 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/JSONChecker.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | {65c8087b-fd00-4ec2-aa04-8702c6426aea} 5 | Debug 6 | AnyCPU 7 | DCC32 8 | ..\..\..\bin\JSONChecker.exe 9 | JSONChecker.dpr 10 | 11 | 12 | 7.0 13 | False 14 | False 15 | 0 16 | RELEASE 17 | ..\..\..\bin 18 | ..\..\..\bin 19 | ..\..\..\dcu 20 | ..\..\..\dcu 21 | ..\..\..\dcu 22 | ..\..\..\dcu 23 | ..\..\..\source\ 24 | ..\..\..\source\ 25 | ..\..\..\source\ 26 | ..\..\..\source\ 27 | 28 | 29 | 7.0 30 | DEBUG 31 | ..\..\..\bin 32 | ..\..\..\dcu 33 | ..\..\..\dcu 34 | ..\..\..\dcu 35 | ..\..\..\bin 36 | ..\..\..\dcu 37 | ..\..\..\source\;D:\Documents\Projects\Delplhi\SynEdit\Source 38 | ..\..\..\source\;D:\Documents\Projects\Delplhi\SynEdit\Source 39 | ..\..\..\source\;D:\Documents\Projects\Delplhi\SynEdit\Source 40 | ..\..\..\source\;D:\Documents\Projects\Delplhi\SynEdit\Source 41 | 42 | 43 | Delphi.Personality 44 | 45 | 46 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse20529361.0.0.01.0.0.0 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | Microsoft Office 2000 Sample Automation Server Wrapper Components 72 | Microsoft Office XP Sample Automation Server Wrapper Components 73 | JSONChecker.dpr 74 | 75 | 76 | 77 | 78 | MainSource 79 | 80 | 81 |
Form1
82 | 83 | 84 | -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/jsondemo.12.2.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {1eaa4b4e-765f-4384-bd68-58870deb106d} 4 | jsondemo.dpr 5 | Debug 6 | DCC32 7 | jsondemo.exe 8 | 12.2 9 | True 10 | Debug 11 | Win32 12 | Application 13 | VCL 14 | 15 | 16 | true 17 | 18 | 19 | true 20 | Base 21 | true 22 | 23 | 24 | true 25 | Base 26 | true 27 | 28 | 29 | WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias) 30 | 31 | 32 | 7.0 33 | False 34 | False 35 | 0 36 | RELEASE;$(DCC_Define) 37 | 38 | 39 | 7.0 40 | DEBUG;$(DCC_Define) 41 | ..\..\..\..\Source;$(DCC_UnitSearchPath) 42 | ..\..\..\..\Source;$(DCC_ResourcePath) 43 | ..\..\..\..\Source;$(DCC_ObjPath) 44 | ..\..\..\..\Source;$(DCC_IncludePath) 45 | 46 | 47 | Delphi.Personality.12 48 | VCLApplication 49 | 50 | 51 | 52 | 53 | False 54 | False 55 | 1 56 | 0 57 | 0 58 | 0 59 | False 60 | False 61 | False 62 | False 63 | False 64 | 2052 65 | 936 66 | 67 | 68 | 69 | 70 | 1.0.0.0 71 | 72 | 73 | 74 | 75 | 76 | 1.0.0.0 77 | 78 | 79 | 80 | jsondemo.dpr 81 | 82 | 83 | 84 | True 85 | 86 | 87 | 12 88 | 89 | 90 | 91 | MainSource 92 | 93 | 94 |
Form1
95 | 96 | 97 | Cfg_2 98 | Base 99 | 100 | 101 | Base 102 | 103 | 104 | Cfg_1 105 | Base 106 | 107 | 108 | 109 | 110 | 111 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSONTest_d2007.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {B3E2FA67-2D5C-40C1-A563-16FA8B349EFC} 4 | JSONTest_d2007.dpr 5 | True 6 | Debug 7 | 1 8 | Application 9 | VCL 10 | 15.4 11 | Win32 12 | 13 | 14 | true 15 | 16 | 17 | true 18 | Base 19 | true 20 | 21 | 22 | true 23 | Base 24 | true 25 | 26 | 27 | true 28 | Base 29 | true 30 | 31 | 32 | false 33 | JSONTest_d2007 34 | false 35 | false 36 | false 37 | 00400000 38 | Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace) 39 | 2052 40 | false 41 | CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName= 42 | 43 | 44 | CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= 45 | true 46 | 1033 47 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 48 | $(BDS)\bin\default_app.manifest 49 | 50 | 51 | RELEASE;$(DCC_Define) 52 | 0 53 | 0 54 | false 55 | 56 | 57 | DEBUG;$(DCC_Define) 58 | true 59 | false 60 | 61 | 62 | 63 | MainSource 64 | 65 | 66 |
Form2
67 | 68 | 69 | 70 | 71 | 72 | Cfg_2 73 | Base 74 | 75 | 76 | Base 77 | 78 | 79 | Cfg_1 80 | Base 81 | 82 | 83 | 84 | Delphi.Personality.12 85 | 86 | 87 | 88 | 89 | JSONTest_d2007.dpr 90 | 91 | 92 | 93 | True 94 | False 95 | 96 | 97 | 12 98 | 99 | 100 | 101 | 102 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSON_Test_D2007.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | {2778da2e-1090-4b05-b789-1366e08ab8a3} 5 | Release 6 | AnyCPU 7 | DCC32 8 | ..\..\..\bin\JSONTest.exe 9 | JSONTest.dpr 10 | 11 | 12 | 7.0 13 | False 14 | False 15 | 0 16 | RELEASE 17 | ..\..\..\bin 18 | ..\..\..\dcu 19 | ..\..\..\dcu 20 | ..\..\..\dcu 21 | ..\..\..\bin 22 | ..\..\..\dcu 23 | ..\..\..\source\;..\..\..\qdac\ 24 | ..\..\..\source\;..\..\..\qdac\ 25 | ..\..\..\source\;..\..\..\qdac\ 26 | ..\..\..\source\;..\..\..\qdac\ 27 | 28 | 29 | 7.0 30 | DEBUG 31 | ..\..\..\bin 32 | ..\..\..\dcu 33 | ..\..\..\dcu 34 | ..\..\..\dcu 35 | ..\..\..\bin 36 | ..\..\..\dcu 37 | ..\..\..\source\;..\..\..\qdac\ 38 | ..\..\..\source\;..\..\..\qdac\ 39 | ..\..\..\source\;..\..\..\qdac\ 40 | ..\..\..\source\;..\..\..\qdac\ 41 | 42 | 43 | Delphi.Personality 44 | 45 | 46 | FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse103312521.0.0.01.0.0.0JSONTest.dpr 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | CodeGear C++Builder Office 2000 Servers Package 84 | CodeGear C++Builder Office XP Servers Package 85 | Microsoft Office 2000 Sample Automation Server Wrapper Components 86 | Microsoft Office XP Sample Automation Server Wrapper Components 87 | 88 | 89 | 90 | 91 | 92 | 93 | MainSource 94 | 95 | 96 |
Form1
97 | 98 | 99 | 100 | 101 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSONTest.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {b8d02dd2-c5bc-47d3-b6b8-d58a9a2f0956} 4 | JSONTest.dpr 5 | Debug 6 | AnyCPU 7 | DCC32 8 | ..\..\..\bin\JSONTest.exe 9 | 10 | 11 | 7.0 12 | False 13 | False 14 | 0 15 | RELEASE 16 | ..\..\..\bin 17 | ..\..\..\dcu 18 | ..\..\..\dcu 19 | ..\..\..\dcu 20 | ..\..\..\bin 21 | ..\..\..\dcu 22 | ..\..\..\source\;..\..\..\qdac\ 23 | ..\..\..\source\;..\..\..\qdac\ 24 | ..\..\..\source\;..\..\..\qdac\ 25 | ..\..\..\source\;..\..\..\qdac\ 26 | 27 | 28 | 7.0 29 | DEBUG 30 | ..\..\..\source\;..\..\..\qdac\ 31 | ..\..\..\source\;..\..\..\qdac\ 32 | ..\..\..\source\;..\..\..\qdac\ 33 | ..\..\..\source\;..\..\..\qdac\ 34 | ..\..\..\bin 35 | ..\..\..\bin 36 | ..\..\..\dcu 37 | ..\..\..\dcu 38 | ..\..\..\dcu 39 | ..\..\..\dcu 40 | 41 | 42 | Delphi.Personality 43 | VCLApplication 44 | 45 | 46 | False 47 | True 48 | False 49 | 50 | 51 | True 52 | False 53 | 1 54 | 0 55 | 0 56 | 0 57 | False 58 | False 59 | False 60 | False 61 | False 62 | 1033 63 | 1252 64 | 65 | 66 | 67 | 68 | 1.0.0.0 69 | 70 | 71 | 72 | 73 | 74 | 1.0.0.0 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | 110 | 111 | 112 | 113 | 114 | 115 | 116 | 117 | 118 | 119 | 120 | 121 | 122 | 123 | 124 | 125 | 126 | CodeGear C++Builder Office 2000 Servers Package 127 | CodeGear C++Builder Office XP Servers Package 128 | Microsoft Office 2000 Sample Automation Server Wrapper Components 129 | Microsoft Office XP Sample Automation Server Wrapper Components 130 | 131 | 132 | JSONTest.dpr 133 | 134 | 135 | 136 | 137 | 138 | 139 | MainSource 140 | 141 | 142 |
Form1
143 | 144 | 145 | 146 | -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/main.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'QJson & YxdJson Cmp Demo' 5 | ClientHeight = 497 6 | ClientWidth = 899 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object Splitter1: TSplitter 18 | Left = 481 19 | Top = 105 20 | Height = 392 21 | ExplicitLeft = 456 22 | ExplicitTop = 184 23 | ExplicitHeight = 100 24 | end 25 | object Panel1: TPanel 26 | Left = 0 27 | Top = 0 28 | Width = 899 29 | Height = 105 30 | Align = alTop 31 | BevelOuter = bvNone 32 | TabOrder = 0 33 | OnClick = Panel1Click 34 | object Button1: TButton 35 | Left = 8 36 | Top = 8 37 | Width = 117 38 | Height = 25 39 | Caption = #21019#24314' 100000 '#32467#28857 40 | TabOrder = 0 41 | OnClick = Button1Click 42 | end 43 | object Button2: TButton 44 | Left = 140 45 | Top = 8 46 | Width = 117 47 | Height = 25 48 | Caption = #28155#21152#32467#28857 49 | TabOrder = 1 50 | OnClick = Button2Click 51 | end 52 | object Button3: TButton 53 | Left = 273 54 | Top = 8 55 | Width = 117 56 | Height = 25 57 | Caption = #21152#36733#25991#20214 58 | TabOrder = 2 59 | OnClick = Button3Click 60 | end 61 | object Button4: TButton 62 | Left = 406 63 | Top = 8 64 | Width = 117 65 | Height = 25 66 | Caption = #20445#23384#21040#25991#20214 67 | TabOrder = 3 68 | OnClick = Button4Click 69 | end 70 | object Button5: TButton 71 | Left = 539 72 | Top = 8 73 | Width = 117 74 | Height = 25 75 | Caption = #35299#26512#25991#26412 76 | TabOrder = 4 77 | OnClick = Button5Click 78 | end 79 | object Button6: TButton 80 | Left = 672 81 | Top = 8 82 | Width = 75 83 | Height = 25 84 | Caption = 'RTTI'#36816#34892#26102 85 | TabOrder = 5 86 | OnClick = Button6Click 87 | end 88 | object Button7: TButton 89 | Left = 8 90 | Top = 39 91 | Width = 117 92 | Height = 25 93 | Caption = #27969#24335#21152#36733 94 | TabOrder = 6 95 | OnClick = Button7Click 96 | end 97 | object Button8: TButton 98 | Left = 140 99 | Top = 39 100 | Width = 117 101 | Height = 25 102 | Caption = #25968#32452 103 | TabOrder = 7 104 | OnClick = Button8Click 105 | end 106 | object Button10: TButton 107 | Left = 273 108 | Top = 39 109 | Width = 117 110 | Height = 25 111 | Caption = 'For..In' 112 | TabOrder = 8 113 | OnClick = Button10Click 114 | end 115 | object Button11: TButton 116 | Left = 406 117 | Top = 39 118 | Width = 117 119 | Height = 25 120 | Caption = #25353#36335#24452#36171#20540 121 | TabOrder = 9 122 | OnClick = Button11Click 123 | end 124 | object Button12: TButton 125 | Left = 539 126 | Top = 39 127 | Width = 117 128 | Height = 25 129 | Caption = #26597#25214 130 | TabOrder = 10 131 | OnClick = Button12Click 132 | end 133 | object Button9: TButton 134 | Left = 672 135 | Top = 39 136 | Width = 75 137 | Height = 25 138 | Caption = 'XXXXIf' 139 | TabOrder = 11 140 | OnClick = Button9Click 141 | end 142 | object Button13: TButton 143 | Left = 760 144 | Top = 8 145 | Width = 75 146 | Height = 25 147 | Caption = 'Invoke' 148 | TabOrder = 12 149 | OnClick = Button13Click 150 | end 151 | object Button14: TButton 152 | Left = 760 153 | Top = 39 154 | Width = 75 155 | Height = 25 156 | Caption = 'd2007 RTTI' 157 | TabOrder = 13 158 | OnClick = Button14Click 159 | end 160 | object Button15: TButton 161 | Left = 8 162 | Top = 70 163 | Width = 117 164 | Height = 25 165 | Caption = #32534#30721#27979#35797 166 | TabOrder = 14 167 | OnClick = Button15Click 168 | end 169 | object Button16: TButton 170 | Left = 140 171 | Top = 70 172 | Width = 117 173 | Height = 25 174 | Caption = 'TryParse' 175 | TabOrder = 15 176 | OnClick = Button16Click 177 | end 178 | object Button17: TButton 179 | Left = 273 180 | Top = 70 181 | Width = 75 182 | Height = 25 183 | Caption = 'Button17' 184 | TabOrder = 16 185 | OnClick = Button17Click 186 | end 187 | end 188 | object mmResult: TMemo 189 | Left = 0 190 | Top = 105 191 | Width = 481 192 | Height = 392 193 | Hint = 'QJson '#27979#35797#32467#26524 194 | Align = alLeft 195 | Font.Charset = DEFAULT_CHARSET 196 | Font.Color = clWindowText 197 | Font.Height = -12 198 | Font.Name = 'Courier New' 199 | Font.Style = [] 200 | ImeName = #20013#25991' - QQ'#20116#31508#36755#20837#27861 201 | ParentFont = False 202 | ParentShowHint = False 203 | ScrollBars = ssBoth 204 | ShowHint = True 205 | TabOrder = 1 206 | end 207 | object mmResult2: TMemo 208 | Left = 484 209 | Top = 105 210 | Width = 415 211 | Height = 392 212 | Hint = 'YxdJson '#27979#35797#32467#26524 213 | Align = alClient 214 | Font.Charset = DEFAULT_CHARSET 215 | Font.Color = clWindowText 216 | Font.Height = -12 217 | Font.Name = 'Courier New' 218 | Font.Style = [] 219 | ImeName = #20013#25991' - QQ'#20116#31508#36755#20837#27861 220 | ParentFont = False 221 | ParentShowHint = False 222 | ScrollBars = ssBoth 223 | ShowHint = True 224 | TabOrder = 2 225 | end 226 | object OpenDialog1: TOpenDialog 227 | Left = 104 228 | Top = 144 229 | end 230 | object SaveDialog1: TSaveDialog 231 | Left = 40 232 | Top = 144 233 | end 234 | end 235 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'JSON Checker - '#21487#25302#20837#27979#35797'Json'#25991#20214 5 | ClientHeight = 654 6 | ClientWidth = 1128 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object Splitter1: TSplitter 18 | Left = 553 19 | Top = 41 20 | Width = 4 21 | Height = 594 22 | ExplicitTop = 0 23 | ExplicitHeight = 690 24 | end 25 | object Panel1: TPanel 26 | Left = 0 27 | Top = 0 28 | Width = 1128 29 | Height = 41 30 | Align = alTop 31 | BevelOuter = bvNone 32 | TabOrder = 0 33 | ExplicitWidth = 1022 34 | object Label2: TLabel 35 | Left = 446 36 | Top = 15 37 | Width = 60 38 | Height = 13 39 | Caption = #35299#26512#27425#25968#65306 40 | end 41 | object CheckBox1: TCheckBox 42 | Left = 16 43 | Top = 13 44 | Width = 97 45 | Height = 17 46 | Caption = #20005#26684#27169#24335 47 | TabOrder = 0 48 | OnClick = CheckBox1Click 49 | end 50 | object CheckBox2: TCheckBox 51 | Left = 94 52 | Top = 13 53 | Width = 97 54 | Height = 17 55 | Caption = 'JSON Time' 56 | TabOrder = 1 57 | OnClick = CheckBox2Click 58 | end 59 | object Button1: TButton 60 | Left = 595 61 | Top = 10 62 | Width = 129 63 | Height = 25 64 | Caption = #35299#26512' Json' 65 | TabOrder = 2 66 | OnClick = Button1Click 67 | end 68 | object CheckBox3: TCheckBox 69 | Left = 175 70 | Top = 13 71 | Width = 74 72 | Height = 17 73 | Caption = #21387#32553 74 | TabOrder = 3 75 | end 76 | object Edit1: TEdit 77 | Left = 512 78 | Top = 12 79 | Width = 63 80 | Height = 21 81 | ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861 82 | TabOrder = 4 83 | Text = '1' 84 | end 85 | object CheckBox4: TCheckBox 86 | Left = 231 87 | Top = 13 88 | Width = 85 89 | Height = 17 90 | Caption = 'Unicode'#36716#30721 91 | TabOrder = 5 92 | end 93 | object CheckBox5: TCheckBox 94 | Left = 319 95 | Top = 13 96 | Width = 106 97 | Height = 17 98 | Caption = 'Name'#21518#21152#31354#26684 99 | Checked = True 100 | State = cbChecked 101 | TabOrder = 6 102 | OnClick = CheckBox5Click 103 | end 104 | object chkR: TCheckBox 105 | Left = 752 106 | Top = 13 107 | Width = 81 108 | Height = 17 109 | Caption = #35299#26512#27979#35797 110 | Checked = True 111 | State = cbChecked 112 | TabOrder = 7 113 | end 114 | object chkW: TCheckBox 115 | Left = 832 116 | Top = 13 117 | Width = 81 118 | Height = 17 119 | Caption = #32534#30721#27979#35797 120 | Checked = True 121 | State = cbChecked 122 | TabOrder = 8 123 | end 124 | end 125 | object StatusBar1: TStatusBar 126 | Left = 0 127 | Top = 635 128 | Width = 1128 129 | Height = 19 130 | Panels = < 131 | item 132 | Width = 500 133 | end 134 | item 135 | Width = 300 136 | end> 137 | ExplicitTop = 563 138 | ExplicitWidth = 1022 139 | end 140 | object Memo1: TSynMemo 141 | Left = 0 142 | Top = 41 143 | Width = 553 144 | Height = 594 145 | Align = alLeft 146 | Ctl3D = True 147 | ParentCtl3D = False 148 | Font.Charset = DEFAULT_CHARSET 149 | Font.Color = clWindowText 150 | Font.Height = -13 151 | Font.Name = 'Courier New' 152 | Font.Style = [] 153 | PopupMenu = PopupMenu1 154 | TabOrder = 2 155 | OnMouseDown = Memo1MouseDown 156 | Gutter.AutoSize = True 157 | Gutter.Color = 15400872 158 | Gutter.BorderColor = 14548848 159 | Gutter.Font.Charset = DEFAULT_CHARSET 160 | Gutter.Font.Color = clWindowText 161 | Gutter.Font.Height = -11 162 | Gutter.Font.Name = 'Courier New' 163 | Gutter.Font.Style = [] 164 | Gutter.LeftOffset = 4 165 | Gutter.ShowLineNumbers = True 166 | Gutter.Width = 4 167 | ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861 168 | Options = [eoAutoIndent, eoAutoSizeMaxScrollWidth, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces] 169 | RightEdgeColor = 14548848 170 | WordWrap = True 171 | FontSmoothing = fsmNone 172 | ExplicitLeft = -2 173 | ExplicitTop = 39 174 | ExplicitHeight = 522 175 | end 176 | object Memo2: TSynMemo 177 | Left = 557 178 | Top = 41 179 | Width = 571 180 | Height = 594 181 | Align = alClient 182 | Ctl3D = True 183 | ParentCtl3D = False 184 | Font.Charset = DEFAULT_CHARSET 185 | Font.Color = clWindowText 186 | Font.Height = -13 187 | Font.Name = 'Courier New' 188 | Font.Style = [] 189 | PopupMenu = PopupMenu1 190 | TabOrder = 3 191 | OnMouseDown = Memo1MouseDown 192 | Gutter.AutoSize = True 193 | Gutter.Color = 15400872 194 | Gutter.BorderColor = 14548848 195 | Gutter.Font.Charset = DEFAULT_CHARSET 196 | Gutter.Font.Color = clWindowText 197 | Gutter.Font.Height = -11 198 | Gutter.Font.Name = 'Courier New' 199 | Gutter.Font.Style = [] 200 | Gutter.LeftOffset = 4 201 | Gutter.ShowLineNumbers = True 202 | Gutter.Width = 4 203 | ImeName = #20013#25991'('#31616#20307') - '#25628#29399#20116#31508#36755#20837#27861 204 | Options = [eoAutoIndent, eoAutoSizeMaxScrollWidth, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces] 205 | RightEdgeColor = 14548848 206 | FontSmoothing = fsmNone 207 | ExplicitWidth = 465 208 | ExplicitHeight = 522 209 | end 210 | object Timer1: TTimer 211 | Interval = 100 212 | OnTimer = Timer1Timer 213 | Left = 640 214 | Top = 320 215 | end 216 | object PopupMenu1: TPopupMenu 217 | OnPopup = PopupMenu1Popup 218 | Left = 480 219 | Top = 264 220 | object N1: TMenuItem 221 | Caption = #25764#28040'(&U)' 222 | OnClick = N1Click 223 | end 224 | object R1: TMenuItem 225 | Caption = #37325#20570'(&R)' 226 | OnClick = R1Click 227 | end 228 | object N3: TMenuItem 229 | Caption = '-' 230 | end 231 | object N5: TMenuItem 232 | Caption = #26032#24314'(&N)' 233 | OnClick = N5Click 234 | end 235 | object N2: TMenuItem 236 | Caption = '-' 237 | end 238 | object X1: TMenuItem 239 | Caption = #21098#20999'(&X)' 240 | OnClick = X1Click 241 | end 242 | object C1: TMenuItem 243 | Caption = #22797#21046'(&C)' 244 | OnClick = C1Click 245 | end 246 | object P1: TMenuItem 247 | Caption = #31896#36148'(&P)' 248 | OnClick = P1Click 249 | end 250 | object C2: TMenuItem 251 | Caption = #28165#31354'(&C)' 252 | OnClick = C2Click 253 | end 254 | object N4: TMenuItem 255 | Caption = '-' 256 | end 257 | object A1: TMenuItem 258 | Caption = #20840#36873'(&A)' 259 | OnClick = A1Click 260 | end 261 | object N6: TMenuItem 262 | Caption = '-' 263 | end 264 | object W1: TMenuItem 265 | Caption = #33258#21160#25442#34892'(&W)' 266 | OnClick = W1Click 267 | end 268 | end 269 | end 270 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON与数据集互转/Unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 0 3 | Top = 0 4 | Caption = 'Form1' 5 | ClientHeight = 747 6 | ClientWidth = 1120 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object Splitter1: TSplitter 18 | Left = 0 19 | Top = 343 20 | Width = 1120 21 | Height = 9 22 | Cursor = crVSplit 23 | Align = alBottom 24 | ExplicitTop = 456 25 | end 26 | object DBGrid1: TDBGrid 27 | Left = 0 28 | Top = 105 29 | Width = 1120 30 | Height = 238 31 | Align = alClient 32 | DataSource = DataSource1 33 | TabOrder = 0 34 | TitleFont.Charset = DEFAULT_CHARSET 35 | TitleFont.Color = clWindowText 36 | TitleFont.Height = -11 37 | TitleFont.Name = 'Tahoma' 38 | TitleFont.Style = [] 39 | end 40 | object Panel1: TPanel 41 | Left = 0 42 | Top = 0 43 | Width = 1120 44 | Height = 105 45 | Align = alTop 46 | BevelOuter = bvNone 47 | TabOrder = 1 48 | DesignSize = ( 49 | 1120 50 | 105) 51 | object Label1: TLabel 52 | Left = 6 53 | Top = 10 54 | Width = 72 55 | Height = 13 56 | Caption = #27979#35797#25968#25454#24211#65306 57 | end 58 | object Button1: TButton 59 | Left = 8 60 | Top = 34 61 | Width = 75 62 | Height = 25 63 | Anchors = [akTop, akRight] 64 | Caption = 'ToDataSet' 65 | TabOrder = 0 66 | OnClick = Button1Click 67 | end 68 | object Button2: TButton 69 | Left = 87 70 | Top = 34 71 | Width = 75 72 | Height = 25 73 | Anchors = [akTop, akRight] 74 | Caption = 'ToDataSet' 75 | TabOrder = 1 76 | OnClick = Button2Click 77 | end 78 | object Button4: TButton 79 | Left = 281 80 | Top = 34 81 | Width = 75 82 | Height = 25 83 | Anchors = [akTop, akRight] 84 | Caption = #21152#36733#25968#25454 85 | TabOrder = 2 86 | OnClick = Button4Click 87 | end 88 | object Button3: TButton 89 | Left = 168 90 | Top = 34 91 | Width = 75 92 | Height = 25 93 | Anchors = [akTop, akRight] 94 | Caption = 'PutDataSet' 95 | TabOrder = 3 96 | OnClick = Button3Click 97 | end 98 | object Edit1: TEdit 99 | Left = 84 100 | Top = 7 101 | Width = 565 102 | Height = 21 103 | TabOrder = 4 104 | Text = 'E:\Users Folder\Desktop\db2.mdb' 105 | end 106 | object Button5: TButton 107 | Left = 362 108 | Top = 34 109 | Width = 75 110 | Height = 25 111 | Caption = #20445#23384'Data' 112 | TabOrder = 5 113 | OnClick = Button5Click 114 | end 115 | object CheckBox1: TCheckBox 116 | Left = 680 117 | Top = 9 118 | Width = 145 119 | Height = 17 120 | Caption = 'Base64 '#32534#30721' Blob' 121 | Checked = True 122 | State = cbChecked 123 | TabOrder = 6 124 | end 125 | object Button7: TButton 126 | Left = 191 127 | Top = 65 128 | Width = 177 129 | Height = 25 130 | Caption = #19982#28784#32418'QDBJson'#21453#24207#21015#21270#23545#27604 131 | TabOrder = 7 132 | OnClick = Button7Click 133 | end 134 | object Button8: TButton 135 | Left = 384 136 | Top = 65 137 | Width = 153 138 | Height = 25 139 | Caption = #19982'AdoStream'#24207#21015#21270#23545#27604 140 | TabOrder = 8 141 | OnClick = Button8Click 142 | end 143 | object Button9: TButton 144 | Left = 543 145 | Top = 65 146 | Width = 162 147 | Height = 25 148 | Caption = #19982'AdoStream'#21453#24207#21015#21270#23545#27604 149 | TabOrder = 9 150 | OnClick = Button9Click 151 | end 152 | end 153 | object Button6: TButton 154 | Left = 8 155 | Top = 65 156 | Width = 177 157 | Height = 25 158 | Caption = #19982#28784#32418'QDBJson'#24207#21015#21270#23545#27604 159 | TabOrder = 2 160 | OnClick = Button6Click 161 | end 162 | object PageControl1: TPageControl 163 | Left = 0 164 | Top = 352 165 | Width = 1120 166 | Height = 395 167 | ActivePage = TabSheet1 168 | Align = alBottom 169 | TabOrder = 3 170 | object TabSheet1: TTabSheet 171 | Caption = 'YxdJson' 172 | object Memo1: TMemo 173 | Left = 0 174 | Top = 0 175 | Width = 1112 176 | Height = 367 177 | Align = alClient 178 | Font.Charset = DEFAULT_CHARSET 179 | Font.Color = clWindowText 180 | Font.Height = -12 181 | Font.Name = 'Courier New' 182 | Font.Style = [] 183 | HideSelection = False 184 | Lines.Strings = ( 185 | '{' 186 | ' "rows": [' 187 | ' {' 188 | ' "FInterID": 22087,' 189 | ' "FBillNo": "XSD20140722000441",' 190 | ' "FDate": "2014-07-11T00:00:00",' 191 | ' "FSupplyID": 36,' 192 | ' "FMerchandizerID": 5,' 193 | ' "FQCID": 5,' 194 | ' "FDelDate": "2013-12-31T00:00:00",' 195 | ' "FShipmentID": 10,' 196 | ' "FDocumentoryID": 5,' 197 | ' "FNote": "gh",' 198 | ' "FFilePath": "",' 199 | ' "FModifyTime": "1900-01-01T00:00:00",' 200 | ' "FProgramID": 0,' 201 | ' "FCreateUser": 1,' 202 | ' "techDate": null,' 203 | ' "loadingDate": null,' 204 | ' "factoryDelDate": null,' 205 | ' "FQty": null,' 206 | ' "Price": null,' 207 | ' "FQCID2": 1,' 208 | ' "FContact": "42",' 209 | ' "FTranType": 0,' 210 | ' "FPhone": "12",' 211 | ' "FAddress": "",' 212 | ' "FSupplierName": "321",' 213 | ' "MerchandizerName": "13",' 214 | ' "FQCName": "13",' 215 | ' "FDocumentoryName": "13",' 216 | ' "FShipmentName": "[blobs]<123456>"' 217 | ' },' 218 | ' {' 219 | ' "FInterID": 22124,' 220 | ' "FBillNo": "XSD20140722000447",' 221 | ' "FDate": "2014-07-22T00:00:00",' 222 | ' "FSupplyID": 36,' 223 | ' "FMerchandizerID": 5,' 224 | ' "FQCID": 5,' 225 | ' "FDelDate": "2014-07-24T00:00:00",' 226 | ' "FShipmentID": 0,' 227 | ' "FDocumentoryID": 5,' 228 | ' "FNote": "",' 229 | ' "FFilePath": "",' 230 | ' "FModifyTime": "1900-01-01T00:00:00",' 231 | ' "FProgramID": 0,' 232 | ' "FCreateUser": 1,' 233 | ' "techDate": "2014-07-10T00:00:00",' 234 | ' "loadingDate": "2014-07-24T00:00:00",' 235 | ' "factoryDelDate": "2014-07-31T00:00:00",' 236 | ' "FQty": 321,' 237 | ' "Price": 17859,' 238 | ' "FQCID2": 1,' 239 | ' "FContact": "37",' 240 | ' "FTranType": 0,' 241 | ' "FPhone": "2",' 242 | ' "FAddress": "12312",' 243 | ' "FSupplierName": "321",' 244 | ' "MerchandizerName": "13",' 245 | ' "FQCName": "13",' 246 | ' "FDocumentoryName": "13",' 247 | ' "FShipmentName": null' 248 | ' }' 249 | ' ],' 250 | ' "total": 2' 251 | '}' 252 | '') 253 | ParentFont = False 254 | ScrollBars = ssBoth 255 | TabOrder = 0 256 | OnKeyDown = Memo1KeyDown 257 | end 258 | end 259 | object TabSheet2: TTabSheet 260 | Caption = 'QDBJson' 261 | ImageIndex = 1 262 | object Memo2: TMemo 263 | Left = 0 264 | Top = 0 265 | Width = 1112 266 | Height = 367 267 | Align = alClient 268 | Font.Charset = DEFAULT_CHARSET 269 | Font.Color = clWindowText 270 | Font.Height = -12 271 | Font.Name = 'Courier New' 272 | Font.Style = [] 273 | HideSelection = False 274 | ParentFont = False 275 | ScrollBars = ssBoth 276 | TabOrder = 0 277 | end 278 | end 279 | end 280 | object Button10: TButton 281 | Left = 462 282 | Top = 34 283 | Width = 107 284 | Height = 25 285 | Caption = #35835#21462'Json'#25991#20214 286 | TabOrder = 4 287 | OnClick = Button10Click 288 | end 289 | object ClientDataSet1: TClientDataSet 290 | Aggregates = <> 291 | Params = <> 292 | Left = 280 293 | Top = 104 294 | end 295 | object DataSource1: TDataSource 296 | DataSet = ClientDataSet1 297 | Left = 312 298 | Top = 104 299 | end 300 | object OpenDialog1: TOpenDialog 301 | Filter = '*.json|*.json;*.txt|*.*|*.*' 302 | Left = 280 303 | Top = 160 304 | end 305 | object FindDialog1: TFindDialog 306 | OnShow = FindDialog1Show 307 | Options = [frDown, frHideMatchCase, frHideWholeWord, frHideUpDown] 308 | OnFind = FindDialog1Find 309 | Left = 312 310 | Top = 160 311 | end 312 | end 313 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSON_Test.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {2778da2e-1090-4b05-b789-1366e08ab8a3} 4 | Debug 5 | DCC32 6 | ..\..\..\bin\JSONTest.exe 7 | JSONTest.dpr 8 | True 9 | Debug 10 | 1 11 | Application 12 | VCL 13 | 15.4 14 | Win32 15 | 16 | 17 | true 18 | 19 | 20 | true 21 | Base 22 | true 23 | 24 | 25 | true 26 | Base 27 | true 28 | 29 | 30 | true 31 | Base 32 | true 33 | 34 | 35 | true 36 | Base 37 | true 38 | 39 | 40 | JSON_Test 41 | Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace) 42 | 1033 43 | CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= 44 | true 45 | 46 | 47 | $(BDS)\bin\default_app.manifest 48 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 49 | JSON_Test_Icon.ico 50 | true 51 | 1033 52 | 53 | 54 | $(BDS)\bin\default_app.manifest 55 | JSON_Test_Icon.ico 56 | 57 | 58 | 7.0 59 | 0 60 | False 61 | 0 62 | RELEASE;$(DCC_Define) 63 | ..\..\..\bin 64 | ..\..\..\dcu 65 | ..\..\..\dcu 66 | ..\..\..\dcu 67 | ..\..\..\bin 68 | ..\..\..\dcu 69 | ..\..\..\source\;..\..\..\qdac\;$(DCC_UnitSearchPath) 70 | ..\..\..\source\;..\..\..\qdac\;$(DCC_ResourcePath) 71 | ..\..\..\source\;..\..\..\qdac\;$(DCC_ObjPath) 72 | ..\..\..\source\;..\..\..\qdac\;$(DCC_IncludePath) 73 | 74 | 75 | 7.0 76 | DEBUG;$(DCC_Define) 77 | ..\..\..\bin 78 | ..\..\..\dcu 79 | ..\..\..\dcu 80 | ..\..\..\dcu 81 | ..\..\..\bin 82 | ..\..\..\dcu 83 | ..\..\..\source\;..\..\..\qdac\;$(DCC_UnitSearchPath) 84 | ..\..\..\source\;..\..\..\qdac\;$(DCC_ResourcePath) 85 | ..\..\..\source\;..\..\..\qdac\;$(DCC_ObjPath) 86 | ..\..\..\source\;..\..\..\qdac\;$(DCC_IncludePath) 87 | 88 | 89 | Delphi.Personality.12 90 | 91 | 92 | 93 | 94 | False 95 | True 96 | False 97 | 98 | 99 | True 100 | False 101 | 1 102 | 0 103 | 0 104 | 0 105 | False 106 | False 107 | False 108 | False 109 | False 110 | 1033 111 | 1252 112 | 113 | 114 | 115 | 116 | 1.0.0.0 117 | 118 | 119 | 120 | 121 | 122 | 1.0.0.0 123 | 124 | 125 | 126 | JSONTest.dpr 127 | 128 | 129 | CodeGear C++Builder Office 2000 Servers Package 130 | CodeGear C++Builder Office XP Servers Package 131 | Microsoft Office 2000 Sample Automation Server Wrapper Components 132 | Microsoft Office XP Sample Automation Server Wrapper Components 133 | 134 | 135 | 136 | True 137 | False 138 | 139 | 140 | 12 141 | 142 | 143 | 144 | 145 | MainSource 146 | 147 | 148 |
Form2
149 | 150 | 151 | 152 | Cfg_2 153 | Base 154 | 155 | 156 | Base 157 | 158 | 159 | Cfg_1 160 | Base 161 | 162 | 163 | 164 | 165 | 166 | -------------------------------------------------------------------------------- /demo/YxdJson/YxdJson_VS_QJson/jsondemo.bdsproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | jsondemo.dpr 14 | 15 | 16 | 7.0 17 | 18 | 19 | 8 20 | 0 21 | 1 22 | 1 23 | 0 24 | 0 25 | 1 26 | 1 27 | 1 28 | 0 29 | 0 30 | 1 31 | 0 32 | 1 33 | 1 34 | 1 35 | 0 36 | 0 37 | 0 38 | 0 39 | 0 40 | 1 41 | 0 42 | 1 43 | 1 44 | 1 45 | True 46 | True 47 | WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; 48 | 49 | False 50 | 51 | True 52 | True 53 | True 54 | True 55 | True 56 | True 57 | True 58 | True 59 | True 60 | True 61 | True 62 | True 63 | True 64 | True 65 | True 66 | True 67 | True 68 | True 69 | True 70 | True 71 | True 72 | True 73 | True 74 | True 75 | True 76 | True 77 | True 78 | True 79 | True 80 | True 81 | True 82 | True 83 | True 84 | True 85 | True 86 | True 87 | True 88 | True 89 | True 90 | True 91 | True 92 | True 93 | True 94 | True 95 | True 96 | True 97 | False 98 | False 99 | False 100 | True 101 | True 102 | True 103 | True 104 | True 105 | True 106 | True 107 | True 108 | True 109 | True 110 | True 111 | True 112 | True 113 | True 114 | True 115 | 116 | 117 | 118 | 0 119 | 0 120 | False 121 | 1 122 | False 123 | False 124 | False 125 | 16384 126 | 1048576 127 | 4194304 128 | 129 | 130 | 131 | 132 | 133 | 134 | 135 | ..\..\..\..\Source 136 | 137 | 138 | 139 | False 140 | 141 | 142 | 143 | 144 | 145 | False 146 | 147 | 148 | True 149 | False 150 | 151 | 152 | False 153 | 154 | 155 | True 156 | False 157 | 1 158 | 0 159 | 0 160 | 0 161 | False 162 | False 163 | False 164 | False 165 | False 166 | 1033 167 | 1252 168 | 169 | 170 | 171 | 172 | 1.0.0.0 173 | 174 | 175 | 176 | 177 | 178 | 1.0.0.0 179 | 180 | 181 | TeeChart Pro 2012 Components 182 | TeeTree 2 Components 183 | 184 | 185 | 186 | 187 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/Unit2.dfm: -------------------------------------------------------------------------------- 1 | object Form2: TForm2 2 | Left = 0 3 | Top = 0 4 | Caption = 'JSON '#24615#33021#27979#35797 5 | ClientHeight = 508 6 | ClientWidth = 939 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | DesignSize = ( 16 | 939 17 | 508) 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object YxdPageControl1: TPageControl 21 | Left = 8 22 | Top = 208 23 | Width = 923 24 | Height = 292 25 | ActivePage = TabSheet1 26 | Anchors = [akLeft, akTop, akRight, akBottom] 27 | TabOrder = 0 28 | object TabSheet1: TTabSheet 29 | Caption = #28304'JSON'#25968#25454 30 | ExplicitLeft = 0 31 | ExplicitTop = 0 32 | ExplicitWidth = 0 33 | ExplicitHeight = 0 34 | object Memo1: TMemo 35 | AlignWithMargins = True 36 | Left = 3 37 | Top = 3 38 | Width = 909 39 | Height = 258 40 | Align = alClient 41 | Lines.Strings = ( 42 | '{' 43 | #9'"error": 0,' 44 | #9'"status": "success",' 45 | #9'"currentCity": "'#21271#20140'",' 46 | #9'"dateTime": "2014/07/12/11/29/38",' 47 | '"items": [1,2,3,4,5,6,7,8,9,[123,456,789]],' 48 | #9'"results": [' 49 | #9#9'{' 50 | #9#9#9'"startTime": "2014/02/26/00/00/00",' 51 | #9#9#9'"title": "'#20986#21475#21277#36947#38480#21046'('#38271#26399')",' 52 | 53 | #9#9#9'"description": "2014'#24180'2'#26376'26'#26085#36215#65292#27599#22825'7'#26102#33267'15'#26102#65292#21271#20845#29615#22806#29615#65292#20140#34255#39640#36895#20844#36335#20986#21475#21277#36947#65292#31105#27490#36733#36135#27773#36710#36890 + 54 | #34892#12290'",' 55 | #9#9#9'"location": {' 56 | #9#9#9#9'"lng": 116.2499668836,' 57 | #9#9#9#9'"lat": 40.172181392632' 58 | #9#9#9'},' 59 | #9#9#9'"type": "3"' 60 | #9#9'},' 61 | #9#9'{' 62 | #9#9#9'"title": "'#21271#19977#29615#35199#36335#36947#36335#26045#24037'",' 63 | 64 | #9#9#9'"description": "'#20174'7'#26376'3'#26085#21040'8'#26376'28'#26085#65292#33487#24030#26725#65292#22806#29615#26041#21521#65292#36827#34892#22823#20462#26045#24037#65292#26045#24037#26102#38388#20026#27599#22825#26202#38388'23'#26102'30'#20998#33267#20940 + 65 | #26216'5'#26102'30'#20998#65292#30333#22825#27491#24120#25918#34892#31038#20250#20132#36890'",' 66 | #9#9#9'"location": {' 67 | #9#9#9#9'"lng": 116.31302490979,' 68 | #9#9#9#9'"lat": 39.964084503915' 69 | #9#9#9'},' 70 | #9#9#9'"type": "2"' 71 | #9#9'}' 72 | #9']' 73 | '}') 74 | ScrollBars = ssBoth 75 | TabOrder = 0 76 | end 77 | object CheckBox1: TCheckBox 78 | Left = 712 79 | Top = -48 80 | Width = 97 81 | Height = 17 82 | Caption = 'CheckBox1' 83 | TabOrder = 1 84 | end 85 | end 86 | object TabSheet2: TTabSheet 87 | Caption = #36755#20986#32467#26524 88 | ExplicitLeft = 0 89 | ExplicitTop = 0 90 | ExplicitWidth = 0 91 | ExplicitHeight = 0 92 | object Memo2: TMemo 93 | AlignWithMargins = True 94 | Left = 3 95 | Top = 3 96 | Width = 909 97 | Height = 258 98 | Align = alClient 99 | ScrollBars = ssBoth 100 | TabOrder = 0 101 | end 102 | object Memo4: TMemo 103 | Left = 584 104 | Top = -168 105 | Width = 185 106 | Height = 89 107 | Lines.Strings = ( 108 | 'Memo4') 109 | TabOrder = 1 110 | end 111 | end 112 | object TabSheet3: TTabSheet 113 | Caption = #26085#24535 114 | ExplicitLeft = 0 115 | ExplicitTop = 0 116 | ExplicitWidth = 0 117 | ExplicitHeight = 0 118 | object ListBox1: TListBox 119 | AlignWithMargins = True 120 | Left = 3 121 | Top = 3 122 | Width = 909 123 | Height = 258 124 | Align = alClient 125 | ItemHeight = 13 126 | PopupMenu = PopupMenu1 127 | TabOrder = 0 128 | end 129 | object Memo3: TMemo 130 | Left = 576 131 | Top = -144 132 | Width = 185 133 | Height = 89 134 | Lines.Strings = ( 135 | 'Memo3') 136 | TabOrder = 1 137 | end 138 | end 139 | end 140 | object Button1: TButton 141 | Left = 8 142 | Top = 8 143 | Width = 161 144 | Height = 25 145 | Caption = #35835#21462#28304'JSON, toString(0)' 146 | TabOrder = 1 147 | OnClick = Button1Click 148 | end 149 | object Button2: TButton 150 | Left = 8 151 | Top = 70 152 | Width = 161 153 | Height = 25 154 | Caption = #35835#21462#28304'JSON'#25968#25454'20000'#27425 155 | TabOrder = 2 156 | OnClick = Button2Click 157 | end 158 | object Button3: TButton 159 | Left = 8 160 | Top = 39 161 | Width = 161 162 | Height = 25 163 | Caption = #35835#21462#28304'JSON, toString(4)' 164 | TabOrder = 3 165 | OnClick = Button3Click 166 | end 167 | object Button4: TButton 168 | Left = 8 169 | Top = 101 170 | Width = 161 171 | Height = 25 172 | Caption = #28155#21152#21024#38500#24615#33021#27979#35797 173 | TabOrder = 4 174 | OnClick = Button4Click 175 | end 176 | object Button5: TButton 177 | Left = 175 178 | Top = 70 179 | Width = 171 180 | Height = 25 181 | Caption = 'QJson'#35835#21462#28304'JSON, toString' 182 | TabOrder = 5 183 | OnClick = Button5Click 184 | end 185 | object Button6: TButton 186 | Left = 8 187 | Top = 132 188 | Width = 161 189 | Height = 25 190 | Caption = #21152#36733'test.json' 191 | TabOrder = 6 192 | OnClick = Button6Click 193 | end 194 | object Button7: TButton 195 | Left = 8 196 | Top = 163 197 | Width = 161 198 | Height = 25 199 | Caption = 'QJson'#21152#36733'test.json' 200 | TabOrder = 7 201 | OnClick = Button7Click 202 | end 203 | object Button8: TButton 204 | Left = 175 205 | Top = 8 206 | Width = 171 207 | Height = 25 208 | Caption = 'yxdjson'#21152#36733'Preferences.txt' 209 | TabOrder = 8 210 | OnClick = Button8Click 211 | end 212 | object Button9: TButton 213 | Left = 175 214 | Top = 39 215 | Width = 171 216 | Height = 25 217 | Caption = 'qjson'#21152#36733'Preferences.txt' 218 | TabOrder = 9 219 | OnClick = Button9Click 220 | end 221 | object CheckBox2: TCheckBox 222 | Left = 262 223 | Top = 209 224 | Width = 179 225 | Height = 17 226 | Caption = #21152#36733#23436#25104#21518#26174#31034#21040#36755#20986#32467#26524 227 | TabOrder = 10 228 | end 229 | object Button10: TButton 230 | Left = 175 231 | Top = 101 232 | Width = 171 233 | Height = 25 234 | Caption = 'parseStringByName' 235 | TabOrder = 11 236 | OnClick = Button10Click 237 | end 238 | object Button11: TButton 239 | Left = 175 240 | Top = 132 241 | Width = 171 242 | Height = 25 243 | Caption = #21152#36733#25351#23450' json '#25991#20214 244 | TabOrder = 12 245 | OnClick = Button11Click 246 | end 247 | object Button12: TButton 248 | Left = 352 249 | Top = 70 250 | Width = 177 251 | Height = 25 252 | Caption = 'ItemByPath' 253 | TabOrder = 13 254 | OnClick = Button12Click 255 | end 256 | object Button16: TButton 257 | Left = 352 258 | Top = 8 259 | Width = 177 260 | Height = 25 261 | Caption = 'ParseObjectByName' 262 | TabOrder = 14 263 | OnClick = Button16Click 264 | end 265 | object Button17: TButton 266 | Left = 352 267 | Top = 39 268 | Width = 177 269 | Height = 25 270 | Caption = 'AddChildObject' 271 | TabOrder = 15 272 | OnClick = Button17Click 273 | end 274 | object Button18: TButton 275 | Left = 175 276 | Top = 163 277 | Width = 171 278 | Height = 25 279 | Caption = 'SuperJson'#29992#27861#27979#35797 280 | TabOrder = 16 281 | OnClick = Button18Click 282 | end 283 | object Button13: TButton 284 | Left = 588 285 | Top = 8 286 | Width = 75 287 | Height = 25 288 | Caption = 'Button13' 289 | TabOrder = 17 290 | OnClick = Button13Click 291 | end 292 | object CheckBox3: TCheckBox 293 | Left = 544 294 | Top = 105 295 | Width = 97 296 | Height = 17 297 | Caption = 'JSON Time' 298 | TabOrder = 18 299 | OnClick = CheckBox3Click 300 | end 301 | object Button14: TButton 302 | Left = 352 303 | Top = 101 304 | Width = 177 305 | Height = 25 306 | Caption = 'Json Time '#26684#24335#21270#36755#20986 307 | TabOrder = 19 308 | OnClick = Button14Click 309 | end 310 | object Button15: TButton 311 | Left = 352 312 | Top = 132 313 | Width = 177 314 | Height = 25 315 | Caption = 'Json Blob '#27969#27979#35797 316 | TabOrder = 20 317 | OnClick = Button15Click 318 | end 319 | object Button19: TButton 320 | Left = 352 321 | Top = 163 322 | Width = 177 323 | Height = 25 324 | Caption = #24207#21015#21270#23545#35937 325 | TabOrder = 21 326 | OnClick = Button19Click 327 | end 328 | object PopupMenu1: TPopupMenu 329 | Left = 520 330 | Top = 328 331 | object N1: TMenuItem 332 | Caption = #28165#31354 333 | OnClick = N1Click 334 | end 335 | end 336 | object OpenDialog1: TOpenDialog 337 | Filter = '*.json|*.json;*.txt|*.*|*.*' 338 | Left = 576 339 | Top = 136 340 | end 341 | end 342 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON性能对比测试/JSON_Test_XE.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {2778da2e-1090-4b05-b789-1366e08ab8a3} 4 | Debug 5 | DCC32 6 | bin\JSONTest.exe 7 | JSON_Test_XE.dpr 8 | True 9 | Release 10 | 3 11 | Application 12 | VCL 13 | 15.4 14 | Win32 15 | 16 | 17 | true 18 | 19 | 20 | true 21 | Base 22 | true 23 | 24 | 25 | true 26 | Base 27 | true 28 | 29 | 30 | true 31 | Base 32 | true 33 | 34 | 35 | true 36 | Cfg_1 37 | true 38 | true 39 | 40 | 41 | true 42 | Base 43 | true 44 | 45 | 46 | true 47 | Cfg_2 48 | true 49 | true 50 | 51 | 52 | JSON_Test_XE 53 | Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace) 54 | 2052 55 | CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= 56 | 57 | 58 | System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 59 | $(BDS)\bin\default_app.manifest 60 | true 61 | JSONTest_Icon2.ico 62 | 1033 63 | 64 | 65 | 1033 66 | System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace) 67 | true 68 | $(BDS)\bin\default_app.manifest 69 | JSONTest_Icon2.ico 70 | 71 | 72 | 7.0 73 | 0 74 | False 75 | 0 76 | RELEASE;$(DCC_Define) 77 | 78 | 79 | ..\..\..\bin 80 | ..\..\..\bin 81 | true 82 | ..\..\..\dcu 83 | ..\..\..\source\;..\..\..\qdac\;$(DCC_UnitSearchPath) 84 | 1033 85 | ..\..\..\dcu 86 | 87 | 88 | 7.0 89 | DEBUG;$(DCC_Define) 90 | .\bin 91 | .\dcu 92 | .\dcu 93 | .\dcu 94 | .\bin 95 | .\dcu 96 | 97 | 98 | ..\..\..\dcu 99 | ..\..\..\dcu 100 | true 101 | ..\..\..\bin 102 | ..\..\..\source\;..\..\..\qdac\;$(DCC_UnitSearchPath) 103 | 1033 104 | ..\..\..\bin 105 | 106 | 107 | Delphi.Personality.12 108 | 109 | 110 | 111 | 112 | False 113 | True 114 | False 115 | 116 | 117 | False 118 | False 119 | 1 120 | 0 121 | 0 122 | 0 123 | False 124 | False 125 | False 126 | False 127 | False 128 | 2052 129 | 936 130 | 131 | 132 | 133 | 134 | 1.0.0.0 135 | 136 | 137 | 138 | 139 | 140 | 1.0.0.0 141 | 142 | 143 | 144 | JSON_Test_XE.dpr 145 | 146 | 147 | Embarcadero C++Builder Office 2000 Servers Package 148 | Embarcadero C++Builder Office XP Servers Package 149 | Microsoft Office 2000 Sample Automation Server Wrapper Components 150 | Microsoft Office XP Sample Automation Server Wrapper Components 151 | 152 | 153 | 154 | True 155 | True 156 | 157 | 158 | 12 159 | 160 | 161 | 162 | 163 | MainSource 164 | 165 | 166 | 167 |
Form1
168 | 169 | 170 | Cfg_2 171 | Base 172 | 173 | 174 | Base 175 | 176 | 177 | Cfg_1 178 | Base 179 | 180 | 181 | 182 | 183 | 184 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON与数据集互转/JSON_DataSet_Serialize_XE6.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {FBE7FC34-5581-4645-A4A3-71E9B2BF28A1} 4 | 15.4 5 | VCL 6 | JSON_DataSet_Serialize_XE6.dpr 7 | True 8 | Release 9 | Win32 10 | 1 11 | Application 12 | 13 | 14 | true 15 | 16 | 17 | true 18 | Base 19 | true 20 | 21 | 22 | true 23 | Base 24 | true 25 | 26 | 27 | true 28 | Base 29 | true 30 | 31 | 32 | true 33 | Cfg_1 34 | true 35 | true 36 | 37 | 38 | true 39 | Base 40 | true 41 | 42 | 43 | true 44 | Cfg_2 45 | true 46 | true 47 | 48 | 49 | $(BDS)\bin\delphi_PROJECTICON.ico 50 | JSON_DataSet_Serialize_XE6 51 | System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) 52 | .\$(Platform)\$(Config) 53 | .\$(Platform)\$(Config) 54 | false 55 | false 56 | false 57 | false 58 | false 59 | 60 | 61 | true 62 | 1033 63 | FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;inetdbbde;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;CodeSiteExpressPkg;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;vcldbx;FireDACODBCDriver;RESTBackendComponents;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;Tee;DBXOdbcDriver;vclFireDAC;xmlrtl;DataSnapNativeClient;svnui;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;vclactnband;bindengine;soaprtl;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;VclSmp;FireDACMSSQLDriver;FireDAC;DBXInformixDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;bdertl;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage) 64 | $(BDS)\bin\default_app.manifest 65 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 66 | CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= 67 | 68 | 69 | FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;Tee;DBXOdbcDriver;vclFireDAC;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;vclactnband;bindengine;soaprtl;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;VclSmp;FireDACMSSQLDriver;FireDAC;DBXInformixDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage) 70 | 71 | 72 | DEBUG;$(DCC_Define) 73 | true 74 | false 75 | true 76 | true 77 | true 78 | 79 | 80 | ..\..\..\dcu 81 | ..\..\..\bin 82 | ..\..\..\source\;..\..\..\qdac\;$(DCC_UnitSearchPath) 83 | ..\..\..\bin 84 | ..\..\..\dcu 85 | true 86 | 1033 87 | false 88 | 89 | 90 | false 91 | RELEASE;$(DCC_Define) 92 | 0 93 | 0 94 | 95 | 96 | ..\..\..\dcu 97 | ..\..\..\bin 98 | ..\..\..\bin 99 | ..\..\..\dcu 100 | true 101 | 1033 102 | ..\..\..\source\;..\..\..\qdac\;$(DCC_UnitSearchPath) 103 | 104 | 105 | 106 | MainSource 107 | 108 | 109 |
Form1
110 | dfm 111 | 112 | 113 | Cfg_2 114 | Base 115 | 116 | 117 | Base 118 | 119 | 120 | Cfg_1 121 | Base 122 | 123 | 124 | 125 | Delphi.Personality.12 126 | 127 | 128 | 129 | 130 | JSON_DataSet_Serialize_XE6.dpr 131 | 132 | 133 | Embarcadero C++Builder Office 2000 Servers Package 134 | Embarcadero C++Builder Office XP Servers Package 135 | Microsoft Office 2000 Sample Automation Server Wrapper Components 136 | Microsoft Office XP Sample Automation Server Wrapper Components 137 | 138 | 139 | 140 | 141 | True 142 | False 143 | 144 | 145 | 12 146 | 147 | 148 | 149 | 150 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON转为MsgPack/Project1.Berlin.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {931f757b-8482-47fe-97c6-bc9a6f35585d} 4 | Debug 5 | DCC32 6 | Project1.exe 7 | Project1.dpr 8 | VCL 9 | 18.2 10 | True 11 | Debug 12 | Win32 13 | 1025 14 | Application 15 | 16 | 17 | true 18 | 19 | 20 | true 21 | Base 22 | true 23 | 24 | 25 | true 26 | Base 27 | true 28 | 29 | 30 | true 31 | Base 32 | true 33 | 34 | 35 | true 36 | Cfg_1 37 | true 38 | true 39 | 40 | 41 | true 42 | Base 43 | true 44 | 45 | 46 | true 47 | Cfg_2 48 | true 49 | true 50 | 51 | 52 | true 53 | Cfg_2 54 | true 55 | true 56 | 57 | 58 | 2052 59 | Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace) 60 | CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= 61 | Project1_Berlin 62 | ..\..\..\source;$(DCC_UnitSearchPath) 63 | 64 | 65 | $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png 66 | true 67 | 1033 68 | Project1.Berlin_Icon.ico 69 | System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 70 | CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(ModuleName) 71 | $(BDS)\bin\default_app.manifest 72 | Debug 73 | true 74 | $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png 75 | 76 | 77 | $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png 78 | Project1.Berlin_Icon.ico 79 | true 80 | $(BDS)\bin\default_app.manifest 81 | $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png 82 | 83 | 84 | 7.0 85 | 0 86 | False 87 | 0 88 | RELEASE;$(DCC_Define) 89 | 90 | 91 | true 92 | true 93 | 94 | 95 | 7.0 96 | DEBUG;$(DCC_Define) 97 | ..\..\..\source;$(DCC_ResourcePath) 98 | ..\..\..\source;$(DCC_ObjPath) 99 | ..\..\..\source;$(DCC_IncludePath) 100 | 101 | 102 | Debug 103 | 104 | 105 | true 106 | 1033 107 | true 108 | true 109 | CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 110 | 111 | 112 | Delphi.Personality.12 113 | 114 | 115 | 116 | 117 | False 118 | True 119 | False 120 | 121 | 122 | False 123 | False 124 | 1 125 | 0 126 | 0 127 | 0 128 | False 129 | False 130 | False 131 | False 132 | False 133 | 2052 134 | 936 135 | 136 | 137 | 138 | 139 | 1.0.0.0 140 | 141 | 142 | 143 | 144 | 145 | 1.0.0.0 146 | 147 | 148 | 149 | Embarcadero C++Builder Office 2000 Servers Package 150 | Embarcadero C++Builder Office XP Servers Package 151 | Microsoft Office 2000 Sample Automation Server Wrapper Components 152 | Microsoft Office XP Sample Automation Server Wrapper Components 153 | 154 | 155 | Project1.dpr 156 | 157 | 158 | 159 | True 160 | True 161 | False 162 | 163 | 164 | 12 165 | 166 | 167 | 168 | MainSource 169 | 170 | 171 |
Form1
172 | 173 | 174 | Cfg_2 175 | Base 176 | 177 | 178 | Base 179 | 180 | 181 | Cfg_1 182 | Base 183 | 184 | 185 | 186 | 187 | 188 | 189 | 190 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON基本测试/JSONTest_XE.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | {2778da2e-1090-4b05-b789-1366e08ab8a3} 4 | Debug 5 | DCC32 6 | bin\JSONTest.exe 7 | JSONTest_XE.dpr 8 | True 9 | Debug 10 | 3 11 | Application 12 | VCL 13 | 15.4 14 | Win64 15 | 16 | 17 | true 18 | 19 | 20 | true 21 | Base 22 | true 23 | 24 | 25 | true 26 | Base 27 | true 28 | 29 | 30 | true 31 | Base 32 | true 33 | 34 | 35 | true 36 | Cfg_1 37 | true 38 | true 39 | 40 | 41 | true 42 | Cfg_1 43 | true 44 | true 45 | 46 | 47 | true 48 | Base 49 | true 50 | 51 | 52 | true 53 | Cfg_2 54 | true 55 | true 56 | 57 | 58 | true 59 | Cfg_2 60 | true 61 | true 62 | 63 | 64 | JSONTest_Icon2.ico 65 | $(BDS)\bin\default_app.manifest 66 | JSONTest_XE 67 | Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace) 68 | 2052 69 | CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= 70 | 71 | 72 | System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 73 | true 74 | 1033 75 | 76 | 77 | 1033 78 | System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace) 79 | true 80 | 81 | 82 | 7.0 83 | 0 84 | False 85 | 0 86 | RELEASE;$(DCC_Define) 87 | 88 | 89 | ..\..\..\source\;..\..\..\qdac\;$(DCC_UnitSearchPath) 90 | true 91 | ..\..\..\dcu 92 | ..\..\..\dcu 93 | true 94 | ..\..\..\bin 95 | 1033 96 | ..\..\..\bin 97 | 98 | 99 | ..\..\..\bin 100 | ..\..\..\bin 101 | ..\..\..\dcu 102 | ..\..\..\dcu 103 | ..\..\..\source\;..\..\..\qdac\ 104 | true 105 | 1033 106 | 107 | 108 | 7.0 109 | DEBUG;$(DCC_Define) 110 | .\bin 111 | .\dcu 112 | .\dcu 113 | .\dcu 114 | .\bin 115 | .\dcu 116 | 117 | 118 | ..\..\..\source\;..\..\..\qdac\;$(DCC_UnitSearchPath) 119 | ..\..\..\bin 120 | ..\..\..\bin 121 | true 122 | ..\..\..\dcu 123 | 1033 124 | ..\..\..\dcu 125 | 126 | 127 | ..\..\..\bin 128 | ..\..\..\bin 129 | ..\..\..\dcu 130 | ..\..\..\dcu 131 | ..\..\..\source\;..\..\..\qdac\;$(DCC_UnitSearchPath) 132 | true 133 | 1033 134 | 135 | 136 | Delphi.Personality.12 137 | 138 | 139 | 140 | 141 | False 142 | True 143 | False 144 | 145 | 146 | False 147 | False 148 | 1 149 | 0 150 | 0 151 | 0 152 | False 153 | False 154 | False 155 | False 156 | False 157 | 2052 158 | 936 159 | 160 | 161 | 162 | 163 | 1.0.0.0 164 | 165 | 166 | 167 | 168 | 169 | 1.0.0.0 170 | 171 | 172 | 173 | JSONTest_XE.dpr 174 | 175 | 176 | Microsoft Office 2000 Sample Automation Server Wrapper Components 177 | Microsoft Office XP Sample Automation Server Wrapper Components 178 | Embarcadero C++Builder Office 2000 Servers Package 179 | Embarcadero C++Builder Office XP Servers Package 180 | 181 | 182 | 183 | True 184 | True 185 | 186 | 187 | 12 188 | 189 | 190 | 191 | 192 | MainSource 193 | 194 | 195 |
Form2
196 | 197 | 198 | 199 | 200 | Cfg_2 201 | Base 202 | 203 | 204 | Base 205 | 206 | 207 | Cfg_1 208 | Base 209 | 210 | 211 | 212 | 213 | 214 | -------------------------------------------------------------------------------- /demo/YxdJson/JSON_Checker/JSONChecker.D10.FMX.deployproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 12 5 | 6 | 7 | 127.0.0.1:52001 8 | 9 | 10 | iPhone5 11 | 12 | 13 | 14 | 15 | 16 | 17 | JSONChecker.D10.FMX\ 18 | JSONChecker_D10_FMX.exe 19 | ProjectOutput 20 | 0 21 | 22 | 23 | True 24 | True 25 | 26 | 27 | 28 | 29 | 30 | JSONChecker.D10.FMX.app\Contents\MacOS\ 31 | libcgsqlite3.dylib 32 | DependencyModule 33 | 1 34 | 35 | 36 | True 37 | 38 | 39 | JSONChecker.D10.FMX.app\Contents\MacOS\ 40 | libcgunwind.1.0.dylib 41 | DependencyModule 42 | 1 43 | 44 | 45 | True 46 | 47 | 48 | 49 | 50 | JSONChecker.D10.FMX\res\drawable-mdpi\ 51 | ic_launcher.png 52 | Android_LauncherIcon48 53 | 1 54 | 55 | 56 | True 57 | 58 | 59 | JSONChecker.D10.FMX\ 60 | AndroidManifest.xml 61 | ProjectAndroidManifest 62 | 1 63 | 64 | 65 | True 66 | 67 | 68 | JSONChecker.D10.FMX\classes\ 69 | classes.dex 70 | AndroidClassesDexFile 71 | 1 72 | 73 | 74 | True 75 | 76 | 77 | JSONChecker.D10.FMX\res\drawable-ldpi\ 78 | ic_launcher.png 79 | Android_LauncherIcon36 80 | 1 81 | 82 | 83 | True 84 | 85 | 86 | JSONChecker.D10.FMX\res\drawable-xxhdpi\ 87 | ic_launcher.png 88 | Android_LauncherIcon144 89 | 1 90 | 91 | 92 | True 93 | 94 | 95 | JSONChecker.D10.FMX\res\drawable-small\ 96 | splash_image.png 97 | Android_SplashImage426 98 | 1 99 | 100 | 101 | True 102 | 103 | 104 | JSONChecker.D10.FMX\res\drawable-xlarge\ 105 | splash_image.png 106 | Android_SplashImage960 107 | 1 108 | 109 | 110 | True 111 | 112 | 113 | JSONChecker.D10.FMX\res\drawable-xhdpi\ 114 | ic_launcher.png 115 | Android_LauncherIcon96 116 | 1 117 | 118 | 119 | True 120 | 121 | 122 | JSONChecker.D10.FMX\library\lib\armeabi\ 123 | libJSONChecker_D10_FMX.so 124 | AndroidLibnativeArmeabiFile 125 | 1 126 | 127 | 128 | True 129 | 130 | 131 | JSONChecker.D10.FMX\library\lib\mips\ 132 | libJSONChecker_D10_FMX.so 133 | AndroidLibnativeMipsFile 134 | 1 135 | 136 | 137 | True 138 | 139 | 140 | JSONChecker.D10.FMX\res\drawable-hdpi\ 141 | ic_launcher.png 142 | Android_LauncherIcon72 143 | 1 144 | 145 | 146 | True 147 | 148 | 149 | JSONChecker.D10.FMX\res\drawable-normal\ 150 | splash_image.png 151 | Android_SplashImage470 152 | 1 153 | 154 | 155 | True 156 | 157 | 158 | JSONChecker.D10.FMX\res\drawable-large\ 159 | splash_image.png 160 | Android_SplashImage640 161 | 1 162 | 163 | 164 | True 165 | 166 | 167 | JSONChecker.D10.FMX\library\lib\armeabi-v7a\ 168 | libJSONChecker_D10_FMX.so 169 | ProjectOutput 170 | 1 171 | 172 | 173 | True 174 | True 175 | 176 | 177 | JSONChecker.D10.FMX\library\lib\armeabi-v7a\ 178 | gdbserver 179 | AndroidGDBServer 180 | 1 181 | 182 | 183 | True 184 | 185 | 186 | JSONChecker.D10.FMX\res\drawable\ 187 | splash_image_def.xml 188 | AndroidSplashImageDef 189 | 1 190 | 191 | 192 | True 193 | 194 | 195 | JSONChecker.D10.FMX\res\values\ 196 | styles.xml 197 | AndroidSplashStyles 198 | 1 199 | 200 | 201 | True 202 | 203 | 204 | 205 | 206 | JSONChecker.D10.FMX.app\ 207 | libcgunwind.1.0.dylib 208 | DependencyModule 209 | 1 210 | 211 | 212 | True 213 | 214 | 215 | JSONChecker.D10.FMX.app\ 216 | libPCRE.dylib 217 | DependencyModule 218 | 1 219 | 220 | 221 | True 222 | 223 | 224 | 225 | -------------------------------------------------------------------------------- /bin/test.json: -------------------------------------------------------------------------------- 1 | {"status":"Success","returnType":19,"origin":{"cityName":"南京市","listType":0,"results":[{"name":"南京师范大学(随园校区)","address":"宁海路122号南京师范大学随园校区(近五台山体育馆北门)","telephone":"(025)83598010","location":{"lng":118.76910802631,"lat":32.053549002457}},{"name":"南京师范大学紫金校区","address":"南京市玄武区板仓街78号","telephone":"(025)85481074","location":{"lng":118.82148937875,"lat":32.071797107485}},{"name":"南京师范大学(商学院)","address":"杨家坟","telephone":"","location":{"lng":118.74468339485,"lat":31.924527172637}},{"name":"南京师范大学医院","address":"南京市鼓楼区","telephone":"","location":{"lng":118.76635014944,"lat":32.053867502814}},{"name":"南京师大自学考试办公室","address":"宁海路122","telephone":"","location":{"lng":118.76877004777,"lat":32.054465459609}},{"name":"南京师大劳动服务公司","address":"板仓街78号","telephone":"","location":{"lng":118.82260967369,"lat":32.071724518845}},{"name":"南京师大教师培训中心","address":"宁海路122","telephone":"","location":{"lng":118.77013031393,"lat":32.052474512836}},{"name":"南京师范大学美术学院陶瓷艺术研究所","address":"南京师范大学美术学院附近","telephone":"","location":{"lng":118.77077002302,"lat":32.052959806771}},{"name":"南京师大mba教育中心","address":"宁海路122","telephone":"(025)83598010","location":{"lng":118.77029969033,"lat":32.051798283464}},{"name":"南京师范大学出版社","address":"宁海路122-1","telephone":"(025)83598297","location":{"lng":118.7716101983,"lat":32.054596357149}},{"name":"南京师范大学","address":"近郊栖霞区文苑路1号南京师范大学仙林校区(近学海路)","telephone":"(025)85891111","location":{"lng":118.91053767444,"lat":32.100842038301}},{"name":"南京师范大学(南京师范大学茶苑西北)","address":"南京师范大学茶苑附近","telephone":"","location":{"lng":118.89749419942,"lat":32.100124476633}},{"name":"南京师大文化产业研究院","address":"宁海路122号","telephone":"","location":{"lng":118.76677027128,"lat":32.05341620449}},{"name":"南京师大动画教学实验室","address":"文苑路1号","telephone":"(025)85891111","location":{"lng":118.91293980185,"lat":32.103668274675}},{"name":"南京师大动感地带品牌店","address":"文苑路1号","telephone":"","location":{"lng":118.91386034804,"lat":32.11373422087}},{"name":"南京师大文教资料杂志社","address":"宁海路122号","telephone":"","location":{"lng":118.76677027128,"lat":32.05341620449}},{"name":"南京师大数理化图书馆","address":"文苑路1号","telephone":"(025)85898807","location":{"lng":118.91131993851,"lat":32.101370704782}},{"name":"南京师大实验动物中心","address":"文苑路1号","telephone":"(025)85891111","location":{"lng":118.91638979554,"lat":32.116474833066}},{"name":"南京师大老年学研究中心","address":"宁海路122","telephone":"","location":{"lng":118.77001049735,"lat":32.052155491725}},{"name":"南京师大(紫金校区)-南门","address":"板仓街78","telephone":"(025)85412341","location":{"lng":118.82176015911,"lat":32.070845574988}},{"name":"南京师大国际经济研究中心","address":"宁海路122","telephone":"","location":{"lng":118.77013031393,"lat":32.052474512836}},{"name":"南京师大幼儿教育发展中心","address":"宁海路128号南山专家楼7层","telephone":"","location":{"lng":118.76850053291,"lat":32.052734199139}},{"name":"南京师大中国经济研究中心","address":"宁海路122","telephone":"","location":{"lng":118.77013031393,"lat":32.052474512836}},{"name":"南京师大南师教育培训中心","address":"龙蟠中路317号","telephone":"(025)84868258","location":{"lng":118.80183941887,"lat":32.03041317888}},{"name":"南京师范大学图书情报管理研究所","address":"宁海路122号南京师范大学随园校区华夏图书馆1层","telephone":"(025)83598010","location":{"lng":118.77013031393,"lat":32.052474512836}},{"name":"南京师大老年体育工作者协会","address":"宁海路122","telephone":"","location":{"lng":118.77034005684,"lat":32.054443980065}},{"name":"南京师范大学环境科学研究所","address":"南京师范大学法学院附近","telephone":"","location":{"lng":118.77029969033,"lat":32.051798283464}},{"name":"南京师范大学社会发展学院","address":"宁海路","telephone":"","location":{"lng":118.77013031393,"lat":32.052474512836}},{"name":"南京师大(仙林校区)-3号门","address":"文苑路3号","telephone":"(025)85891111","location":{"lng":118.90674972446,"lat":32.098174130253}},{"name":"南京师大出版社·两江培训","address":"南京市鼓楼区","telephone":"(025)83283232","location":{"lng":118.77100978005,"lat":32.054668665478}},{"name":"南京师范大学后宰门学区","address":"后宰门西村9号","telephone":"(025)84804071","location":{"lng":118.81909959839,"lat":32.046478351732}},{"name":"南京师大学生社团联合会紫金分会","address":"板仓街78号","telephone":"","location":{"lng":118.82045021141,"lat":32.072399348362}},{"name":"南京师大(仙林校区)-1号主校门","address":"文范路1","telephone":"(025)85891111","location":{"lng":118.91263020472,"lat":32.100090985023}},{"name":"南京师范大学中北学院(学林路)","address":"南京仙林大学城学林路2号","telephone":"(025)85898048","location":{"lng":118.91000008439,"lat":32.115897456875}},{"name":"南京师大认知科学研究中心","address":"宁海路122号","telephone":"","location":{"lng":118.76596026715,"lat":32.052589616894}},{"name":"南京师范大学国际健身中心","address":"宁海路122号南京师范大学随园校区操场西侧体育馆2楼","telephone":"(025)83704511","location":{"lng":118.76596026715,"lat":32.052589616894}},{"name":"南京师范大学乳品生物技术研究所","address":"宁海路122号附近","telephone":"","location":{"lng":118.76987000731,"lat":32.051729772315}},{"name":"南京师大计算机科学与技术学院","address":"宁海路122","telephone":"(025)83598010","location":{"lng":118.76911977004,"lat":32.052845105619}},{"name":"南京师大社会工作研究与发展中心","address":"宁海路122","telephone":"","location":{"lng":118.77013031393,"lat":32.052474512836}},{"name":"南京师大音乐教育研究所","address":"宁海路122","telephone":"","location":{"lng":118.77081990226,"lat":32.052675880167}},{"name":"南京师范大学公共管理学院","address":"宁海路122号附近","telephone":"(025)83598010","location":{"lng":118.77009325504,"lat":32.052528741595}},{"name":"南京师范大学金陵营养与资源研究所","address":"宁海路122号附近","telephone":"","location":{"lng":118.77013031393,"lat":32.052474512836}},{"name":"南京师范大学附属扬子中学(水榭花苑东)","address":"杨村路146号","telephone":"","location":{"lng":118.76126115916,"lat":32.23904416039}},{"name":"师豪高校实业有限公司南京师范大学后勤实业中心","address":"文苑路1","telephone":"","location":{"lng":118.90597514248,"lat":32.099590976765}},{"name":"金门驾校（南京师范大学仙林校区报名处）","address":"南京师范大学仙林校区内","telephone":"(025)66167606,18013893689","location":{"lng":118.90795742823,"lat":32.101946287414}},{"name":"南京师大紫金校区学生第二餐厅","address":"南京玄武区板仓街78号(近南师大紫金校区)","telephone":"(025)85768899","location":{"lng":118.82188006769,"lat":32.070801725057}},{"name":"南京师大科技实业集团公司物联网包装应用材料研究所","address":"宁海路122","telephone":"","location":{"lng":118.76762038941,"lat":32.052635722885}},{"name":"南京师范大学生命科学学院遗传资源研究所","address":"南京师范大学随园校区28号楼","telephone":"(025)86083183","location":{"lng":118.76597028327,"lat":32.052482353281}},{"name":"南京师范大学法学院","address":"宁海路122南京师范大学逸夫楼","telephone":"(025)83598010","location":{"lng":118.77013031393,"lat":32.052474512836}},{"name":"南京师范大学文学院","address":"南京师范大学随园校区中大楼","telephone":"(025)83598450","location":{"lng":118.76739494533,"lat":32.053465931186}}]},"destination":{"cityName":"北京市","listType":0,"results":[{"name":"中国政法大学","address":"314路;314路;345快;345快;357路;357路;357区间;357区间;870路;870路;881路;881路;884路;884路;888快;888快;888路;888路;922路;922路;925路;925路;h63路;h63路;昌11路;昌11路;昌16路","telephone":"","location":{"lng":116.24540028074,"lat":40.22107025404}},{"name":"中国政法大学(学院路校区)","address":"海淀区西土城路25号","telephone":"(010)58909114","location":{"lng":116.35152026298,"lat":39.965765692502}},{"name":"中国政法大学(昌平校区)","address":"北京市昌平区府学路27号","telephone":"(010)58909162","location":{"lng":116.24758143785,"lat":40.222819419441}},{"name":"中国政法大学-东门","address":"北京市海淀区西土城路25号","telephone":"010-58909114","location":{"lng":116.35298127874,"lat":39.965010349286}},{"name":"中国政法大学-南门","address":"北京市海淀区西土城路25号","telephone":"010-58909114","location":{"lng":116.35172062395,"lat":39.964043105482}},{"name":"中国政法大学-北门","address":"北京市海淀区西土城路25号","telephone":"010-58909114","location":{"lng":116.35185167304,"lat":39.967012816241}},{"name":"中国政法大学校医院","address":"昌平区府学路","telephone":"(010)58909114","location":{"lng":116.35016092068,"lat":39.966345693083}},{"name":"中国政法大学医院","address":"东关路","telephone":"(010)58909228","location":{"lng":116.24755005558,"lat":40.225229615104}},{"name":"中国政法大学研究生院","address":"北京市海淀区西土城路25号法大培训区606室","telephone":"010-58908070","location":{"lng":116.3501716543,"lat":39.966718704908}},{"name":"中国政法大学司法考试学院","address":"北京市海淀区西土城路25号","telephone":"","location":{"lng":116.35302567056,"lat":39.964802550323}},{"name":"中国政法大学出版社","address":"北京市海淀区西土城路25号院5号楼","telephone":"010-58908302","location":{"lng":116.35280065402,"lat":39.9664150491}},{"name":"中国政法大学留学_政法大学","address":"北京市海淀区西土城路25号中国政法大学","telephone":"4006887125","location":{"lng":116.35299063827,"lat":39.965030970199}},{"name":"中国政法大学中国法律信息中心","address":"北京市海淀区","telephone":"","location":{"lng":116.35017646977,"lat":39.966103715419}},{"name":"中国政法大学-停车场","address":"西土城路25号附近","telephone":"","location":{"lng":116.35299027087,"lat":39.965037883995}},{"name":"中国政法大学第一食堂","address":"中国政法大学内","telephone":"(010)58909239","location":{"lng":116.24807063917,"lat":40.222604059532}},{"name":"中国政法大学篮球场","address":"北京市昌平区","telephone":"","location":{"lng":116.24786262229,"lat":40.224597477359}},{"name":"中国政法大学-停车场","address":"西土城路辅路附近","telephone":"","location":{"lng":116.35259347272,"lat":39.965035487141}},{"name":"中国政法大学门诊部","address":"北京市海淀区西土城路25号","telephone":"","location":{"lng":116.35299063827,"lat":39.965030970199}},{"name":"中国政法大学第二食堂","address":"中国政法大学内","telephone":"(010)58909239","location":{"lng":116.24921054347,"lat":40.222576543978}},{"name":"中国政法大学教育基金会","address":"北京市昌平区府学路27号中国政法大学发展规划与学科建设处","telephone":"","location":{"lng":116.24644725331,"lat":40.221373328051}},{"name":"中国政法大学第三食堂","address":"中国政法大学内","telephone":"(010)58909239","location":{"lng":116.24803007412,"lat":40.225124575975}},{"name":"中国政法大学斋8号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24415272767,"lat":40.228174468919}},{"name":"中国政法大学网球场","address":"北京市昌平区","telephone":"","location":{"lng":116.24758460452,"lat":40.224478563352}},{"name":"中国政法大学斋3号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24457248447,"lat":40.227643933114}},{"name":"中国政法大学斋5号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24469236426,"lat":40.22806869573}},{"name":"中国政法大学一食堂","address":"昌平区府学路27号","telephone":"","location":{"lng":116.24644725331,"lat":40.221373328051}},{"name":"中国政法大学医院-急诊","address":"北京市昌平区","telephone":"(010)58909227","location":{"lng":116.24741989084,"lat":40.225225072479}},{"name":"中国政法大学劳动法诊所","address":"北京市海淀区西土城路25号学院路中国政法大学正门南侧北京教育工会","telephone":"(010)62228839,(010)62260586","location":{"lng":116.35299063827,"lat":39.965030970199}},{"name":"中国政法大学6号楼","address":"北京市海淀区","telephone":"","location":{"lng":116.35269469079,"lat":39.964343388009}},{"name":"中国政法大学家属宿舍1号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24682079899,"lat":40.227473354607}},{"name":"中国政法大学家属宿舍12号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24928000732,"lat":40.226237928008}},{"name":"中国政法大学学生公寓9号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24586346816,"lat":40.225280421793}},{"name":"中国政法大学家属宿舍3号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24673756909,"lat":40.226751947191}},{"name":"中国政法大学留学服务中心","address":"昌平校区,昌平区府学路27号中国政法大学国际交流中心a座116室","telephone":"(010)58909583","location":{"lng":116.24506055761,"lat":40.223043306022}},{"name":"中国政法大学家属宿舍9号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24957102235,"lat":40.227850561384}},{"name":"中国政法大学(昌平校区)-东门","address":"北京市昌平区","telephone":"","location":{"lng":116.2500601188,"lat":40.223015517488}},{"name":"中国政法大学(昌平校区)-南门","address":"府学路27号","telephone":"(010)58909162","location":{"lng":116.24646039879,"lat":40.221283593573}},{"name":"中国政法大学停车场-出入口","address":"西土城路25号","telephone":"","location":{"lng":116.35287300898,"lat":39.965059958376}},{"name":"中国政法大学家属宿舍4号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24683001235,"lat":40.226392287523}},{"name":"中国政法大学家属宿舍11号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24957080414,"lat":40.226810969839}},{"name":"中国政法大学家属宿舍6号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24843575441,"lat":40.227595741973}},{"name":"中国政法大学家属宿舍10号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24954213809,"lat":40.227493078518}},{"name":"中国政法大学家属宿舍2号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24671364831,"lat":40.227110380853}},{"name":"中国政法大学家属宿舍5号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24690402712,"lat":40.226012303052}},{"name":"中国政法大学家属宿舍8号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.2466679079,"lat":40.227806557541}},{"name":"中国政法大学家属宿舍7号楼","address":"北京市昌平区","telephone":"","location":{"lng":116.24796013057,"lat":40.227315176044}},{"name":"中国政法大学-继续教育学院","address":"西土城路25中国政法大学","telephone":"","location":{"lng":116.35062103162,"lat":39.966797340775}},{"name":"中国政法大学(昌平校区)-北门","address":"县城东关路","telephone":"","location":{"lng":116.24768034751,"lat":40.224745341156}},{"name":"中国政法大学运输服务中心","address":"北三环西路辅路明光北里(北二门)附近","telephone":"","location":{"lng":116.35164484944,"lat":39.967015005851}},{"name":"中国政法大学国际交流中心","address":"东关路5号院13号","telephone":"(010)59915588","location":{"lng":116.24821959932,"lat":40.225258846643}}]}} -------------------------------------------------------------------------------- /demo/YxdJson/JSON与数据集互转/JSON_DataSet_Serialize_2007.dproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | {cc48b93a-3e6b-4fe0-92f9-869afc3ef4c1} 5 | Debug 6 | AnyCPU 7 | DCC32 8 | ..\..\..\bin\JSON_DataSet_Serialize_2007.exe 9 | JSON_DataSet_Serialize_2007.dpr 10 | 11 | 12 | 7.0 13 | False 14 | False 15 | 0 16 | RELEASE 17 | 18 | 19 | 7.0 20 | DEBUG 21 | ..\..\..\dcu 22 | ..\..\..\dcu 23 | ..\..\..\dcu 24 | ..\..\..\bin 25 | ..\..\..\bin 26 | ..\..\..\dcu 27 | ..\..\..\source\;..\..\..\qdac\ 28 | ..\..\..\source\;..\..\..\qdac\ 29 | ..\..\..\source\;..\..\..\qdac\ 30 | ..\..\..\source\;..\..\..\qdac\ 31 | 32 | 33 | Delphi.Personality 34 | 35 | 36 | FalseTrueFalseFalseFalse1000FalseFalseFalseFalseFalse20529361.0.0.01.0.0.0 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | CodeGear C++Builder Office 2000 Servers Package 66 | CodeGear C++Builder Office XP Servers Package 67 | Microsoft Office 2000 Sample Automation Server Wrapper Components 68 | Microsoft Office XP Sample Automation Server Wrapper Components 69 | JSON_DataSet_Serialize_2007.dpr 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 'D:\Program Files\Autodesk\3ds Max 2014\' 78 | 'C:\ProgramData' 79 | 'D:\Program Files\Java\Android\android-sdk' 80 | 'D:\' 81 | 'C:\Users\Administrator\AppData\Roaming' 82 | 'd:\program files (x86)\codegear\rad studio\5.0' 83 | 'C:\Users\Public\Documents\RAD Studio\5.0' 84 | 'D:\My Documents\Documents\RAD Studio\Projects' 85 | 'D:\My Documents\Documents\RAD Studio\5.0' 86 | 'D:\Program Files\Java\jdk1.7.0\lib;D:\Program Files\Java\jdk1.7.0\lib\tools.jar' 87 | 'C:\Program Files (x86)\Common Files\Autodesk Shared\Materials\' 88 | 'C:\Program Files (x86)\Common Files' 89 | 'C:\Program Files (x86)\Common Files' 90 | 'C:\Program Files\Common Files' 91 | 'YANGYXD-HOME' 92 | 'C:\Windows\system32\cmd.exe' 93 | 'd:\program files (x86)\codegear\rad studio\5.0' 94 | 'C:\Program Files (x86)\Microsoft DirectX SDK (March 2009)\' 95 | 'NO' 96 | 'C:' 97 | '\Users\Administrator' 98 | 'C:\Program Files (x86)\Common Files\Autodesk Shared\Materials\' 99 | 'C:\Program Files (x86)\Common Files\Autodesk Shared\Materials\' 100 | 'D:\Program Files\Java\jdk1.7.0' 101 | 'C:\Users\Administrator\AppData\Local' 102 | '\\YANGYXD-HOME' 103 | '8' 104 | 'Windows_NT' 105 | 'C:\Program Files\Common Files\Microsoft Shared\Windows Live;d:\Program Files (x86)\CodeGear\RAD Studio\5.0\bin;C:\Users\Public\Documents\RAD Studio\5.0\Bpl;C:\Program Files (x86)\NVIDIA Corporation\PhysX\Common;C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program Files (x86)\Common Files\Thunder Network\KanKan\Codecs;C:\Program Files (x86)\Microsoft SQL Server\100\Tools\Binn\;C:\Program Files\Microsoft SQL Server\100\Tools\Binn\;C:\Program Files\Microsoft SQL Server\100\DTS\Binn\;D:\Program Files\Java\jdk1.7.0\bin;D:\Program Files\Java\jdk1.7.0\jre\bin;D:\Program Files\Java\Android\android-sdk\tools;D:\Program Files\Java\Android\android-sdk\;D:\Program Files\Java\Android\android-sdk\platform-tools;C:\Program Files (x86)\Common Files\Autodesk Shared\;C:\Program Files (x86)\backburner 2\;C:\Program Files\Common Files\Autodesk Shared\;C:\Program Files (x86)\Autodesk\Backburner\;C:\Program Files (x86)\Microsoft SQL Server\100\Tools\Binn\VSShell\Common7\IDE\;C:\Program Files (x86)\Microsoft SQL Server\100\DTS\Binn\;C:\Program Files (x86)\Microsoft Visual Studio 9.0\Common7\IDE\PrivateAssemblies\;C:\Users\Public\Documents\Embarcadero\Studio\14.0\Bpl;%CommonProgramFiles%\Microsoft Shared\Windows Live;C:\Users\Public\Documents\RAD Studio\5.0\Bpl' 106 | '.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC' 107 | 'x86' 108 | 'AMD64' 109 | 'Intel64 Family 6 Model 58 Stepping 9, GenuineIntel' 110 | '6' 111 | '3a09' 112 | 'C:\ProgramData' 113 | 'C:\Program Files (x86)' 114 | 'C:\Program Files (x86)' 115 | 'C:\Program Files' 116 | 'C:\Windows\system32\WindowsPowerShell\v1.0\Modules\' 117 | 'C:\Users\Public' 118 | 'Console' 119 | 'C:' 120 | 'C:\Windows' 121 | 'C:\Users\ADMINI~1\AppData\Local\Temp' 122 | 'C:\Users\ADMINI~1\AppData\Local\Temp' 123 | 'YANGYXD-HOME' 124 | 'Administrator' 125 | 'C:\Users\Administrator' 126 | 'D:\Program Files\Microsoft Visual Studio 10.0\Common7\Tools\' 127 | 'C:\Windows' 128 | '3' 129 | 'C:\BVTBin\Tests\installpackage\csilogfile.log' 130 | 131 | 132 | 133 | 134 | 135 | 136 | MainSource 137 | 138 | 139 |
Form1
140 | 141 | 142 | 143 | --------------------------------------------------------------------------------