Вверх ↑
Ответов: 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