Add(MainForm,12002522,168,182)
{
 Width=861
 Height=469
 link(onCreate,4313973:doEvent1,[])
}
Add(WebCam,7536132,504,259)
{
 Point(doSaveDIB)
 Point(doStartSequence)
 Point(doStopSequence)
 link(WinHandle,752428:Handle,[])
}
Add(Button,15916811,350,329)
{
 Left=440
 Top=350
 Width=145
 Caption="Записать кадр в файл"
 link(onClick,5280634:doStrCat,[])
}
Add(Button,9077997,350,371)
{
 Left=440
 Top=390
 Width=145
 Caption="Записать видео в файл"
 link(onClick,2367999:doStrCat,[])
}
Add(Button,3956340,350,413)
{
 Left=605
 Top=390
 Width=125
 Caption="Остановить запись"
 link(onClick,7536132:doStopSequence,[(485,419)(485,293)])
}
Add(TCP_Server,5624701,294,259)
{
 Port=180
 link(onRead,9240907:doEvent,[])
}
Add(IndexToChanel,9240907,350,259)
{
 Count=3
 Data=Integer(1)
 link(onEvent1,7536132:doConnect,[])
 link(onEvent2,7536132:doDisConnect,[])
}
Add(Image,752428,511,210)
{
 Left=435
 Top=25
 Width=365
 Height=315
 Point(Handle)
}
Add(Hub,11058810,700,252)
{
 link(onEvent1,201860:doWork2,[])
 link(onEvent2,1138813:doWork2,[])
}
Add(Button,5101889,588,252)
{
 Left=85
 Top=120
 Caption="вкл"
 link(onClick,5007670:doEvent,[])
}
Add(TCP_Client,6289042,770,252)
{
 Port=180
 link(IP,867732:Caption,[])
}
Add(IndexToChanel,5007670,644,252)
{
 Count=1
 Data=Integer(0)
 link(onEvent1,11058810:doEvent1,[])
}
Add(Button,5226367,588,294)
{
 Left=170
 Top=120
 Caption="выкл"
 link(onClick,1610535:doEvent,[])
}
Add(IndexToChanel,1610535,644,294)
{
 Count=1
 Data=Integer(1)
 link(onEvent1,6553161:doEvent1,[])
}
Add(Hub,6553161,700,294)
{
 link(onEvent1,201860:doWork3,[(732,300)])
 link(onEvent2,1138813:doWork3,[(746,307)])
}
Add(HubEx,201860,728,252)
{
 link(onEvent,6289042:doOpen,[])
}
Add(HubEx,1138813,742,259)
{
 link(onEvent,6289042:doSend,[(758,265)(758,272)])
}
Add(ComputerInfo,4215735,707,140)
{
}
Add(Ping,1077707,714,196)
{
 link(onFind,867732:doText,[])
 link(Name,4215735:CompName,[])
}
Add(Label,867732,770,196)
{
 Left=120
 Top=90
 Width=149
 Height=19
 Caption=""
}
Add(Hub,4313973,231,196)
{
 link(onEvent1,1077707:doPing,[])
 link(onEvent2,5624701:doOpen,[(277,209)(277,265)])
}
Add(StrCat,5280634,420,329)
{
 Str2=".jpg"
 link(onStrCat,7536132:doSaveDIB,[(460,335)(460,279)])
 link(Str1,13858188:Var2,[])
}
Add(Time,8325205,420,280)
{
 Format="C:WebCameraD-M-Y_h:m:s"
}
Add(StrCat,2367999,406,371)
{
 Str2=".mpeg"
 link(onStrCat,7536132:doStartSequence,[(470,377)(470,286)])
 link(Str1,13858188:Var1,[(412,320)])
}
Add(GetDataEx,13858188,420,315)
{
 link(Data,8325205:FormatTime,[])
}