Вверх ↑
Ответов: 2059
Рейтинг: 131
#1: 2015-10-17 11:46:15 ЛС | профиль | цитата
Flint2 вы наверное бывалый в этом деле,

Отнюдь нет, или не отнюдь, как правильно?
Add(MainForm,12002522,238,140)
{
Width=861
Height=469
link(onCreate,4313973:doEvent1,[])
}
Add(WebCam,7536132,574,238)
{
Point(doSaveDIB)
Point(doStartSequence)
Point(doStopSequence)
link(WinHandle,752428:Handle,[])
}
Add(Button,15916811,427,308)
{
Left=440
Top=350
Width=145
Caption="Записать кадр в файл"
link(onClick,15690247:doString,[])
}
Add(Button,9077997,420,364)
{
Left=440
Top=390
Width=145
Caption="Записать видео в файл"
link(onClick,5742123:doString,[])
}
Add(Button,3956340,532,413)
{
Left=605
Top=390
Width=125
Caption="Остановить запись"
link(onClick,7536132:doStopSequence,[(569,419)(569,272)])
}
Add(TCP_Server,5624701,308,357)
{
Port=180
link(onRead,9240907:doEvent,[(345,363)(345,195)])
}
Add(IndexToChanel,9240907,350,189)
{
Count=3
Data=Integer(1)
link(onEvent1,7536132:doConnect,[(478,195)(478,244)])
link(onEvent2,7536132:doDisConnect,[(478,202)(478,251)])
}
Add(Image,752428,581,78)
{
Left=435
Top=25
Width=365
Height=315
Point(Handle)
}
Add(Hub,11058810,945,329)
{
link(onEvent1,201860:doWork2,[(971,335)(971,317)])
link(onEvent2,1138813:doWork2,[])
}
Add(Button,5101889,847,399)
{
Left=85
Top=120
Caption="вкл"
link(onClick,5007670:doEvent,[(912,405)(912,440)])
}
Add(TCP_Client,6289042,889,231)
{
Port=180
link(IP,867732:Caption,[])
}
Add(IndexToChanel,5007670,945,434)
{
Count=1
Data=Integer(0)
link(onEvent1,11058810:doEvent1,[(989,440)(989,388)(933,388)(933,335)])
}
Add(Button,5226367,833,553)
{
Left=170
Top=120
Caption="выкл"
link(onClick,1610535:doEvent,[(898,559)(898,517)])
}
Add(IndexToChanel,1610535,924,511)
{
Count=1
Data=Integer(1)
link(onEvent1,6553161:doEvent1,[(982,517)(982,545)])
}
Add(Hub,6553161,1008,539)
{
link(onEvent1,201860:doWork3,[(1034,545)(1034,433)(872,433)])
link(onEvent2,1138813:doWork3,[(1033,552)])
}
Add(HubEx,201860,868,311)
{
Angle=2
link(onEvent,6289042:doOpen,[(765,317)(765,300)(840,300)(840,237)])
}
Add(HubEx,1138813,1029,336)
{
link(onEvent,6289042:doSend,[(1056,342)(1056,296)(877,296)(877,251)])
}
Add(ComputerInfo,4215735,826,42)
{
}
Add(Ping,1077707,833,175)
{
link(onFind,867732:doText,[])
link(Name,4215735:CompName,[])
}
Add(Label,867732,889,175)
{
Left=120
Top=90
Width=149
Height=19
Caption=""
}
Add(Hub,4313973,301,154)
{
link(onEvent1,1077707:doPing,[(574,160)(574,181)])
link(onEvent2,5624701:doOpen,[(327,167)(327,265)(296,265)(296,363)])
}
Add(GetDataEx,13858188,490,259)
{
link(Data,12208687:FormatTime,[])
}
Add(Dir,5365537,420,196)
{
}
Add(FormatStr,15690247,490,308)
{
Mask="%1картинка%2.jpg"
link(onFString,7536132:doSaveDIB,[(527,314)(527,258)])
link(Str1,8255370:Var3,[(496,268)])
link(Str2,13858188:Var2,[(503,271)(496,271)])
}
Add(Time,12208687,490,189)
{
Format="D-M-Y_hms"
}
Add(FormatStr,5742123,469,364)
{
Mask="%1видео%2.mpeg"
link(onFString,7536132:doStartSequence,[(541,370)(541,265)])
link(Str1,8255370:Var2,[(475,343)(440,343)])
link(Str2,13858188:Var1,[(482,264)])
}
Add(GetDataEx,8255370,434,263)
{
Angle=3
link(Data,5365537:CurrentDir,[(426,268)])
}


Ещё проще:
Add(MainForm,12002522,259,189)
{
Width=861
Height=469
link(onCreate,4313973:doEvent1,[])
}
Add(WebCam,7536132,595,287)
{
Point(doSaveDIB)
Point(doStartSequence)
Point(doStopSequence)
link(WinHandle,752428:Handle,[])
}
Add(Button,15916811,448,357)
{
Left=440
Top=350
Width=145
Caption="Записать кадр в файл"
link(onClick,1673916:doString,[(510,363)(510,342)])
}
Add(Button,9077997,441,413)
{
Left=440
Top=390
Width=145
Caption="Записать видео в файл"
link(onClick,5852813:doString,[])
}
Add(Button,3956340,553,462)
{
Left=605
Top=390
Width=125
Caption="Остановить запись"
link(onClick,7536132:doStopSequence,[(590,468)(590,321)])
}
Add(TCP_Server,5624701,329,406)
{
Port=180
link(onRead,9240907:doEvent,[(366,412)(366,244)])
}
Add(IndexToChanel,9240907,371,238)
{
Count=3
Data=Integer(1)
link(onEvent1,7536132:doConnect,[(499,244)(499,293)])
link(onEvent2,7536132:doDisConnect,[(499,251)(499,300)])
}
Add(Image,752428,602,127)
{
Left=435
Top=25
Width=365
Height=315
Point(Handle)
}
Add(Hub,11058810,966,378)
{
link(onEvent1,201860:doWork2,[(992,384)(992,366)])
link(onEvent2,1138813:doWork2,[])
}
Add(Button,5101889,868,448)
{
Left=85
Top=120
Caption="вкл"
link(onClick,5007670:doEvent,[(933,454)(933,489)])
}
Add(TCP_Client,6289042,910,280)
{
Port=180
link(IP,867732:Caption,[])
}
Add(IndexToChanel,5007670,966,483)
{
Count=1
Data=Integer(0)
link(onEvent1,11058810:doEvent1,[(1010,489)(1010,437)(954,437)(954,384)])
}
Add(Button,5226367,854,602)
{
Left=170
Top=120
Caption="выкл"
link(onClick,1610535:doEvent,[(919,608)(919,566)])
}
Add(IndexToChanel,1610535,945,560)
{
Count=1
Data=Integer(1)
link(onEvent1,6553161:doEvent1,[(1003,566)(1003,594)])
}
Add(Hub,6553161,1029,588)
{
link(onEvent1,201860:doWork3,[(1055,594)(1055,482)(893,482)])
link(onEvent2,1138813:doWork3,[(1054,601)])
}
Add(HubEx,201860,889,360)
{
Angle=2
link(onEvent,6289042:doOpen,[(786,366)(786,349)(861,349)(861,286)])
}
Add(HubEx,1138813,1050,385)
{
link(onEvent,6289042:doSend,[(1077,391)(1077,345)(898,345)(898,300)])
}
Add(ComputerInfo,4215735,847,91)
{
}
Add(Ping,1077707,854,224)
{
link(onFind,867732:doText,[])
link(Name,4215735:CompName,[])
}
Add(Label,867732,910,224)
{
Left=120
Top=90
Width=149
Height=19
Caption=""
}
Add(Hub,4313973,322,203)
{
link(onEvent1,1077707:doPing,[(595,209)(595,230)])
link(onEvent2,5624701:doOpen,[(348,216)(348,314)(317,314)(317,412)])
}
Add(GetDataEx,13858188,511,308)
{
link(Data,12208687:FormatTime,[])
}
Add(Time,12208687,511,238)
{
Format="D-M-Y_hms"
}
Add(FormatStr,5852813,504,413)
{
DataCount=1
Mask=".видео%1.mpeg"
link(onFString,7536132:doStartSequence,[(569,419)(569,314)])
link(Str1,13858188:Var1,[(510,374)(508,374)(508,313)])
}
Add(FormatStr,1673916,539,336)
{
DataCount=1
Mask=".картинка%1.jpg"
link(onFString,7536132:doSaveDIB,[(583,342)(583,307)])
link(Str1,13858188:Var2,[(545,327)(517,327)])
}


+ Можно добавить папку
".картинкикартинка%1.jpg" и ".видеовидео%1.mpeg", предварительно создав эти папки, где лежит exe.
карма: 6

0
файлы: 1code_36396.txt [3KB] [655]