Что нового

Запись видео с веб-камеры

bugmenot

Новичок
Сообщения
17
Репутация
0
Версия AutoIt: 3.3.8.1

Описание:

Имеется такая форма:
Код:
#include <GUIConstantsEx.au3>

global const $FILE_OUTPUT = 'file.avi'

main()



func main()

    window_draw()


    local $capture_state = 0


    while ( 1 )

        switch ( GUIGetMsg() )

            case $GUI_EVENT_CLOSE

                if ( $capture_state == 1 ) then

                    capture_stop()

                    GuiCtrlSetData($button_capture, 'stop')

                endif

                exit


            case $BUTTON_CAPTURE

                if ( $capture_state == 0 ) then

                    capture_run()

                    GUICtrlSetData($BUTTON_CAPTURE, 'stop')

                else

                    capture_stop()

                    GUICtrlSetData($BUTTON_CAPTURE, 'run')

                endif

                $capture_state = BitXor($capture_state, 1)

        endswitch

    wend

endfunc



func window_draw()

    GUICreate('app', 138, 46)

    global const $BUTTON_CAPTURE = GUICtrlCreateButton('run', 11, 10, 115, 25)

    GUISetState(@SW_SHOW)

endfunc



func capture_run()

    ;msgbox(0, '', 'capture_run')

endfunc



func capture_stop()

    ;msgbox(0, '', 'capture_stop')

endfunc


Нужно дописать две функции: capture_run() и capture_stop(). Первая начинает запись видео с вебки в файл (имя файла указано в константе $FILE_OUTPUT), вторая соответственно останавливает запись.

Примечания:
Диалоговое окно с предложением выбрать веб-камеру не требуется (есть только одна веб-камера), а также не нужна превьюшка.
 
Автор
B

bugmenot

Новичок
Сообщения
17
Репутация
0
Pvnn, не совсем то, что нужно, я уже пробовал. Там предлагается выбрать камеру и указать где будет располагаться превьюшка, а мне это как раз не нужно. Я не знаю на что нужно исправить то, что в функции _WebcamOpen() в этой udf-ке.

Да и происходит с ней что-то не так: только иногда пишет в файл, при этом звук есть, изображения нет, только чёрный экран. Пробую как написано менять $sPort, толку ноль. К тому же по ссылке, насколько я понял, видно что другие пользователи жалуются что у них не работает win7, а у меня как раз семёрка.
 
Верх