Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2015-10-17 07:13:32 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:51
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Гость
Ответов: 17029
Рейтинг: 0
#2: 2015-10-17 07:22:49 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:51
карма: 0

0
Ответов: 16884
Рейтинг: 1237
#3: 2015-10-17 08:15:13 ЛС | профиль | цитата
г. el_traho@list.ru писал(а):
сохранение видео и картинки с вебкамеры без диалогового окна.
И кто не даёт ?
code_36394.txt
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_36394.txt [481B] [312]
Гость
Ответов: 17029
Рейтинг: 0
#4: 2015-10-17 09:20:36 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:52
карма: 0

0
Ответов: 1828
Рейтинг: 123
#5: 2015-10-17 09:53:50 ЛС | профиль | цитата
code_36395.txt
карма: 5

0
файлы: 1code_36395.txt [2.8KB] [373]
Гость
Ответов: 17029
Рейтинг: 0
#6: 2015-10-17 10:19:01 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:52
карма: 0

0
Ответов: 1828
Рейтинг: 123
#7: 2015-10-17 11:03:54 ЛС | профиль | цитата
37.151.72.195,
Присоедини путь к строке, куда тебе надо писать.
Сделать можно по разному.
1. Определить путь к запущенному приложению.
2. Сделать менюшьку предварительных настроек.
3. Сделать константу со строкой содержащей путь.
...
Надеюсь, что не надо рисовать, или надо?

карма: 5

0
Гость
Ответов: 17029
Рейтинг: 0
#8: 2015-10-17 11:12:56 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:52
карма: 0

0
Ответов: 16884
Рейтинг: 1237
#9: 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 ( создай на диска )
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1828
Рейтинг: 123
#10: 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.
карма: 5

0
файлы: 1code_36396.txt [3KB] [365]
Ответов: 8675
Рейтинг: 803
#11: 2015-10-17 12:18:17 ЛС | профиль | цитата
flint2 писал(а):
как правильно?
Да нет! -- вот так правильнее
карма: 18

0
Ответов: 1828
Рейтинг: 123
#12: 2015-10-17 12:39:19 ЛС | профиль | цитата
Леонид,
http://pikabu.ru/story/vot_tak_vyiglyadit_fraza_quotda_net_navernoequot_2569053
карма: 5

0
Гость
Ответов: 17029
Рейтинг: 0
#13: 2015-10-17 13:33:52 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:52
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#14: 2015-10-17 19:37:22 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-05-21 04:10:52
карма: 0

0
14
Сообщение
...
Прикрепленные файлы
(файлы не залиты)