Вверх ↑
Разработчик
Ответов: 26306
Рейтинг: 2146
#1: 2013-03-15 10:39:40 ЛС | профиль | цитата
Gunnman писал(а):
Обнаружил глюк TCP клиента

Это не глюк TCP_Client-a, это попытка его запуска из другого потока. Лечится вот так, самый наипростейший вариант

Add(MainForm,3094849,133,175)
{
Width=269
Height=302
}
Add(WinExec,13416984,287,175)
{
FileName="ping.exe"
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,6943849:doNext,[])
}
Add(HTTP_PostBuilder,1109224,434,182)
{
URL="/downloads.php"
Host="php.net"
link(onBuild,985665:doEvent1,[])
}
Add(TCP_Client,10808638,532,182)
{
Port=80
IP="69.147.83.199"
link(onRead,217000:doAdd,[])
}
Add(Hub,985665,483,182)
{
link(onEvent1,10808638:doOpen,[])
link(onEvent2,10808638:doSend,[(515,195)(515,202)])
}
Add(Memo,217000,588,182)
{
Left=20
Top=45
Height=195
}
Add(CounterEx,6943849,336,182)
{
link(onNext,5949645:doCompare,[])
}
Add(If_else,5949645,385,182)
{
Op2=String(2)
link(onTrue,1109224:doBuild,[])
}
Add(Button,16647454,224,175)
{
Left=20
Top=20
Caption="1"
link(onClick,13416984:doConsoleExec,[(272,181)(272,195)])
}
Add(HTTP_PostBuilder,5381180,301,280)
{
URL="/downloads.php"
Host="php.net"
link(onBuild,5690273:doEvent1,[])
}
Add(TCP_Client,16466663,399,280)
{
Port=80
IP="69.147.83.199"
link(onRead,7685173:doAdd,[])
}
Add(Hub,5690273,350,280)
{
link(onEvent1,16466663:doOpen,[])
link(onEvent2,16466663:doSend,[(382,293)(382,300)])
}
Add(Memo,7685173,469,280)
{
Left=140
Top=45
Height=195
}
Add(Button,4347869,224,280)
{
Left=140
Top=20
Caption="2"
link(onClick,5381180:doBuild,[])
}
Add(TCP_Server,10138576,70,175)
{
@Hint=#13:Пустой сервер|
AddHint(47,-32,90,13,@Hint)
}


Вот только почему это работает я без понятия, так что, не спрашивай
карма: 22

0