Что нового

Разрешить доступ к камере во Flash объекте

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Возникла проблема, создаю объект на форме, вставляю swf ролик, этот swf выводит картинку с Web камеры на форму, но при его загрузке, появляется окно с параметрами Adobe Flash Player где требуется выбрать одну из 2х кнопок, можно ли это окно убрать или если есть возможность, отправить разрешение на пользование камерой до того как ролик будет загружен.

Код:
$hObject = ObjCreate('ShockwaveFlash.ShockwaveFlash')
$hForm = GUICreate('', 320, 240)
$hActiveX = GUICtrlCreateObj($hObject, 0, 0, 320, 240)

With $hObject
    .Movie = @ScriptDir & '\jscam.swf'
    .Quality = 1
    .ScaleMode = 2
	.Menu = False
EndWith

GUISetState()

While 1
	Switch GUIGetMsg()
	    Case -3 
            Exit
	EndSwitch
Wend


А если нужны поправки в исходнике swf, то я добавлю и скомпилирую, вот только не знание английского подводит, искал в интернете, не нашёл как можно автоматом разрешать, а может просто пропустил.
 
Автор
V

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
За вывод этого окна во Flash вроде отвечает эта строчка:

Код:
System.security.allowDomain("*");

в исходниках я её убрал, а вот скомпилировать оказалось более проблематично чем найти проблему.
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Viktor1703
или если есть возможность, отправить разрешение на пользование камерой до того как ролик будет загружен.
Можно сделать так:
"меню пуск" > "Панель управления" > "Flash Player"
наверху вкладка "Камера и микрофон" и там добавить сайт.
или через AutoIt:
Код:
$addsite = "local" ;добавляемый домен
$app = "FlashPlayerApp.exe"
ShellExecute($app)
$title = "Менеджер настроек Flash Player"
WinWaitActive($title)
Sleep(500)
Send("^{tab}") ;Камера и микрофон
ControlClick($title, "", "Button1") ;Спрашивать, когда сайт пытается использовать камеру/микрофон...
ControlClick($title, "", "Button3") ;Настройки камеры и микрофона для веб-сайта
$title = "Настройки камеры и микрофона для веб-сайта"
WinWaitActive($title)
ControlClick($title, "", "Button1") ;Добавить
$title = "Добавить настройку камеры и микрофона для сайта"
WinWait($title)
Send($addsite)
Send("{tab}")
Send("р")
ControlClick($title, "", "Button1") ;Добавить
$title = "Настройки камеры и микрофона для веб-сайта"
WinWaitActive($title)
ControlClick($title, "", "Button3") ;Закрыть
$title = "Менеджер настроек Flash Player"
WinWaitActive($title)
WinClose($title)
 
Верх