Add(MainForm,5329078,210,371)
{
Left=20
Top=105
Height=564
link(onCreate,12225144:doEvent1,[])
}
Add(TCP_ServerEx,4557003,469,203)
{
ServerPort=111
link(onConnect,10116799:doData,[(510,216)(510,242)(457,242)(457,272)])
}
BEGIN_SDK
Add(EditMultiEx,9971778,3,3)
{
WorkCount=#6:##open|6:doSend|9:##hselect|
EventCount=#3:msg|9:onConnect|
VarCount=#13:##eventHandle|
DataCount=#4:Data|
Width=293
Height=165
Point(##hselect)
Point(##eventHandle)
link(doSend,916654:doSend,[(79,23)(79,90)])
}
Add(TCP_Connection,916654,154,77)
{
link(onRead,9971778:msg,[(235,83)(235,9)])
link(onConnect,9971778:onConnect,[(241,90)(241,16)])
link(Data,9971778:Data,[(160,40)(9,40)])
}
END_SDK
Add(TCP_Client,13909758,412,392)
{
Port=111
IP="127.0.0.1"
link(onRead,4839368:doAdd,[])
}
Add(Hub,12225144,272,385)
{
OutCount=4
link(onEvent1,4557003:##open,[(325,391)(325,209)])
link(onEvent2,13909758:doOpen,[])
link(onEvent3,5699618:doOpen,[(376,405)(376,475)])
link(onEvent4,11214954:doOpen,[(346,412)(346,546)])
}
Add(Edit,1218238,406,161)
{
Left=35
Top=100
Width=125
}
Add(DoData,10116799,469,266)
{
link(onEventData,9854300:doAdd,[])
link(Data,4557003:##eventHandle,[])
}
Add(Label,3243467,630,126)
{
Left=40
Top=75
Width=48
Height=17
Caption="server"
}
Add(Memo,4839368,482,392)
{
Left=205
Top=35
Width=135
Height=120
ScrollBars=3
}
Add(Hub,10551642,350,245)
{
link(onEvent1,4557003:##hselect,[(443,251)(443,223)])
link(onEvent2,12409383:doData,[(394,258)(394,216)])
}
Add(Label,14367956,531,399)
{
Left=220
Top=15
Width=39
Height=17
Caption="client1"
}
Add(DoData,12409383,406,210)
{
link(onEventData,4557003:doSend,[])
link(Data,1218238:Text,[])
}
Add(Memo,1950908,482,469)
{
Left=205
Top=210
Width=135
Height=115
ScrollBars=3
}
Add(Label,15775604,531,476)
{
Left=215
Top=190
Width=40
Height=17
Caption="client2"
}
Add(TCP_Client,5699618,405,469)
{
Port=111
IP="127.0.0.1"
link(onRead,1950908:doAdd,[])
}
Add(Convertor,7043146,553,329)
{
Mode=1
link(onResult,10551642:doEvent1,[(600,335)(600,371)(338,371)(338,251)])
link(Data,9854300:String,[])
}
Add(ListBox,9854300,532,266)
{
Left=35
Top=125
Width=125
Height=115
Color=65535
Point(String)
link(onClick,7043146:doConvert,[(574,279)(574,320)(541,320)(541,335)])
}
Add(Memo,7694750,474,540)
{
Left=205
Top=380
Width=135
Height=115
ScrollBars=3
}
Add(Label,4496802,530,547)
{
Left=215
Top=360
Width=42
Height=20
Caption="client3"
}
Add(TCP_Client,11214954,405,540)
{
Port=111
IP="127.0.0.1"
link(onRead,7694750:doAdd,[])
}
Add(Button,6617047,189,438)
{
Left=270
Top=10
Width=90
Caption="Disconnect"
link(onClick,13909758:doClose,[(387,444)(387,405)])
}
Add(Button,11316365,188,476)
{
Left=270
Top=185
Width=90
Caption="Disconnect"
link(onClick,5699618:doClose,[(385,482)(385,482)])
}
Add(Button,12321281,188,547)
{
Left=270
Top=355
Width=90
Caption="Disconnect"
link(onClick,11214954:doClose,[])
}
Ответов: 110
Рейтинг: 5
|
|||
Как доделать программу, чтобы при отключении клиент исключался из списка и удалялась схема? Может можно доделать еще лучше, предполагается большое количество коннектовклиентов к серверу.
|
|||
карма: 0 |
|