Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2018-12-28 20:13:17 ЛС | профиль | цитата
Минутку
Попробуй это.
Перезалил
Add(MainForm,14842589,308,119)
{
 Left=20
 Top=105
 Width=876
 Height=496
 Caption="SQLite_with_SQLiteDataSource"
 Position=1
}
Add(DS_SQLite,10857796,441,133)
{
 Name="db"
 link(onOpen,12881291:doExec,[])
}
Add(DSC_Query,11075216,833,245)
{
 SQL="SELECT color,mid ,loc ,obj ,x ,y ,z FROM "db";"
 DSManager="db"
 link(onQuery,15928964:doAddRow,[])
}
Add(MST_DB,15928964,882,245)
{
 MSTControl="mtst"
}
Add(DSC_Exec,12881291,504,133)
{
 @Hint=#19:Создание таблицы БД|
 @Color=5636010
 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);\r\n"
 DSManager="db"
 link(onExec,3721012:doEvent1,[])
 AddHint(-64,-39,129,13,@Hint)
}
Add(HTTPClient,6804313,602,140)
{
 URL="ff.zzz.com.ua/load2.php"
 Method=1
 EncType=1
 PostData="k=1000\r\nrealm=WoW Circle x1 PvE Virgin "
 Point(PostData)
 link(onFinish,2930276:doCharset,[])
}
Add(Charset,2930276,658,147)
{
 Type=7
 link(onCharset,3200969:doEnum,[])
}
Add(FormatStr,2243243,833,147)
{
 DataCount=1
 Mask="INSERT INTO "db" VALUES(%1);"
 link(onFString,2915680:doWork2,[])
}
Add(Str_Enum,3200969,714,147)
{
 Delimiter="_"
 From=0
 link(onEnum,2243243:doString,[])
 link(onEndEnum,14968106:doEvent1,[(768,160)(768,237)])
}
Add(DSC_Exec,9164852,889,147)
{
 DSManager="db"
}
Add(Button,4618125,308,161)
{
 Left=70
 Top=230
 Caption="Load"
 link(onClick,9796737:doStart,[(352,167)(352,139)])
}
Add(Message,10730767,308,203)
{
}
Add(Hub,14968106,791,231)
{
 OutCount=3
 link(onEvent1,9402840:doData,[(819,237)(819,202)])
 link(onEvent2,9796737:doStop,[(926,244)(926,283)(357,283)(357,146)])
 link(onEvent3,11075216:doQuery,[])
}
Add(TimeCounter,9796737,378,133)
{
 link(onStart,10857796:doOpen,[])
 link(onStop,8113786:doEvent1,[(422,146)(422,105)(175,105)(175,125)])
}
Add(Hub,8113786,196,119)
{
 link(onEvent1,14842589:doCaption,[])
 link(onEvent2,13152047:doStrCat,[(228,132)(228,209)])
}
Add(StrCat,13152047,238,203)
{
 Str1="Добавлено строк - "
 link(onStrCat,10730767:doMessage,[])
 link(Str2,3870454:Count,[])
}
Add(MTStrTbl,3870454,231,147)
{
 Width=860
 Height=183
 Align=2
 Name="mtst"
 Layout="vert_1"
 HeightScale=100
 Columns=#8:MapID_50|11:Локация_120|10:Объект_120|4:X_80|4:Y_80|4:Z_80|
 NColorRow=0
 FlatScroll=1
 ColDelimiter="_"
 ColumnClick=1
 ColorItems=0
}
Add(Hub,3721012,553,133)
{
 link(onEvent1,13219569:doData,[(579,139)(579,111)])
 link(onEvent2,6804313:doLoadString,[])
}
Add(DoData,13219569,833,105)
{
 @Color=5636010
 Data=String(BEGIN TRANSACTION;)
 link(onEventData,2915680:doWork1,[(872,111)])
}
Add(DoData,9402840,833,196)
{
 @Color=5636010
 Data=String(COMMIT;)
 link(onEventData,2915680:doWork3,[(872,202)])
}
Add(HubEx,2915680,868,147)
{
 link(onEvent,9164852:doExec,[])
}

Нет у меня HTTPClient
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 4 раз(а), последний 2018-12-28 20:40:02