Вверх ↑
Ответов: 1043
Рейтинг: 33
#1: 2013-01-10 20:17:32 ЛС | профиль | цитата
KisL()R()[) писал(а):
Выручает эта штука:

так? если я правильно понял
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,10439453:doTimer,[])
}
Add(TCP_Client,12500207,273,315)
{
Port=1001
IP="127.0.0.1"
DataType=3
link(onRead,15802967:doDeCompress,[])
}
Add(Message,2796692,532,308)
{
}
Add(ZLIB,15802967,336,308)
{
link(onStream,9227562:doUnPack,[])
}
Add(StreamUnPack,9227562,392,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,448,308)
{
Point(Index)
Point(Data)
link(onEvent1,2796692:doMessage,[])
link(Index,9227562:index,[(454,287)(438,287)(438,359)(398,359)])
link(Data,9227562:data,[(461,296)(433,296)(433,352)(405,352)])
}
Add(Timer,10439453,154,315)
{
Interval=0
Enable=1
link(onTimer,8631349:doEvent1,[])
}
Add(Hub,8631349,210,315)
{
link(onEvent1,12500207:doOpen,[])
link(onEvent2,1268929:doProcessMessages,[(248,328)(248,363)])
}
Add(Application,1268929,273,357)
{
}


карма: 0

0