Вверх ↑
Ответов: 704
Рейтинг: 44
#1: 2013-01-04 22:14:54 ЛС | профиль | цитата
Add(MainForm,5329078,210,294)
{
Left=20
Top=105
Width=715
Height=611
}
Add(TCP_ServerEx,4557003,469,126)
{
ServerPort=111
link(onConnect,10116799:doData,[(509,139)(509,174)(457,174)(457,195)])
link(onTrue,1113333:doTimer,[(524,146)(524,463)(236,463)(236,419)])
}
BEGIN_SDK
Add(EditMultiEx,9971778,3,3)
{
WorkCount=#6:##open|6:doSend|9:##hselect|
EventCount=#3:msg|9:onConnect|6:onTrue|
VarCount=#13:##eventHandle|6:client|
DataCount=#4:Data|
Width=741
Height=221
Point(##hselect)
Point(##eventHandle)
link(doSend,916654:doSend,[(79,16)(79,132)])
link(client,4163011:client,[(16,160)(328,160)])
}
Add(TCP_Connection,916654,154,119)
{
DataType=3
link(onRead,4163011:doUnPack,[(272,125)(272,69)])
link(onConnect,9971778:onConnect,[(499,132)(499,16)])
}
Add(StreamUnPack,4163011,308,63)
{
DataCount=#4:data|4:type|6:client|
link(onUnPack,11133033:doEvent,[])
}
Add(IndexToChanel,11133033,420,63)
{
Point(Data)
Point(Index)
link(onEvent1,9971778:msg,[(488,69)(488,9)])
link(onEvent2,339693:doCompare,[])
link(Data,4163011:data,[(426,45)(356,45)(356,113)(314,113)])
link(Index,4163011:type,[(433,51)(365,51)(365,120)(321,120)])
}
Add(If_else,339693,525,70)
{
Op2=Integer(0)
link(onTrue,9971778:onTrue,[(595,76)(595,23)])
}
END_SDK
Add(Edit,1218238,406,84)
{
Left=10
Top=380
Width=135
}
Add(DoData,10116799,469,189)
{
link(onEventData,9854300:doAdd,[])
link(Data,4557003:##eventHandle,[])
}
Add(Label,3243467,224,231)
{
Left=15
Top=355
Width=48
Height=17
Caption="server"
}
Add(Hub,10551642,350,168)
{
link(onEvent1,4557003:##hselect,[(443,174)(443,146)])
link(onEvent2,12409383:doData,[(394,181)(394,139)])
}
Add(DoData,12409383,406,133)
{
link(onEventData,4557003:doSend,[])
link(Data,1218238:Text,[])
}
Add(Convertor,7043146,637,252)
{
Mode=1
link(onResult,10551642:doEvent1,[(677,258)(677,294)(338,294)(338,174)])
link(Data,9854300:String,[])
}
Add(ListBox,9854300,616,189)
{
Left=10
Top=405
Width=135
Height=115
Color=65535
Point(String)
Point(Index)
link(onClick,7043146:doConvert,[(687,202)(687,244)(625,244)(625,258)])
}
Add(ChildPanelEx,6875552,420,371)
{
Mode=1
link(client,6875552:##eventIndex,[(426,359)(477,359)(477,413)(426,413)])
}
BEGIN_SDK
Add(EditMultiEx,6959901,21,21)
{
WorkCount=#5:##add|6:doOpen|8:##delete|
EventCount=#7:onClick|
VarCount=#12:##eventIndex|
DataCount=#6:client|
Width=678
Height=228
Point(##add)
Point(##delete)
Point(##eventIndex)
link(doOpen,7308120:doOpen,[])
}
Add(Panel,1332402,273,147)
{
Width=170
Height=160
Layout="parent.Grid"
}
Add(Button,15852922,35,154)
{
Left=75
Top=5
Width=90
Caption="Disconnect"
link(onClick,15880035:doPack,[])
}
Add(TCP_Client,7308120,154,28)
{
Port=111
IP="127.0.0.1"
DataType=3
link(onRead,6113621:doAdd,[])
}
Add(Memo,6113621,434,28)
{
Left=10
Top=30
Width=135
Height=120
ScrollBars=3
}
Add(Label,15307322,231,147)
{
Left=25
Top=10
Width=39
Height=17
Caption="client1"
}
Add(StreamPack,15880035,91,154)
{
DataCount=#4:data|4:type|6:client|
link(onPack,7308120:doSend,[(139,160)(139,48)])
link(data,1012311:Value,[])
link(type,15095641:Value,[])
link(client,6959901:client,[(111,88)(27,88)])
}
Add(Memory,1012311,91,49)
{
Default=Integer(0)
}
Add(Memory,15095641,98,98)
{
Default=Integer(1)
}
END_SDK
Add(Button,1325841,98,364)
{
Left=10
Top=540
Width=135
Caption="Add Client"
link(onClick,1391423:doEvent1,[])
}
Add(GridLayout,14961240,203,385)
{
Name="Grid"
Rows=3
Cols=3
}
Add(Hub,1391423,147,364)
{
OutCount=5
link(onEvent1,4557003:##open,[(296,370)(296,132)])
link(onEvent2,6875552:##add,[])
link(onEvent3,6875552:doOpen,[])
link(onEvent4,14961240:doResize,[])
}
Add(DoData,3658296,301,413)
{
link(onEventData,976346:doEvent1,[])
link(Data,4557003:client,[(307,342)(482,342)])
}
Add(Timer,1113333,252,413)
{
Interval=100
Enable=1
AutoStop=1
link(onTimer,3658296:doData,[])
}
Add(Hub,976346,357,413)
{
link(onEvent1,6875552:##delete,[(389,419)(389,391)])
link(onEvent2,16394113:doText,[])
}
Add(Edit,16394113,462,420)
{
Left=445
Top=420
link(onChange,9854300:doDelete,[(511,426)(511,209)])
}


Вот что-то типа того, голова уже не варит поиграй с компонентами StreamUnPack StreamPack, вообщем тебе нужно все равно отдельные программы, одна программа сервер, а другая клиент. Далее если будут подключатся клиенты их можно будет удалять по Ip, посмотри на форуме я недавно тоже делал клиент сервер только, немного по другому, но принцип один и тот же.
карма: 0

0