nesco писал(а):
используешь *.dll или OBJ------------ Дoбавленo:
Решил(обошел) проблему следующим образом:
Add(SQLite_DB,7391133,392,128)
{
FileName="test1.db"
link(onOpen,9535213:doWork2,[])
}
Add(Hub,12917297,332,175)
{
OutCount=4
link(onEvent1,7391133:doOpen,[(353,181)(353,134)])
link(onEvent2,10327575:doExec,[])
link(onEvent3,10877364:doFor,[(369,195)(369,227)])
link(onEvent4,7391133:doClose,[(360,202)(360,141)])
}
Add(SQLite_Exec,10327575,392,182)
{
SQL="CREATE TABLE test (test_value)"
link(dbHandle,4295391:Var2,[])
}
Add(SQLite_Exec,11374054,437,221)
{
SQL="INSERT INTO test VALUES('www')"
link(dbHandle,4295391:Var3,[(443,170)])
}
Add(For,10877364,391,221)
{
End=100
link(onEvent,11374054:doExec,[])
link(onStop,4007593:doWork2,[(478,234)(478,141)])
}
Add(GetDataEx,4295391,385,161)
{
link(Data,7391133:dbHandle,[])
}
Add(Button,14901682,267,175)
{
Left=20
Top=15
Width=160
Caption="Записать 100 отдельно"
link(onClick,12917297:doEvent1,[])
}
Add(TimeCounter,7687750,658,128)
{
link(onStop,10959291:doAdd,[])
}
Add(HubEx,9535213,519,121)
{
link(onEvent,7687750:doStart,[])
}
Add(HubEx,4007593,527,128)
{
link(onEvent,7687750:doStop,[])
}
Add(SQLite_DB,14689953,446,317)
{
FileName="test2.db"
link(onOpen,9535213:doWork3,[(523,323)])
}
Add(Hub,13228450,386,364)
{
OutCount=4
link(onEvent1,14689953:doOpen,[(407,370)(407,323)])
link(onEvent2,9880347:doExec,[])
link(onEvent3,6652912:doEvent1,[(426,384)(426,426)])
link(onEvent4,14689953:doClose,[(414,391)(414,330)])
}
Add(SQLite_Exec,9880347,446,371)
{
SQL="CREATE TABLE test (test_value)"
link(dbHandle,14405165:Var2,[])
}
Add(SQLite_Exec,4798139,699,434)
{
link(dbHandle,14405165:Var3,[(705,359)])
}
Add(For,1179187,546,427)
{
End=100000
link(onEvent,10553985:doData,[])
link(onStop,12490689:doString,[])
}
Add(GetDataEx,14405165,439,350)
{
link(Data,14689953:dbHandle,[])
}
Add(Button,3708587,271,364)
{
Left=20
Top=45
Width=160
Caption="Записать 100.000 пакетом"
link(onClick,13228450:doEvent1,[])
}
Add(StrList,9583056,649,378)
{
}
Add(Hub,6652912,495,420)
{
OutCount=3
link(onEvent1,9583056:doClear,[(525,426)(525,391)])
link(onEvent2,1179187:doFor,[])
link(onEvent3,4007593:doWork3,[(531,440)])
}
Add(DoData,10553985,595,427)
{
Data=String(INSERT INTO test VALUES('www');)
link(onEventData,9583056:doAdd,[(638,433)(638,384)])
}
Add(FormatStr,12490689,649,434)
{
DataCount=1
Mask="BEGIN;\r\n%1\r\nCOMMIT;"
link(onFString,4798139:doExec,[])
link(Str1,9583056:Text,[])
}
Add(ListBox,10959291,705,135)
{
Left=190
Top=14
Width=130
Height=50
}