ReSQL.ru
     
powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / WebCamera
5 сообщений из 5, страница 1 из 1
WebCamera
    #39639017
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Нужно из РВ 12.5 проверить подключены ли камера и микрофон.
В идеале проверить работу.
Есть готовое решение?
...
Рейтинг: 0 / 0
02.05.2018, 16:05
| Ответить | Цитировать | Написать  
WebCamera
    #39640849
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Так у нас все кисло?

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


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

Т.е. теперь задача получить имена подключенных уствойств (может быть можно получить и тип устройства - тогда в registry не надо залазить).
...
Рейтинг: 0 / 0
06.05.2018, 09:01
| Ответить | Цитировать | Написать  
WebCamera
    #39640850
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Riska,
...
Рейтинг: 0 / 0
06.05.2018, 09:12
| Ответить | Цитировать | Написать  
WebCamera
    #39640851
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
...
Рейтинг: 0 / 0
06.05.2018, 09:12
| Ответить | Цитировать | Написать  
WebCamera
    #39644349
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Код: 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
14.05.2018, 13:02
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / WebCamera
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&msg=39640851&tid=1335115]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 159ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 240ms
total:  498ms
созд. / загр.: 498ms
x
x
Закрыть


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