------------ Дoбавленo:
tsdima, кстати, проверь этот юнит в динамических мультиках, создав N количество TCP серверов c разными портами, у меня ни один не захотел работать. Коннекты создаются, сервера видят клиентов, но ничего никуда не передается.
------------ Дoбавленo:
Вот пример, который работает со старым юнитом TCP, и не работает с новым
Add(MainForm,12550039,168,112)
{
link(onCreate,5550405:doEnum,[])
}
Add(MultiElementEx,9100479,357,126)
{
Mode=1
link(onRead,2035752:doAdd,[(415,132)(415,111)])
link(onConnect,3008540:doAdd,[(415,139)(415,181)])
}
BEGIN_SDK
Add(EditMultiEx,2923648,21,21)
{
WorkCount=#5:##add|
EventCount=#6:onRead|9:onConnect|
Point(##add)
link(##add,4816290:doEvent1,[(53,27)(53,48)])
}
Add(TCP_Server,6315885,147,126)
{
link(onRead,2923648:onRead,[(250,132)(250,27)])
link(onConnect,235507:doString,[])
link(Port,1425605:Var2,[])
}
Add(Memory,14877717,154,42)
{
}
Add(Hub,4816290,84,42)
{
link(onEvent1,14877717:doValue,[])
link(onEvent2,6315885:doOpen,[(132,55)(132,132)])
}
Add(FormatStr,235507,196,133)
{
Mask="%1 : %2"
link(onFString,2923648:onConnect,[(274,139)(274,34)])
link(Str2,1425605:Var3,[(209,100)])
}
Add(GetDataEx,1425605,147,91)
{
link(Data,14877717:Value,[])
}
END_SDK
Add(ListBox,3370850,252,49)
{
Left=10
Top=10
Width=120
Height=120
Strings=#4:7777|4:7766|
}
Add(Timer,3877434,154,294)
{
link(onTimer,16267695:doEvent1,[])
}
Add(ListBox,3008540,441,175)
{
Left=135
Top=10
Width=120
Height=120
}
Add(TCP_Client,11266538,350,280)
{
Port=7777
IP="127.0.0.1"
}
Add(Button,6750435,266,252)
{
Left=10
Top=180
Caption="7777"
link(onClick,11266538:doOpen,[(324,258)(324,286)])
}
Add(Button,3770758,266,378)
{
Left=10
Top=205
Caption="7766"
link(onClick,3241516:doOpen,[])
}
Add(Hub,16267695,210,294)
{
link(onEvent1,8827271:doData,[])
link(onEvent2,1127214:doData,[(254,307)(254,342)])
}
Add(DoData,8827271,266,294)
{
Data=String(7777)
link(onEventData,11266538:doSend,[])
}
Add(DoData,1127214,266,336)
{
Data=String(7766)
link(onEventData,3241516:doSend,[(324,342)(324,398)])
}
Add(TCP_Client,3241516,350,378)
{
Port=7766
IP="127.0.0.1"
}
Add(ArrayEnum,5550405,266,126)
{
link(onItem,9100479:##add,[])
link(Array,3370850:Array,[])
}
Add(ListBox,2035752,441,105)
{
Left=135
Top=135
Width=120
Height=120
}