Вверх ↑
Ответов: 1429
Рейтинг: 50
#1: 2010-07-13 19:21:03 ЛС | профиль | цитата
В общем крах. Все намного сложнее сделать, чем казалось.


Add(MainForm,2953706,84,154)
{
}
Add(If_else,5642440,238,210)
{
Op2=Integer(0)
link(onTrue,5943869:doCompare,[])
link(Op1,13330092:Active,[])
}
Add(Timer,14362227,196,210)
{
Interval=5000
link(onTimer,5642440:doCompare,[])
}
Add(Message,15996577,357,210)
{
}
Add(Hub,12827021,322,210)
{
link(onEvent1,15996577:doMessage,[])
link(onEvent2,9892066:doEvent2,[(348,223)(348,254)(186,254)(186,167)])
}
Add(If_else,5943869,280,210)
{
Type=1
Op2=Integer(5)
link(onTrue,12827021:doEvent1,[])
link(Op1,13910297:Count,[(286,190)(314,190)])
}
Add(Thread,9862538,147,154)
{
link(onExec,9892066:doEvent1,[])
}
Add(Hub,9892066,210,154)
{
InCount=2
link(onEvent1,13330092:doOpen,[])
link(onEvent2,13330092:doSend,[(231,167)(231,174)])
}
Add(TCP_Client,13330092,238,154)
{
Port=80
Point(onError)
link(onRead,13910297:doAdd,[(284,160)(284,132)])
}
Add(StrList,13910297,301,126)
{
}



Эта схема, работает правильно, пока не появится инет, а потом начинает слать запросы по кругу (хотя по схеме должна перестать по условию появления новых строк ответа в документе)
В общем может кто-то раздуплит точку onError для компиляции, и выложит код?


------------ Дoбавленo в 19.21:
Thread нужен был чтобы не залипал интерфейс проги.
карма: 0

0