Add(MainForm,14842589,462,245)
{
 @Color=15592941
 Left=20
 Top=105
 Width=782
 Height=290
 Caption="SQLite_with_SQLiteDataSource"
 BorderStyle=1
 Position=1
 link(onCreate,10857796:doOpen,[])
}
Add(DS_SQLite,10857796,504,259)
{
 @Color=15592941
 Name="db"
 link(onOpen,12881291:doExec,[])
}
Add(DSC_Query,11075216,679,224)
{
 @Color=15592941
 SQL="SELECT color,mid AS "MapId",loc AS "Локация",obj AS "Объект",x ,y ,z FROM "db"; -- WHERE obj="Горный серебряный шалфей";"
 DSManager="db"
 link(onQuery,15928964:doAddRow,[])
 link(onColumns,7336881:doEvent1,[(719,237)(719,244)])
}
Add(MST_DB,15928964,763,224)
{
 @Color=15592941
 MSTControl="mtst"
 Point(doClearAll)
}
Add(DSC_Exec,12881291,546,259)
{
 @Hint=#19:Создание таблицы БД|
 @Color=15592941
 SQL="PRAGMA page_size=8192;\r\nPRAGMA synchronous=0;\r\nCREATE TABLE IF NOT EXISTS db (\r\n color int NULL,\r\n id TEXT  NULL,\r\n mid int(3) NULL,\r\n loc TEXT  NULL,\r\n obj TEXT  NULL,\r\n x TEXT  NULL,\r\n y TEXT  NULL,\r\n z TEXT  NULL);"
 DSManager="db"
 link(onExec,13766098:doExec,[])
 AddHint(-106,47,129,13,@Hint)
}
Add(HTTPClient,6804313,371,133)
{
 @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,[(408,146)(408,153)])
}
Add(Str_Enum,3200969,413,147)
{
 @Color=15592941
 Delimiter="_"
 From=0
 link(onEnum,13426578:doWork,[])
 link(onEndEnum,9402840:doData,[(451,160)(451,188)])
}
Add(DSC_Exec,9164852,588,189)
{
 @Color=15592941
 DSManager="db"
 link(onExec,14968106:doEvent1,[])
 link(SQL,15589579:Text,[])
}
Add(Hub,14968106,644,189)
{
 @Color=15592941
 OutCount=3
 link(onEvent1,15160768:doQuery,[])
 link(onEvent2,11075216:doQuery,[(674,202)(674,230)])
 link(onEvent3,13741915:doColAction,[(668,209)(668,265)])
}
Add(MTStrTbl,3870454,763,259)
{
 @Color=15592941
 Width=766
 Height=218
 Align=2
 Font=[Courier New,8,0,0,204]
 Name="mtst"
 Layout="vert_1"
 HeightScale=100
 NColorRow=0
 FlatScroll=1
 ColDelimiter="_"
 ColumnClick=1
 ColorItems=0
 Redaction=0
 Grid=0
}
Add(Hub,3721012,350,126)
{
 @Color=15592941
 link(onEvent1,13219569:doData,[])
 link(onEvent2,6804313:doLoadString,[])
}
Add(DoData,13219569,504,126)
{
 @Color=15592941
 Data=String(BEGIN TRANSACTION;)
 link(onEventData,2915680:doWork1,[(571,132)])
}
Add(DoData,9402840,504,182)
{
 @Color=15592941
 Data=String(COMMIT;)
 link(onEventData,16773688:doEvent1,[])
}
Add(HubEx,2915680,567,147)
{
 link(onEvent,15589579:doAdd,[])
}
Add(MST_ColAction,13741915,679,259)
{
 @Color=15592941
 Action=9
 MaxColWidth=200
 Index=-1
 MSTControl="mtst"
 Point(doMaxColWidth)
}
Add(DSC_Query,15160768,679,189)
{
 @Color=15592941
 SQL="SELECT "Добавлено строк: "||count() FROM "db";"
 DSManager="db"
 link(onQuery,10980088:doText,[])
}
Add(Label,10980088,763,189)
{
 @Color=15592941
 Left=105
 Top=226
 Width=180
 Font=[Courier New,10,1,0,204]
 Caption=""
 AutoSize=1
}
Add(Button,11711076,308,126)
{
 @Color=15592941
 Left=5
 Top=224
 link(onClick,3721012:doEvent1,[])
}
Add(DSC_Exec,13766098,588,259)
{
 @Color=15592941
 SQL="VACUUM;"
 DSManager="db"
}
Add(StrList,15589579,588,147)
{
 @Color=15592941
}
Add(Hub,16773688,546,182)
{
 @Color=15592941
 link(onEvent1,2915680:doWork3,[(571,188)])
 link(onEvent2,9164852:doExec,[])
}
Add(InlineCode,13426578,462,147)
{
 @Color=15592941
 WorkPoints=#6:doWork|
 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 |47:	Procedure doWork(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|38:// ----------Work Procedures----------|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;|0:|4:end.|
 link(onRes,2915680:doWork2,[])
}
Add(Hub,7336881,735,238)
{
 @Color=15592941
 link(onEvent1,15928964:doClearAll,[])
 link(onEvent2,15928964:doAddCols,[(756,251)(756,237)])
}