Master4eG писал(а): Теперь интересно сколько потребуется времени программе для дешифрования 9670 строк А зачем шифровать ? Add(MainForm,14842589,154,119) { @Color=15592941 Left=20 Top=105 Width=755 Height=358 Caption="SQLite_with_SQLiteDataSource" BorderStyle=1 Position=1 Point(onClose) link(onCreate,10857796:doOpen,[]) link(onClose,10857796:doClose,[]) } Add(DS_SQLite,10857796,196,133) { @Color=15592941 Name="db" link(onOpen,12881291:doExec,[]) } Add(DSC_Exec,12881291,238,133) { @Hint=#19:Создание таблицы БД| @Color=15592941 SQL="PRAGMA page_size=8192;\r\nPRAGMA synchronous=0;\r\nCREATE TABLE IF NOT EXISTS db (\r\n color INTEGER,\r\n id TEXT,\r\n mid INTEGER,\r\n loc TEXT,\r\n obj TEXT,\r\n x REAL,\r\n y REAL,\r\n z REAL);" DSManager="db" link(onExec,13766098:doExec,[]) AddHint(-106,47,129,13,@Hint) } Add(HTTPClient,6804313,364,140) { @Color=15592941 URL="ff.zzz.com.ua/load2.php" Method=1 FileName="aaaaaaa.txt" EncType=1 PostData="k=1000\r\nrealm=WoW Circle x1 PvE Virgin " Point(PostData) link(onFinish,3200969:doEnum,[]) } Add(Str_Enum,3200969,406,147) { @Color=15592941 Delimiter="_" From=0 link(onEnum,13426578:doWork,[]) link(onEndEnum,7313486:doEvent1,[]) } Add(DSC_Exec,9164852,532,182) { @Color=15592941 DSManager="db" link(onExec,14968106:doEvent1,[]) link(SQL,15589579:Text,[]) } Add(Hub,14968106,574,182) { @Color=15592941 OutCount=3 link(onEvent1,15589579:doClear,[(599,188)(599,127)(520,127)(520,153)]) link(onEvent2,2716119:doWork1,[]) } Add(MTStrTbl,3870454,602,140) { @Color=15592941 Top=34 Width=749 Height=296 Align=5 Font=[Courier New,8,0,0,204] Name="mtst" Layout="vert_1" HeightScale=100 Columns=#8:MapId_50|17: Локация_180|16: Объект_180|10: X_100|10: Y_100|10: Z_100|0:| NColorRow=0 FlatScroll=1 ColDelimiter="_" ColumnClick=1 ColorItems=0 Grid=0 } Add(Hub,3721012,322,133) { @Color=15592941 link(onEvent1,13426578:doStart,[(417,139)(417,146)]) link(onEvent2,6804313:doLoadString,[]) } Add(DSC_Exec,13766098,280,133) { @Color=15592941 SQL="VACUUM;" DSManager="db" link(onExec,3721012:doEvent1,[]) } Add(StrList,15589579,532,140) { @Color=15592941 } Add(InlineCode,13426578,476,140) { @Color=15592941 WorkPoints=#7:doStart|6:doWork|5:doEnd| EventPoints=#5:onRes| Code=#15:unit HiAsmUnit;|17:// Tad 29.12.2018|9:interface|0:|40:uses windows,kol,Share,Debug, hiCharset;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|15:// Event Points|19: onRes : THI_Event;|0:|15:// Work Points |51: Procedure doStart(var _Data:TData; Index:word);|47: Procedure doWork(var _Data:TData; Index:word);|49: Procedure doEnd(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|38:// ----------Work Procedures----------|31:Procedure THiAsmClass.doStart;|5:begin|44: _hi_onEvent(onRes, 'BEGIN TRANSACTION;');|4:end;|30:Procedure THiAsmClass.doWork;|13:var s:String;|14: i:integer;|5:BEGIN|9: s := '';|22: s := toString(_Data);|21: if s>'""' then begin|40: s := CodePage1ToCodePage2(s, 65001, 0);|16: i := length(s);|20: s := copy(s,2,i-2);|29: replace(s, ''',''' , '","');|60: _hi_onEvent(onRes, 'INSERT INTO "db" values ("'+s+'");' ); |5: end;|4:END;|29:Procedure THiAsmClass.doEnd;|5:begin|32: _hi_onEvent(onRes,'COMMIT;');|4:end;|4:end.| link(onRes,15589579:doAdd,[]) } Add(Hub,7313486,448,154) { link(onEvent1,13426578:doEnd,[]) link(onEvent2,9164852:doExec,[(470,167)(470,188)]) } Add(ChildPanel,2716119,602,189) { } BEGIN_SDK Add(EditMulti,16505193,21,21) { WorkCount=1 Width=601 Height=319 link(doWork1,2331916:doEvent1,[(35,27)(35,48)]) } Add(Panel,13615632,35,126) { Width=749 Height=34 Align=2 } Add(ComboBox,13558662,140,49) { Left=5 Top=10 Width=50 Height=21 ReadOnly=0 DropDownCount=30 Point(EditText) link(onClick,4194360:doEvent1,[(184,62)(184,83)(107,83)(107,104)]) } Add(DSC_Query,15373583,91,49) { @Color=15592941 SQL="SELECT DISTINCT mid from "db" ORDER BY mid;" DSManager="parent.db" link(onQuery,13558662:doAdd,[]) link(onColumns,13558662:doClear,[]) } Add(DSC_Query,6627132,203,98) { @Color=15592941 DSManager="parent.db" link(onQuery,15980418:doAdd,[]) link(onColumns,15980418:doClear,[]) } Add(FormatStr,4355605,154,98) { Mask="SELECT DISTINCT loc from "db" WHERE mid=%1 ORDER BY loc;" link(onFString,6627132:doQuery,[]) link(Str1,6299232:Var2,[]) } Add(InfoTip,7096437,441,49) { Info=#13: mid INTEGER,|10: loc TEXT,|10: obj TEXT,|8: x REAL,|8: y REAL,|9: z REAL);| HAlign=0 Width=99 Height=95 Margin=5 } Add(ComboBox,15980418,266,98) { Left=60 Top=10 Width=175 Height=21 ReadOnly=0 DropDownCount=30 Point(EditText) link(onClick,14052151:doEvent1,[(314,111)(314,134)(234,134)(234,153)]) } Add(DSC_Query,7578283,322,147) { @Color=15592941 DSManager="parent.db" link(onQuery,1741598:doAdd,[]) link(onColumns,1741598:doClear,[]) } Add(FormatStr,5823624,273,147) { Mask="SELECT DISTINCT obj from "db" WHERE mid=%1 AND loc="%2" ORDER BY obj;" link(onFString,7578283:doQuery,[]) link(Str1,10956180:Var2,[]) link(Str2,14757739:Var2,[]) } Add(ComboBox,1741598,385,147) { Left=240 Top=10 Width=175 Height=21 ReadOnly=0 DropDownCount=30 Point(EditText) link(onClick,8272221:doWork1,[(429,160)(429,183)(347,183)]) } Add(GetDataEx,6299232,154,84) { link(Data,13558662:EditText,[]) } Add(Hub,4194360,119,98) { InCount=2 link(onEvent1,4355605:doString,[]) link(onEvent2,14052151:doEvent2,[(141,111)(141,160)]) } Add(Hub,14052151,245,147) { InCount=2 link(onEvent1,5823624:doString,[]) link(onEvent2,8272221:doWork2,[(270,160)(270,209)]) } Add(Hub,2331916,56,42) { OutCount=3 link(onEvent1,15160768:doQuery,[]) link(onEvent2,15373583:doQuery,[]) link(onEvent3,4194360:doEvent2,[(85,62)(85,111)]) } Add(FormatStr,13546276,364,203) { DataCount=3 Mask="SELECT color,mid,loc,obj,x ,y ,z FROM "db" \r\nWHERE (mid=%2) AND (loc="%1") AND (obj="%3");" link(onFString,12725973:doEvent1,[]) link(Str1,14757739:Var3,[(370,138)]) link(Str2,10956180:Var3,[(377,89)]) link(Str3,1741598:EditText,[(384,191)(405,191)]) } Add(DSC_Query,11460489,497,203) { @Color=15592941 DSManager="parent.db" link(onQuery,13018456:doAddRow,[(562,209)(562,202)]) link(onColumns,13018456:doClear,[]) } Add(MST_DB,13018456,574,196) { @Color=15592941 MSTControl="parent.mtst" Point(doClear) } Add(MST_ColAction,16341381,441,210) { @Color=15592941 Action=9 MaxColWidth=200 Index=-1 MSTControl="parent.mtst" Point(doMaxColWidth) } Add(GetDataEx,14757739,280,133) { link(Data,15980418:EditText,[]) } Add(GetDataEx,10956180,273,84) { Angle=3 link(Data,6299232:Var3,[]) } Add(Hub,12725973,399,203) { OutCount=3 link(onEvent1,11460489:doQuery,[]) link(onEvent3,6053887:doText,[(425,223)(425,251)]) } Add(HubEx,8272221,343,203) { link(onEvent,13546276:doString,[]) } Add(DSC_Query,15160768,203,42) { @Color=15592941 SQL="SELECT "Записей в базе: "||count() FROM "db";" DSManager="parent.db" link(onQuery,10980088:doText,[]) } Add(Label,10980088,273,42) { @Color=15592941 Left=420 Top=14 Width=180 Font=[Courier New,10,1,0,204] Caption="" AutoSize=1 } Add(Label,6053887,574,245) { Left=690 Top=10 Width=43 Height=20 Font=[MS Sans Serif,10,1,255,1] link(Text,13018456:Count,[]) } END_SDK
Редактировалось 2 раз(а), последний 2018-12-31 17:23:18
|