Add(TCP_ServerEx,4763630,168,193)
{
 link(onRead,5150951:doAdd,[])
 link(onConnect,5753698:doEvent1,[(210,206)(210,254)(88,254)(88,290)])
 link(onDisconnect,6999214:doMessage,[(191,213)(191,269)])
 link(Data,8898691:Text,[(174,185)(174,192)])
}
BEGIN_SDK
  Add(EditMultiEx,2636834,3,3)
  {
   WorkCount=#28:doClose=закрывает соединение|16:doSend=отправить|
   EventCount=#6:onRead|9:onConnect|12:onDisconnect|
   VarCount=#6:Active|2:IP|
   DataCount=#24:Data=данные для отправки|
   link(doClose,2731795:doClose,[(19,9)(19,111)])
   link(doSend,2731795:doSend,[(19,16)(19,118)])
   link(Active,2731795:Active,[(9,170)(41,170)])
   link(IP,2731795:IP,[(16,170)(48,170)])
  }
  Add(TCP_Connection,2731795,35,105)
  {
   link(onRead,2636834:onRead,[(185,111)(185,9)])
   link(onConnect,2636834:onConnect,[(185,118)(185,16)])
   link(onDisconnect,2636834:onDisconnect,[(185,125)(185,23)])
   link(Data,2636834:Data,[(41,54)(9,54)])
  }
END_SDK
Add(GetData,3124487,154,256)
{
 link(Data,4763630:Active,[(160,241)(174,241)])
}
Add(Hub,5753698,98,284)
{
 link(onEvent1,8721564:doCompare,[(138,290)(138,346)])
 link(onEvent2,8309248:doCompare,[(138,297)(138,311)])
}
Add(If_else,8721564,154,340)
{
 Op2=Integer(1)
 link(onFalse,11383307:doMessage,[])
 link(Op1,3124487:Data1,[])
}
Add(If_else,8309248,154,305)
{
 Op2=Integer(0)
 link(onFalse,5349469:doMessage,[(191,318)(191,311)])
 link(Op1,3124487:Data2,[(160,297)(167,297)])
}
Add(Message,11383307,196,340)
{
 Message="готово"
 Caption="моединение"
}
Add(Message,5349469,196,305)
{
 Message="не подключен"
 Caption="моединение"
}
Add(Button,1870089,98,242)
{
 Left=10
 Top=130
 Width=70
 Caption="отправить"
 link(onClick,4763630:doSend,[(145,248)(145,206)])
}
Add(Button,3516874,98,193)
{
 Left=340
 Top=100
 Width=45
 Caption="откл"
 link(onClick,4763630:doClose,[(149,199)(149,199)])
}
Add(Edit,8898691,168,151)
{
 Left=10
 Top=100
 Width=320
 Hint="данные для отправки"
 Text="данные для отправки"
}
Add(Memo,5150951,238,193)
{
 Left=10
 Top=10
 Width=370
}
Add(Message,6999214,196,263)
{
 Message="Дисконект"
 Caption="Дисконект"
}
Add(Edit,2869430,238,263)
{
 Left=200
 Top=130
 Width=185
 link(Str,4763630:IP,[(244,248)(181,248)])
}