Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2015-10-17 11:28:37 ЛС | профиль | цитата
Рисуешь схему - помни : Ты не в храме. Креститься линками не обязательно.
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,[])
}


Сохранение в C:WebCamera ( создай на диска )
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0