Гость
Войти | Профиль | Очистить
Действия ...
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / WebCamera / 5 сообщений из 5, страница 1 из 1
02.05.2018, 16:05
    #39639017
Riska
Riska
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebCamera
Нужно из РВ 12.5 проверить подключены ли камера и микрофон.
В идеале проверить работу.
Есть готовое решение?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2018, 09:01
    #39640849
Riska
Riska
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebCamera
Так у нас все кисло?

Имеется идея.
Где-то здесь:
Код: sql
1.
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\USB\


прописаны все устройства.
Нужно пробежать по списку и найти устройство, где
Data = "usbvideo" (Name = "Service")
Взять из "FriendlyName" имя устройства и посмотреть, подключено ли оно к USB.

Т.е. теперь задача получить имена подключенных уствойств (может быть можно получить и тип устройства - тогда в registry не надо залазить).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2018, 09:12
    #39640850
Riska
Riska
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebCamera
Riska,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2018, 09:12
    #39640851
Riska
Riska
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebCamera
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.05.2018, 13:02
    #39644349
Riska
Riska
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebCamera
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
string ls_message
OLEObject ole_wsh

 ole_wsh = CREATE OLEObject
 ole_wsh.ConnectToNewObject("MSScriptControl.ScriptControl")
 ole_wsh.Language = "vbscript"
 ole_wsh.AddCode('Function FindWebCamera()~r~n' &
    + 'USBdevice = "" ~r~n' &
    + 'strComputer = "."~r~n' &
    + 'Set objWMIService = ' &
    + ' GetObject("winmgmts:\\" &strComputer &"\root\cimv2")~r~n' &
    + 'Set colItems = ' &
    + ' objWMIService.ExecQuery("Select * from Win32_PnPEntity")~r~n' & 
    + 'For Each objItem in colItems~r~n' &
    + 'USBdevice = USBdevice &" , " &objItem.Name &"###" &objItem.Service &"###" &objItem.Status~r~n' &
    + 'Next~r~n' &
    + 'FindWebCamera = USBdevice~r~n' &
    + 'End Function')
 ls_message = ole_wsh.Eval("FindWebCamera")
 ole_wsh.DisconnectObject()
 DESTROY ole_wsh

MessageBox("USB",ls_message)


Этот скрипт находит все устройства и статус ("OK" или "Error").
Среди текста есть где-то
Код: sql
1.
Имя Camerы###usbvideo###OK


Имя нам, собственно не нужно. Надо просто проверить
Код: sql
1.
2.
3.
4.
5.
IF Pos(ls_message, 'usbvideo###OK') > 0 THEN
	// Камера работает
ELSE
	// Камера не работает
END IF



У любой камеры, подключенной через USB будет usbvideo . Проблема в том, что если камера НЕ подключена через USB, а встроена в Ноутбук, то (в моем Laptope) это выглядит так:
Код: sql
1.
Имя Camerы###rtsuvc###OK


Где rtsuvc - что-то реалтековское. Как узнать, что это действительно камера?

Нагуглил другой способ:
через функции API
Код: sql
1.
2.
3.
Function Long SendMessage  (Long hwnd, Long wMsg, Long wParam , Long lparam) LIBRARY "user32" Alias for "SendMessageA" 
Function Long capCreateCaptureWindow (String a, Long b, Long c, Long d, Long e, Long f, Long g, Long h) LIBRARY "avicap32.dll" Alias for "capCreateCaptureWindowA" 
Function long capDriverConnect (Long a, Long b) LIBRARY "avicap32.dll"


но ума не хватает прикрутить к РВ.

Прошу помощи коллективного разума...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / WebCamera / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 148ms
Закрыть
start [/forum/topic.php?fid=15&tablet=1&tid=1335115]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 14ms
total:  148ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]