Add(Button,5921940,98,126)
{
Left=20
Top=15
Width=75
TabOrder=-1
Caption="Open"
link(onClick,2859817:doOpen,[])
}
Add(Button,823836,98,168)
{
Left=20
Top=40
Width=75
TabOrder=-1
Caption="Close"
link(onClick,638543:doEvent1,[])
}
Add(TCP_Server,2859817,378,126)
{
Port=1001
DataType=3
Point(doCloseAll)
link(onConnect,11389349:doStrCat,[])
}
Add(ListBox,14852958,490,133)
{
Left=120
Top=15
Width=190
Height=145
}
Add(StrCat,11389349,434,133)
{
Str1="Connect: "
link(onStrCat,14852958:doAdd,[])
}
Add(Hub,638543,322,168)
{
link(onEvent1,2859817:doClose,[(343,174)(343,139)])
link(onEvent2,2859817:doCloseAll,[(357,181)(357,153)])
}
Add(Button,7965889,98,224)
{
Left=20
Top=65
Width=75
TabOrder=-1
Caption="SendClient"
Data=String(Massage)
link(onClick,15438237:doValue,[])
}
Add(ZLIB,8458001,301,224)
{
link(onStream,2859817:doSend,[(364,230)(364,146)])
}
Add(StreamPack,11782964,252,224)
{
DataCount=#5:index|4:data|
link(onPack,8458001:doCompress,[])
link(data,15438237:Value,[(265,212)(241,212)(241,269)(153,269)])
}
Add(MainForm,3742575,98,301)
{
Width=544
Height=370
link(onCreate,10931186:doStart,[])
}
Add(TCP_Client,12500207,217,315)
{
Port=1001
IP="127.0.0.1"
DataType=3
link(onRead,15802967:doDeCompress,[])
link(onConnect,10931186:doStop,[(261,328)(261,368)(157,368)(157,328)])
}
Add(Thread,10931186,168,315)
{
Delay=0
link(onExec,12500207:doOpen,[])
}
Add(Message,2796692,476,308)
{
}
Add(ZLIB,15802967,280,308)
{
link(onStream,9227562:doUnPack,[])
}
Add(StreamUnPack,9227562,336,308)
{
DataCount=#5:index|4:data|
link(onUnPack,15654783:doEvent,[])
}
Add(ChanelToIndex,14026521,196,224)
{
Count=3
link(onIndex,11782964:doPack,[])
}
Add(Memory,15438237,147,224)
{
link(onData,14026521:doWork1,[])
}
Add(IndexToChanel,15654783,392,308)
{
Point(Index)
Point(Data)
link(onEvent1,2796692:doMessage,[])
link(Index,9227562:index,[(398,287)(382,287)(382,359)(342,359)])
link(Data,9227562:data,[(405,296)(377,296)(377,352)(349,352)])
}
А если по раздельности, не работает...
Add(Button,5921940,98,126)
{
Left=20
Top=15
Width=75
TabOrder=-1
Caption="Open"
link(onClick,2859817:doOpen,[])
}
Add(Button,823836,98,168)
{
Left=20
Top=40
Width=75
TabOrder=-1
Caption="Close"
link(onClick,638543:doEvent1,[])
}
Add(TCP_Server,2859817,378,126)
{
Port=1001
DataType=3
Point(doCloseAll)
link(onConnect,11389349:doStrCat,[])
}
Add(ListBox,14852958,490,133)
{
Left=120
Top=15
Width=190
Height=145
}
Add(StrCat,11389349,434,133)
{
Str1="Connect: "
link(onStrCat,14852958:doAdd,[])
}
Add(Hub,638543,322,168)
{
link(onEvent1,2859817:doClose,[(343,174)(343,139)])
link(onEvent2,2859817:doCloseAll,[(357,181)(357,153)])
}
Add(Button,7965889,98,224)
{
Left=20
Top=65
Width=75
TabOrder=-1
Caption="SendClient"
Data=String(Massage)
link(onClick,15438237:doValue,[])
}
Add(ZLIB,8458001,301,224)
{
link(onStream,2859817:doSend,[(364,230)(364,146)])
}
Add(StreamPack,11782964,252,224)
{
DataCount=#5:index|4:data|
link(onPack,8458001:doCompress,[])
link(data,15438237:Value,[(265,212)(241,212)(241,269)(153,269)])
}
Add(ChanelToIndex,14026521,196,224)
{
Count=3
link(onIndex,11782964:doPack,[])
}
Add(Memory,15438237,147,224)
{
link(onData,14026521:doWork1,[])
}
Add(MainForm,3742575,98,301)
{
Width=544
Height=370
link(onCreate,10931186:doStart,[])
}
Add(TCP_Client,12500207,217,315)
{
Port=1001
IP="127.0.0.1"
DataType=3
link(onRead,15802967:doDeCompress,[])
link(onConnect,10931186:doStop,[(261,328)(261,368)(157,368)(157,328)])
}
Add(Thread,10931186,168,315)
{
Delay=0
link(onExec,12500207:doOpen,[])
}
Add(Message,2796692,476,308)
{
}
Add(ZLIB,15802967,280,308)
{
link(onStream,9227562:doUnPack,[])
}
Add(StreamUnPack,9227562,336,308)
{
DataCount=#5:index|4:data|
link(onUnPack,15654783:doEvent,[])
}
Add(IndexToChanel,15654783,392,308)
{
Point(Index)
Point(Data)
link(onEvent1,2796692:doMessage,[])
link(Index,9227562:index,[(398,287)(382,287)(382,359)(342,359)])
link(Data,9227562:data,[(405,296)(377,296)(377,352)(349,352)])
}
Если по раздельности, то клиент коннектится, а вот сообщения от сервера уже не принимает



Поиск
Друзья
Администрация