Софт

тест Web камеры

Рейтинг: 4.7/5.0 (532 проголосовавших)

Категория: Windows

Описание

Ноутбуки HP - Тестирование веб-камеры с использованием QuickPlay

Ноутбуки HP - Тестирование веб-камеры с использованием QuickPlay

Содержание этого документа касается ноутбуков HP с установленной операционной системой Windows XP или Vista.

Большинство проблем с веб-камерами связано с отсутствующими или несовместимыми драйверами оборудования или с неправильно настроенными приложениями для видеоэкрана. С помощью этого документа вы сможете проверить основные функции веб-камеры можно с помощью хорошего драйвера устройства для веб-камеры и простого видеоприложения. Определив, что веб-камера работает, можно настроить качество изображения или использовать более сложную программу для работы с изображением.

В тех редких случаях, когда проблема заключается в самом физическом устройстве, необходимо обратиться в HP для технической поддержки или ремонта.

Если на компьютере со встроенной веб-камерой по-прежнему установлена оригинальная ОС Windows XP или Vista, можно использовать приложение для веб-камеры HP QuickPlay, доступное на некоторых моделях HP Pavilion. Однако существуют три разные версии QuickPlay, из них использовать можно только исходно установленную, причем эта программа недоступна для загрузки с веб-сайта HP. Инструкции по установке и обновлению ПО QuickPlay из комплекта поставки компьютера см. в одном из следующих документов.

Рекомендация HP: Компания HP заменила QuickPlay приложением Cyberlink YouCam в качестве предпочтительного для веб-камеры.

В обеих ОС Vista и Windows 7 для тестирования веб-камеры установите и используйте Cyberlink YouCam. Для загрузки и установки ПО для Cyberlink YouCam перейдите на страницу программного обеспечения Cyberlink YouCam (на английском языке) .

Для получения информации об использовании YouCam для тестирования веб-камеры см. "Тестирование веб-камеры с использованием YouCam" .

Для Windows XP отсутствует как совместимая версия QuickPlay, так и возможность загрузки YouCam с веб-сайта HP. Можно загрузить HP Webcam for XP или использовать драйвер USB-видеоустройства Microsoft. Для тестирования веб-камеры следует использовать какую-либо из программ обмена мгновенными сообщениями, которые имеются для различных операционных систем.

Для проверки правильности работы веб-камеры на ноутбуке HP Pavilion, поставленном с QuickPlay и ОС Microsoft Vista или XP, выполните следующий тест.

Нажмите кнопку QuickPlay (обычно находится рядом с дисплеем) для открытия приложения QuickPlay.

Как вариант, можно нажать Пуск. Все программы и выбрать HP QuickPlay .

Нажмите значок Видео и дважды щелкните по Веб-камере HP в столбце Источник.

Изображение с веб-камеры должно появиться вблизи центра экрана.

Для записи короткого видео нажмите Запись на основной панели управления. Позвольте программе провести запись в течение нескольких секунд и нажмите Стоп. Имя видеофайла будет выведено на левой панели выбора.

Для записи единичного кадра нажмите Snapshot. Имя стоп-кадра будет выведено на левой панели списка воспроизведения.

Для просмотра видеоклипа или полноразмерного изображения дважды щелкните на имени файла в списке воспроизведения в окне QuickPlay.

По умолчанию файл сохраняется в общую папку, а в качестве его имени используется дата. Например:
C:\Users\Public\Videos\HP Webcam\webcam_20070228_1540.mpg. Сохраненный файл можно переименовать и перенести в другое место на компьютере.

При выполнении этого теста проверяется исправность работы веб-камеры, ее способность записывать или воспроизводить видео-файлы.

Были обнаружены некоторые проблемы в работе программы QuickPlay и драйверов веб-камеры, особенно при работе в ОС Windows Vista. HP рекомендует удалить QuickPlay и выполнить обновление до программы Cyberlink YouCam. Для получения дополнительной информации см. "Рекомендации службы поддержки HP".

При необходимости использования QuickPlay в случае проблем в веб-камерой можно попытаться выполнить следующие действия:

Использовать центр обновления Windows Update для установки всех исправлений и обновлений и новейшего пакета обновления Microsoft. Windows Vista следует обновить до пакета обновления 2 (SP2). Windows XP следует обновить до пакета обновления 3 (SP3).

Перейдите на страницу Драйверы и загружаемые файлы для соответствующей модели, выберите установленную ОС и загрузите драйвер веб-камеры (при его наличии). При отсутствии драйвера веб-камеры, следует использовать Драйвер видеоустройства Microsoft USB.

  • Откройте Диспетчер устройств и при помощи команды Установка из указанного места. выборочно обновите драйвер Устройства обработки изображений. При выводе подсказки выберите вариант Только совместимые устройства и выберите один из показанных драйверов веб-камер.
  • При наличии оригинального диска восстановления системы можно переустановить оригинальную версию QuickPlay и затем применить все обновления.

  • тест web камеры:

  • скачать
  • скачать
  • Другие статьи, обзоры программ, новости

    Станция Мир

    Станция Мир

    Карнавального спуска я в тот день не видел. На чегете, после концерта ,все тихонько разъехались, на Эльбрусе ,на следующий день ,я катал до 14 часов и видел только одного парня в большом ростовом костюме мишки- коалы! Костюмов на Че было не много- девушка принцесса. батарейка и. в принципе, все! Остальные обошлись париками, масками и шапками! На неделе выберу время- что нибудь выложу из снятого!
    Вчера железно собрался ехать на Гору, а друга и соседа жена не отпустила! Весь день заглядывал на сайт, читал комменты и глотал слюну! Сезон то я, вроде как, закрыл! Вспомнил поговорку: Мужик сказал …. мужик сказал…… мужик сказал, баба напомнила- мужик сделал. Зато сегодня много сделал по дому, о чем напомнила жена.

    Urchei1! Не худа без добра! Судя по прогнозам будет раздолье для вас и в следующие выходные. Так что, надеюсь вас всех благословят в путь-дорожку и дружно…
    http://rp5.ru/%D0%9F%D0%BE%D0%B3%D0%BE%D0%B4%D0%B0_%D0%B2_%D0%A2%D0%B5%D1%80%D1%81%D0%BA%D0%BE%D0%BB%D0%B5

    Да уж. Это не прогноз! Это ПРОГНОЗИЩЕ.

    Возможно, что и до майских, и на майские, вам не стоит расслабляться и далеко-высоко убирать лыжи/доски…
    http://www.gismeteo.ru/month/5249/

    Добрый вечер. Подскажите какая на Азау погода. Хотел приехать на днях, покататься на лыжах. Снег нормально лежит?

    Пролистайте, просмотрите, прочитайте комментарии под другими веб-камерами, например, Азау, Кругозор, Чегет…

    Добавить комментарий Отменить ответ

    Для отправки комментария вам необходимо авторизоваться .

    Комментарии Логин

    Всё о веб-камерах

    Как выбрать хорошую веб-камеру?

    Современные коммуникации уже давно вошли в наш дом и сегодня не составит труда наладить связь с друзьми или родственниками в любой точке земного шара посредством сети Интренет. А чтобы этот сеанс связи был приятным необходимо правильное оборудование, которое будет передавать наше изображение и звук адресату. Эта задача возложена на веб-камеру. Чем качественней будет передаваемое изображение, тем приятней будет Ваше общение, ничто не будет Вас отвлекать от собеседника. В первую очередь обращаем внимание на такую характеристику как разрешение веб-камеры, оптимальным на наш взгяд на сегодняшний день являются HD и FullHD веб-камеры, но это совсем не означает, что камеры с меньшим разрешением изжили своё.

    Оценивайте свои финансовые возможности и вперед листать наш онлайн-каталог:

    На что обратить внимание перед покупкой?
    • разрешение матрицы;
    • количество кадров в секунду (FPS) при записи видео;
    • наличие встроенного микрофона;
    • крепление (кронштейн, присоска) камеры;
    • дизайн, внешний вид;
    • дополнительные функции: слежение за лицом, регулируемая подсветка, автоматическая фокусировка;
    • интерфейс подключения;
    • бренд-производитель, гарантия;
    • цена.
    • веб апщение по вебке онлайн
    • тест камеры на телефоне веб
    • общения по веб камеру на телефоне
    • дороги новокузнецка веб
    • Веп камеры Стамбула
    Покупатели также интересуються:

    Test web-camera Logitech HD Pro C920 смотреть онлайн

    Test web-camera Logitech HD Pro C920

    #Test #webcam #webcamera #logitech #C920 #HD #тест #вебкамера #Логитеч #Лоджитек

    Позавчера мне написала письмо одна из моих русскоязычных подписчиц, которая уже много лет живет и работает в городе Маями (США).

    Узнав из одного моего видеоролика о том, что я задумал накопить деньжат на новую веб-камеру, которая позволит мне проводить стримы и снимать видео в Full HD разрешении (1920x1080 пикселей), она решила облегчить мне задачу и сразу же перевела мне через платежную систему Western Union, 120 долларов США, на приобретение данного девайса.

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

    Похожее видео
    • Cтресс–тест пианино
    • Методика проведения краш-тестов EuroNCAP. Autoreview.ru
    • Test 12 mb Kraslan
    • Subaru Legacy Wagon GT
    • uphill test with random ride
    • Легендарный краш тест 1971 Chevrolet Impala vs 1972 Ford Pinto
    • Plymouth hemi cuda'72 dyno-test
    • авто-гармошка
    • Crash Test Smart Car

    Программа Тест Для Веб Камеры

    Программа Тест Для Веб Камеры

    Скачать программы для работы с вебкамерами, запись видео с веб - камеры, видеонаблюдение с помощью камер, общение через веб - камеру бесплатно.

    Также расскажу, как проверить работу вебкамеры. Оглавление [показать] Программа MyCam — проверит, сфотографирует, запишет.

    Тут можно проверить видео/аудио сигнал со своей веб камеры. Бесплатный, простой и удобный тест трансляции звука и изображения (картинки) с.

    WebcamMicTest.com - сайт для проверки веб - камеры, микрофона и вебкамеры с микрофоном. Можно увидеть своё изображение с камеры и сделать.

    С помощью данного инструмента вы можете проверить наличие видео и аудио сигнала со своей веб камеры (или любой другой камеры/микрофона и т.д.). Прежде всего, убедитесь в том, что девайс подключен к компьютеру. Затем, разрешите флеш приложению доступ к вашему устройству, нажав кнопку "Разрешить": Если все хорошо, то вы увидите изображение с веб камеры в окне приложения, а также зеленые галочки возле надписей "Картинка" и "Звук". Если видео сигнал или аудио сигнал (или оба) не поступают, то возле надписей "Картинка" и/или "Звук" будут стоять красные крестики Если вы видите надпись "Сигнал с камеры отсутствует!", это значит, что с ваших устройств не поступает ни видео ни аудио сигнала. Данная ситуация может возникать по следующим причинам: Чаще всего проблемы возникают именно по последней причине. Чтобы ее устранить (или проверить) нажмите правой кнопкой мыши в любом месте приложения и зайдите в "Параметры": В правой нижней части открывшегося окна вы можете наблюдать значок микрофона и значок веб камеры: Последовательно нажмите на каждый из них и проверьте правильность настроек. Если нужное устройство не выбрано, то выберите его с помощью выпадающего меню, кликнув на стрелочку справа от названия: После выставления настроек нажмите кнопку "Закрыть". Если после этого вы не увидели в центре приложения изображение с вашей камеры (или индикатор звука), то, видимо, проблема связана с самим устройством и/или драйверами Очень часто после покупки web камеры и подключения ее к компьютеру возникает необходимость убедиться в ее работоспособности. И действительно, вопрос «а работает ли» является вполне резонным, особенно если учесть количество китайских подделок на нашем рынке. Проверить вебку через Skype или Мейл агент не всегда представляется возможным, потому что близких друзей как назло нет в сети, а беспокоить остальных знакомых с такой просьбой как-то не очень хочется. Возникает вопрос: как проверить веб камеру? Именно для этой цели и было разработано данное онлайн приложение. С его помощью проверка веб камеры занимает считанные секунды. Происходит все очень понятно и быстро: вы просто разрешаете флешке доступ к вашему устройству и смотрите на результат. Если вы видите картинку с камеры и колебания шкалы громкости, то все работает хорошо. Если один или оба сигнала отсутствуют, то приложение об этом сообщит. Т.е. по сути это простейший индикатор аудио и видео сигнала, с которым проверка веб камеры онлайн становиться более удобной, чем было раньше. Кстати, помимо камеры, можно проверить микрофон, подключенный к звуковой карте вашего компьютера. Проверка микрофона онлайн происходит точно так же, как описано в инструкции выше, с той лишь разницей, что вы не видите картинки и тестируете сигнал только с помощью звуковой шкалы. Хотелось бы подчеркнуть, что проверить камеру онлайн и протестировать микрофон можно одновременно: для этого в параметрах флеш плеера надо будет выбрать нужное аудиоустройство. После того, как вы убедились, что сигнал с камеры поступает, как положено, вы можете провести тест веб камеры онлайн. Для этого тестирования, во-первых, обратите внимание на показатель FPS в правом нижнем углу. Он обозначает количество кадров в секунду, которое передает ваша web камера в данный момент. Сравните данный показатель с FPS, который был заявлен производителем (обычно можно посмотреть на упаковке или в инструкции). Во-вторых, установите камеру на компьютер так, чтобы себя видеть и помашите перед ней рукой или повертите головой. Во время этого обратите внимание, не тормозит ли картинка, не размываются ли движения, достаточная ли четкость у изображения и не «квадратится» ли оно квадратными пикселями. Это лучший способ провести тест драйв новой веб камеры, сразу после покупки. Также, мы советуем провести тест микрофона онлайн. Для этого, найдите на вашем устройстве место, где он находится, и постучите по нему ногтем пальца. Если у вас внешняя камера, то можете постучать прямо по ее корпусу. Если у вас встроенная камера ноутбука, то микрофон может располагаться как возле объектива, так и в передней части (около тачпада). При данном постукивании обратите внимание на шкалу громкости звука в правой части приложения. Она должна допрыгивать если не до максимального красного сектора, то хотя бы до 5-го квадратика снизу. Если этого не происходит, то вполне возможно, что динамик микрофона в камере бракованный, недостаточно чувствительный или в настройках компьютера установлена маленькая громкость. Попробуйте изменить настройки, переустановить драйвера и еще раз проверить микрофон онлайн на данной странице. Если вы тестируете внешний микрофон, то можно не стучать по нему, а просто сильно дунуть. Если вы хотите проверить веб камеру на ноутбуке, то это также можно сделать с помощью нашего приложения. Это даже проще, потому что не требуется ничего устанавливать. Как правило, встроенная камера на ноуте уже настроена по умолчанию, так что вам просто надо зайти на эту страницу и разрешить флеш плееру доступ к девайсу. Операционная система вашего компьютера также не имеет значения: проверить камеру можно на windows 7, windows 8, windows XP, Mac OS и Linux. Главное, чтобы устройство было установлено и настроено. Одним из преимуществ данного веб инструмента, в отличие от других, является одновременное детектирование видео и аудио сигнала. На первый взгляд это кажется очевидным. Однако, когда человеку нужно проверить вебку онлайн, он, как правило, будет натыкаться на флешки, которые детектят либо видео, либо звук, либо видео и проверка звука онлайн идут по очереди. Подобную организацию окон мы считаем неприемлемой. Поэтому наши разработчики пошли по пути упрощения. В результате, наше приложение является более понятным и эффективным, с точки зрения потребностей пользователя. Другим преимуществом данного сервиса является то, что он работает в браузере и не требует установки дополнительных плагинов (кроме, разумеется, флеш плеера, который есть почти у всех). Проще говоря, теперь для того, чтобы проверить как работает веб камера нужно просто зайти на эту страницу и посмотреть все необходимое в одном месте. Никаких скачиваний, установок, копаний в мануалах и форумах. Просто зайди и все. Часто задаваемые вопросы (FAQ) Вопрос: У меня есть программа для проверки веб камеры. Есть ли какие-либо существенные различия между ней и вашим сервисом? Ответ: наш сервис очень прост. Возможно, ваша программа обладает дополнительными и более узкоспециализированными аналитическими функциями. Наш плюс в том, что мы всегда под рукой. Вопрос: у моей web камеры на разных сайтах довольно низкий FPS. Однако, когда я пользуюсь вашим приложением то у меня скорость кадров 23-24. Почему так происходит? Ответ: дело в том, что на сайтах, которыми вы пользуетесь, трансляция происходит через сервер, поэтому происходит задержка и теряется скорость передачи. А флеш приложение на данной странице кэшируется браузером и, по сути, запускается прямо с вашего компьютера. Таким образом, сигнал идет напрямую и FPS не теряется. Вопрос: у моей вебкамеры не отображается звуковая шкала. Я вижу сам себя, но когда произношу звуки, то ничего не дергается. Как проверить микрофон? Ответ: скорее всего у вас ранее были установлены другие аудиоустройства, и флеш плеер неверно определил с какого девайса принимать звуковой сигнал. О том, как выбрать в настройках другое устройство, вы можете прочитать чуть выше в нашей инструкции. Также, возможно, в настройках установлена низкая чувствительность микрофона. Проверьте это с помощью голоса: покричите погромче. Если ничего не произойдет, то проблема все-таки в настройках. Вопрос: зачем нужно тестирование веб камеры? Ответ: чаще всего при покупке нового устройства. Однако, иногда и для диагностики оборудования. Например, если камера вдруг перестала работать и вы начинаете разбираться в проблеме, не звонить же каждый раз в скайпе и смотреть на сигнал? Намного удобнее производить отладку в нашем приложении. Вопрос: на каких устройствах я могу проверить камеру? Ответ: абсолютно на любых. Чаще всего это делают на персональном компьютере и ноутбуке со встроенной вебкой. Но можно провести тест камеры и на нетбуке, планшете и телефоне (если он поддерживает флеш плеер). Если у вас есть вопросы, замечания и отзывы по работе приложения, или у вас есть интересные предложения, вы всегда можете связаться с нами с помощью формы обратной связи или по любым другим координатам в разделе «Контакты». Мы очень надеемся, что наш сервис поможет вам проверить свою камеру на работоспособность.

    Проверка веб камеры происходит с помощью flash приложения. Сделать что сигнал с камеры поступает, как положено, вы можете провести тест веб камеры онлайн. Вопрос: У меня есть программа для проверки веб камеры.

    А всего то нужна была программа для просмотра изображения с камеры. Тот же скайп в режиме теста веб - камеры показывает.

    Comment Post a Reply Cancel reply

    Тест бюджетной веб-камеры Defender C-2535HD - Новости

    Тест бюджетной веб-камеры Defender C-2535HD

    Заметили ошибку? Выделите фрагмент текста и нажмите CTRL+ENTER!

    Совсем недавно видеозвонки посредством Skype были редкостью, сегодня же с их помощью общаются многие, ведь скоростной интернет стал доступен всем, а большинство современных ноутбуков оснащены встроенными камерами. А что делать тем, кто пользуется стационарным ПК или старым ноутбуком? Все просто: приобрести веб-камеру. На витринах магазинов их можно найти на любой вкус и цвет, а также толщину кошелька.

    Камера, о которой пойдет речь сегодня, стоит около $15. Это Defender C-2535HD. Понятно, что за такую сумму не стоит ожидать выдающихся характеристик, но ведь для простого общения с друзьями они зачастую и не нужны.

    Дизайн и конструкция

    Вначале пару слов об упаковке. Веб-камера Defender C-2535HD продается в небольшой картонной коробке белого цвета. В ее передней части имеется вырез, в котором сквозь прозрачный пластик можно видеть находящуюся внутри коробки камеру.

    Комплект поставки предельно лаконичен: внутри упаковки мы не нашли ничего кроме камеры.

    Корпус нашего экземпляра выполнен из глянцевого пластика зеленого цвета. Имеется также розовая модель веб-камеры, но основной цвет Defender C-2535HD черный. Поскольку веб-камеры выпускаются в нескольких расцветках, они подойдут для различных пользователей: как для офисных работников, предпочитающих классический черный цвет, так и для молодежи, любящей яркие цвета.

    Лицевая сторона сделана черной. Здесь посередине располагается глазок объектива с едва заметным фокусировочным кольцом, индикатор работы и прорезь микрофона.

    Тест web камеры

    Веб-камеры
    1. Microsoft LifeCam VX-2000
    2. Logitech HD Webcam C270
    3. Creative Live! Cam Chat HD
    4. Genius iSlim 1320
    5. A4Tech PK-130MJ
    Выводы теста:

    Microsoft LifeCam VX-2000. Достойные показатели по всем параметрам: качество изображения, звука, программного обеспечения и конструкции (крепление и вращение).

    Logitech HD Webcam C270. Отличное качество изображения, полноценное видео высокой четкости и хороший звук. Однако эта камера плохо держится на мониторе. Подойдет тем, кто готов пожертвовать удобством конструкции ради качества изображения.

    Creative Live! Cam Chat HD. У этой модели возникают сложности со съемкой при искусственном освещении. Вызывает сомнение полноценность заявленной функции “видео высокой четкости”. Не самая удачная конструкция (ограниченный угол поворота).

    Genius iSlim 1320. Изображение передает с задержками, звук проблемный. Зато эта камера хорошо воспроизводит детали статичного изображения. Хорошая цветопередача и автоподстройка под условия освещения.

    A4Tech PK-130MJ. Самая дешевая модель теста, и у нее больше всего недостатков в плане качества изображения. Возникают проблемы со съемкой при искусственном освещении.

    Урок 3

    Учимся работать с Web камерой в Delphi.

    На этом уроке мы научимся грабить отдельные кадры изображения с камеры. сжимать их и записывать их в файл, а затем отправлять полученное изображение по FTP протоколу на хостинг для сайта. Другими словами мы создадим простейшую программу для трансляции изображений с Web камеры на страницу сайта с использованием DirectShow.


    Создадим новое приложение в Delphi.
    Затем добавим и расположим компоненты на форму как показано на рисунке:

    Слева вверху расположена Panel1 для вывода изображения с камеры. Справа располагается Panel2 с размещенным на ней компонентом TImage свойство Proportional у Image1 устанавливаем True. в нем будем показывать с грабленое изображение. Под Panel1 размещаем компонент TListBox и кнопку TButton («Параметры и разрешение камеры» ). Справа от ListBox1 размещаем восемь компонентов TLabel и семь компонентов TEdit. И девятый компонент Label9 с надписью Caption (Трансляция изображения остановлена ) размещаем под панелями. Добавляем компонент TTimer свойство Enable устанавливаем False. На этом интерфейс приложения закончен.

    В целом граф захвата изображения с камеры, строится также как и в предыдущем уроке. Для получения кадра из потока данных Web камеры мы будем использовать интерфейсы IBaseFilter и ISampleGrabber. Передавать данные по FTP будем с помощью модуля WinInet. а для сохранения настроек FTP воспользуемся модулем IniFiles .

    Ниже привожу полный код приложения с комментариями:

    unit Unit1;
    interface
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, ExtCtrls, directshow9, ActiveX, Jpeg, WinInet, IniFiles; //не забудьте добавить выделенные модули

    // Скачать заголовочные файлы DirectShow можно здесь .

    type
    TForm1 = class(TForm)
    ListBox1: TListBox;
    Panel1: TPanel;
    Button1: TButton;
    Panel2: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit6: TEdit;
    Label6: TLabel;
    Label8: TLabel;
    Button2: TButton;
    Timer1: TTimer;
    Edit5: TEdit;
    Label5: TLabel;
    Button3: TButton;
    Label4: TLabel;
    Edit4: TEdit;
    Edit7: TEdit;
    Label7: TLabel;
    Label9: TLabel;
    function CreateGraph: HResult;
    function Initializ: HResult;
    function CaptureBitmap: HResult;
    procedure LoadIniFiles;
    procedure SaveIniFiles;

    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SendFtp;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    private
    < Private declarations >
    public
    < Public declarations >
    end;

    var
    Form1: TForm1;
    IniFile: TIniFile;
    FileName: string;
    RecMode: boolean = False;
    DeviceName:OleVariant;
    PropertyName:IPropertyBag;
    pDevEnum:ICreateDEvEnum;
    pEnum:IEnumMoniker;
    pMoniker:IMoniker;

    MArray1: array of IMoniker; //Это список моникеров, из которго
    //мы потом будем получать необходмый моникер

    //интерфейсы
    FGraphBuilder: IGraphBuilder;
    FCaptureGraphBuilder: ICaptureGraphBuilder2;
    FMux: IBaseFilter;
    FSink: IFileSinkFilter;
    FMediaControl: IMediaControl;
    FVideoWindow: IVideoWindow;
    FVideoCaptureFilter: IBaseFilter;
    FAudioCaptureFilter: IBaseFilter;
    //область вывода изображения
    FVideoRect: TRect;

    FBaseFilter: IBaseFilter;
    FSampleGrabber: ISampleGrabber;
    MediaType: AM_MEDIA_TYPE;

    function TForm1.Initializ: HResult;
    begin
    //Создаем объект для перечисления устройств
    Result:=CoCreateInstance(CLSID_SystemDeviceEnum, NIL, CLSCTX_INPROC_SERVER,
    IID_ICreateDevEnum, pDevEnum);
    if Result<>S_OK then EXIT;

    //Перечислитель устройств Video
    Result:=pDevEnum.CreateClassEnumerator(CLSID_VideoInputDeviceCategory, pEnum, 0);
    if Result<>S_OK then EXIT;
    //Обнуляем массив в списке моникеров
    setlength(MArray1,0);
    //Пускаем массив по списку устройств
    while (S_OK=pEnum.Next(1,pMoniker,Nil)) do
    begin
    setlength(MArray1,length(MArray1)+1); //Увеличиваем массив на единицу
    MArray1[length(MArray1)-1]:=pMoniker; //Запоминаем моникер в масиве
    Result:=pMoniker.BindToStorage(NIL, NIL, IPropertyBag, PropertyName); //Линкуем моникер устройства к формату хранения IPropertyBag
    if FAILED(Result) then Continue;
    Result:=PropertyName.Read('FriendlyName', DeviceName, NIL); //Получаем имя устройства
    if FAILED(Result) then Continue;
    //Добавляем имя устройства в списки
    Listbox1.Items.Add(DeviceName);
    end;

    //Первоначальный выбор устройств для захвата видео
    //Выбираем из спика камеру
    if ListBox1.Count=0 then
    begin
    ShowMessage('Камера не обнаружена');
    Result:=E_FAIL;;
    Exit;
    end;
    Listbox1.ItemIndex:=0;
    //если все ОК
    Result:=S_OK;
    end;

    function TForm1.CreateGraph:HResult;
    var
    pConfigMux: IConfigAviMux;
    begin
    //Чистим граф
    FVideoCaptureFilter := NIL;
    FVideoWindow := NIL;
    FMediaControl := NIL;
    FSampleGrabber := NIL;
    FBaseFilter := NIL;
    FCaptureGraphBuilder := NIL;
    FGraphBuilder := NIL;

    //Создаем объект для графа фильтров
    Result:=CoCreateInstance(CLSID_FilterGraph, NIL, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, FGraphBuilder);
    if FAILED(Result) then EXIT;
    // Создаем объект для граббинга
    Result:=CoCreateInstance(CLSID_SampleGrabber, NIL, CLSCTX_INPROC_SERVER, IID_IBaseFilter, FBaseFilter);
    if FAILED(Result) then EXIT;
    //Создаем объект для графа захвата
    Result:=CoCreateInstance(CLSID_CaptureGraphBuilder2, NIL, CLSCTX_INPROC_SERVER, IID_ICaptureGraphBuilder2, FCaptureGraphBuilder);
    if FAILED(Result) then EXIT;

    // Добавляем фильтр в граф
    Result:=FGraphBuilder.AddFilter(FBaseFilter, 'GRABBER');
    if FAILED(Result) then EXIT;
    // Получаем интерфейс фильтра перехвата
    Result:=FBaseFilter.QueryInterface(IID_ISampleGrabber, FSampleGrabber);
    if FAILED(Result) then EXIT;

    if FSampleGrabber <> NIL then
    begin
    //обнуляем память
    ZeroMemory(@MediaType, sizeof(AM_MEDIA_TYPE));
    // Устанавливаем формат данных для фильтра перехвата
    with MediaType do
    begin
    majortype := MEDIATYPE_Video;
    subtype := MEDIASUBTYPE_RGB24;
    formattype := FORMAT_VideoInfo;
    end;

    // Данные будут записаны в буфер в том виде, в котором они
    // проходят через фильтр
    FSampleGrabber.SetBufferSamples(TRUE);

    // Граф не будет остановлен для получения кадра
    FSampleGrabber.SetOneShot(FALSE);
    end;

    //Задаем граф фильтров
    Result:=FCaptureGraphBuilder.SetFiltergraph(FGraphBuilder);
    if FAILED(Result) then EXIT;

    //выбор устройств ListBox - ов
    if Listbox1.ItemIndex>=0 then
    begin
    //получаем устройство для захвата видео из списка моникеров
    MArray1[Listbox1.ItemIndex].BindToObject(NIL, NIL, IID_IBaseFilter, FVideoCaptureFilter);
    //добавляем устройство в граф фильтров
    FGraphBuilder.AddFilter(FVideoCaptureFilter, 'VideoCaptureFilter'); //Получаем фильтр графа захвата
    end;

    //Задаем, что откуда будем получать и куда оно должно выводиться
    Result:=FCaptureGraphBuilder.RenderStream(@PIN_CATEGORY_PREVIEW, nil, FVideoCaptureFilter ,FBaseFilter ,nil);
    if FAILED(Result) then EXIT;

    //Получаем интерфейс управления окном видео
    Result:=FGraphBuilder.QueryInterface(IID_IVideoWindow, FVideoWindow);
    if FAILED(Result) then EXIT;
    //Задаем стиль окна вывода
    FVideoWindow.put_WindowStyle(WS_CHILD or WS_CLIPSIBLINGS);
    //Накладываем окно вывода на Panel1
    FVideoWindow.put_Owner(Panel1.Handle);
    //Задаем размеры окна во всю панель
    FVideoRect:=Panel1.ClientRect;
    FVideoWindow.SetWindowPosition(FVideoRect.Left,FVideoRect.Top, FVideoRect.Right - FVideoRect.Left,FVideoRect.Bottom - FVideoRect.Top);
    //показываем окно
    FVideoWindow.put_Visible(TRUE);

    //Запрашиваем интерфейс управления графом
    Result:=FGraphBuilder.QueryInterface(IID_IMediaControl, FMediaControl);
    if FAILED(Result) then Exit;
    //Запускаем отображение просмотра с вебкамер
    FMediaControl.Run();
    end;

    //с помощью этой функции будем грабить изображение
    function TForm1.CaptureBitmap: HResult;
    var
    bSize: integer;
    pVideoHeader: TVideoInfoHeader;
    MediaType: TAMMediaType;
    BitmapInfo: TBitmapInfo;
    Buffer: Pointer;
    tmp: array of byte;
    Bitmap: TBitmap;
    JpegIm: TJpegImage;
    begin
    // Результат по умолчанию
    Result := E_FAIL;

    // Если отсутствует интерфейс фильтра перехвата изображения,
    // то завершаем работу
    if FSampleGrabber = NIL then EXIT;

    // Получаем размер кадра
    Result := FSampleGrabber.GetCurrentBuffer(bSize, NIL);
    if (bSize <= 0) or FAILED(Result) then EXIT;
    // Создаем изображение
    Bitmap := TBitmap.Create;
    try
    //обнуляем память
    ZeroMemory(@MediaType, sizeof(TAMMediaType));
    // Получаем тип медиа потока на входе у фильтра перехвата
    Result := FSampleGrabber.GetConnectedMediaType(MediaType);
    if FAILED(Result) then EXIT;

    // Копируем заголовок изображения
    pVideoHeader := TVideoInfoHeader(MediaType.pbFormat^);
    ZeroMemory(@BitmapInfo, sizeof(TBitmapInfo));
    CopyMemory(@BitmapInfo.bmiHeader, @pVideoHeader.bmiHeader, sizeof(TBITMAPINFOHEADER));

    // Создаем побитовое изображение
    Bitmap.Handle := CreateDIBSection(0, BitmapInfo, DIB_RGB_COLORS, Buffer, 0, 0);

    // Выделяем память во временном массиве
    SetLength(tmp, bSize);

    try
    // Читаем изображение из медиа потока во временный буфер
    FSampleGrabber.GetCurrentBuffer(bSize, @tmp[0]);

    // Копируем данные из временного буфера в наше изображение
    CopyMemory(Buffer, @tmp[0], MediaType.lSampleSize);

    //если необходимо сохранить изображение в bmp файле
    //Bitmap.SaveToFile('Имя файла.bmp');

    // Конвертируем изображение в Jpeg
    //создаем объект JpegImage
    JpegIm := TJpegImage.Create;
    //устанавливаем связь с объектом Bitmap
    JpegIm.Assign(Bitmap);
    //задаем степень сжатия
    JpegIm.CompressionQuality := 30;
    //сжимаем
    JpegIm.Compress;
    //сохраняем в файл
    FileName:=Edit7.Text;
    JpegIm.SaveToFile(FileName);

    // В случае сбоя возвращаем ошибочный результат
    Result := E_FAIL;
    end;
    finally
    // Освобождаем память
    SetLength(tmp, 0);
    Bitmap.Free;
    JpegIm.Free;
    end;
    end;

    //процедура запускает процесс получения кадра и его переда по FTP
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    //проверяем если устройства для захвата изображения
    if Listbox1.Count=0 then
    Begin
    ShowMessage('Внимание! Камера не обнаружена.');
    Exit;
    End;
    //Грабим кадр и начинаем передачу изображения
    if FAILED(CaptureBitmap) then
    Begin
    ShowMessage('Внимание! Произошла ошибка при получении изображения');
    Exit;
    End;
    Label9.Caption:='Идет трансляция изображения';
    SendFtp;
    //запуск таймера с заданным интервалом
    Timer1.Interval:=StrToInt(Edit6.Text)*1000;
    Timer1.Enabled:=True;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    //Вызов страницы свойств Web-камеры
    var
    StreamConfig: IAMStreamConfig;
    PropertyPages: ISpecifyPropertyPages;
    Pages: CAUUID;
    Begin
    //если запись уже идет - выходим
    If RecMode then Exit;
    // Если отсутствует интерфейс работы с видео, то завершаем работу
    if FVideoCaptureFilter = NIL then EXIT;
    // Останавливаем работу графа
    FMediaControl.Stop;
    try
    // Ищем интерфейс управления форматом данных выходного потока
    // Если интерфейс найден, то.
    if SUCCEEDED(FCaptureGraphBuilder.FindInterface(@PIN_CATEGORY_CAPTURE,
    @MEDIATYPE_Video, FVideoCaptureFilter, IID_IAMStreamConfig, StreamConfig)) then
    begin
    //. пытаемся найти интерфейс управления страницами свойств.
    //. и, если он найден, то.
    if SUCCEEDED(StreamConfig.QueryInterface(ISpecifyPropertyPages, PropertyPages)) then
    begin
    //. получаем массив страниц свойств
    PropertyPages.GetPages(Pages);
    PropertyPages := NIL;

    // Отображаем страницу свойств в виде модального диалога
    OleCreatePropertyFrame(
    Handle,
    0,
    0,
    PWideChar(ListBox1.Items.Strings[listbox1.ItemIndex]),
    1,
    @StreamConfig,
    Pages.cElems,
    Pages.pElems,
    0,
    0,
    NIL
    );

    // Освобождаем память
    StreamConfig := NIL;
    CoTaskMemFree(Pages.pElems);
    end;
    end;

    finally
    // Восстанавливаем работу графа
    FMediaControl.Run;
    end;
    end;

    //остановка передачи изображения
    procedure TForm1.Button3Click(Sender: TObject);
    begin
    Label9.Caption:='Трансляция изображения остановлена';
    Timer1.Enabled:=False;
    end;


    procedure TForm1.FormCreate(Sender: TObject);
    begin
    //загружаем настройки из ini файла
    LoadIniFiles;
    CoInitialize(nil);// инициализировать OLE COM
    //вызываем процедуру поиска и инициализации устройств захвата видео и звука
    if FAILED(Initializ) then
    Begin
    ShowMessage('Внимание! Произошла ошибка при инициализации');
    Exit;
    End;
    //проверяем найденный список устройств
    if Listbox1.Count>0 then
    Begin
    //если необходимые для работы устройства найдены,
    //то вызываем процедуру построения графа фильтров
    if FAILED(CreateGraph) then
    Begin
    ShowMessage('Внимание! Произошла ошибка при построении графа фильтров');
    Exit;
    End;
    end else
    Begin
    ShowMessage('Внимание! Камера не обнаружена.');
    //Application.Terminate;
    End;
    end;

    procedure TForm1.FormDestroy(Sender: TObject);
    begin
    // Освобождаем память
    pEnum := NIL;
    pDevEnum := NIL;
    pMoniker := NIL;
    PropertyName := NIL;
    DeviceName:=Unassigned;
    CoUninitialize;// деинициализировать OLE COM
    //сохраняем настройки в inifile
    SaveIniFiles;
    IniFile.Free;
    end;


    //Выбор устройств из ListBox1
    procedure TForm1.ListBox1DblClick(Sender: TObject);
    begin
    if ListBox1.Count=0 then
    Begin
    ShowMessage('Камера не найдена');
    Exit;
    End;
    //перестраиваем граф при смене камеры
    if FAILED(CreateGraph) then
    Begin
    ShowMessage('Внимание! Произошла ошибка при построении графа фильтров');
    Exit;
    End;
    end;


    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    //грабим кадр
    if FAILED(CaptureBitmap) then
    Begin
    ShowMessage('Внимание! Произошла ошибка при получении изображения');
    Exit;
    End;
    //вызываем процедуру пересылки изображения по FTP
    SendFtp;
    end;

    //Передача файла по FTP
    procedure TForm1.SendFtp;
    var Username,Password,Folder, Port, Server:String;
    inet_open, conn_param :pointer;
    begin
    //Передача файла по FTP
    Folder:=Edit5.Text;
    Username:=Edit2.Text;
    Password:=Edit3.Text;
    Port:=Edit4.Text;
    Server:=Edit1.Text;
    FileName:=Edit7.Text;
    //выводим отправляемую картинку в Image1
    Image1.Picture.LoadFromFile(FileName);
    //Открываем интернет соединение
    inet_open:= internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
    //подключаемся к FTP серверу
    conn_param:=internetconnect(inet_open, PChar(Server), strtoint(Port), PChar(Username), PChar(Password), INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
    //задаем директорию для копирования файла
    FtpSetCurrentDirectory(conn_param, PChar(Folder));
    //Передаем файл по FTP
    if ftpputfile(conn_param,PChar(FileName),PChar(FileName), FTP_TRANSFER_TYPE_UNKNOWN,0)=false then
    begin
    ShowMessage('Ошибка. Загрузка не удалась!');
    Label9.Caption:='Трансляция изображения остановлена';
    Timer1.Enabled:=false;
    end;
    //выдаем звуковой сигнал об успешной отправке изображения
    beep;
    //Закрываем соединение
    internetclosehandle(conn_param);
    internetclosehandle(inet_open) ;
    end;

    //процедура загрузки данных из inifile
    procedure TForm1.LoadIniFiles;
    begin
    //создание inifile с именем Config.ini
    IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
    //загрузка настроек из inifile
    //положение формы и размер
    Form1.Left:=IniFile.ReadInteger('Form info','Left',285);
    Form1.Top:=IniFile.ReadInteger('Form info','Top',168);
    //Параметры FTP сервера
    Edit1.Text:=IniFile.ReadString('FTP','Host','');
    Edit2.Text:=IniFile.ReadString('FTP','UserName','');
    Edit3.Text:=IniFile.ReadString('FTP','Password','');
    Edit4.Text:=IniFile.ReadString('FTP','Port','21');
    Edit5.Text:=IniFile.ReadString('FTP','Folder','/');
    Edit6.Text:=IniFile.ReadString('FTP','Interval','20');
    Edit7.Text:=IniFile.ReadString('FTP','FileName','');
    end;

    //процедура сохранения настроек в inifile
    procedure TForm1.SaveIniFiles;
    begin
    //сохраняем настройки в inifile
    //форма
    IniFile.WriteInteger('Form info','Left',Left);
    IniFile.WriteInteger('Form info','Top',Top);
    //Параметры FTP сервера
    IniFile.WriteString('FTP','Host',Edit1.Text);
    IniFile.WriteString('FTP','UserName',Edit2.Text);
    IniFile.WriteString('FTP','Password',Edit3.Text);
    IniFile.WriteString('FTP','Port',Edit4.Text);
    IniFile.WriteString('FTP','Folder',Edit5.Text);
    IniFile.WriteString('FTP','Interval',Edit6.Text);
    IniFile.WriteString('FTP','FileName',Edit7.Text);
    end;
    end.

    Далее на сам сайт ставите следующий скрипт в HTML:

    код автоподгрузки изображения с WEB камеры на сайте:

    <html>
    <head><title>Play Web Camera</title>
    </head>

    <script language="JavaScript">
    function go()
    <
    var now = new Date();
    var id= parseInt(now.getTime() / 1000);
    document.images.cam.src="http://basicsprog.ucoz.ru/publ/path/image.jpg?"+id;
    setTimeout("go()", 5000);
    >
    setTimeout("go()", 5000);
    </script>
    <body>

    <div align="center">
    <b>Тест Web камеры</b><br><br>
    <img src="http://basicsprog.ucoz.ru/publ/path/image.jpg" name="cam"><br>
    </div>
    </body>
    </html>


    Данный скрипт позволяет обновлять изображение на сайте каждые 5 секунд. В место path/image.jpg вы должны указать свое подгружаемое изображение. Для изменения времени обновления в место 5000 (5 секунд) укажите свое значение.
    Сохраняем и тестируем приложение.


    Весь код приведен с подробными комментариями, думаю, что разобраться с ним будет не сложно. Если возникнут вопросы, пишите в комментариях.

    В статье использованы материалы из книги "Есенин С.А. DirectX и Delphi. Разработка графических и мультимедийных приложений".

    Спасибо за внимание.

    Скачать исходники к статье можно здесь.

    В связи с возникающими вопросами по получению изображения с камеры выкладываю исходник, который просто позволяет получить изображение и поместить его на canvas.

    Автор статьи xaramamburu. сайт автора http://basicsprog.ucoz.ru.

    Не работает только при разрешении 1280х1024, точнее работает только при разрешении 640х480, с меньшим разрешением тоже не хочет. В выпадающем списке "Цветовое пространство и сжатие" два варианта: YUY2 и MJPG. Спасибо за ответ!

    Как я и предполагал у вашей камеры совершенно другой вариант цветового пространства, поэтому скорее всего придется либо с помощью GraphStudio посмотреть какой граф нужно строить для вашей камеры ну и соответственно подправить код урока или пробовать определить тип медиаданных на выходе видеокамеры и использовать интеллектуальный режим построения графа начиная с выходного Pin видеокамеры.)))

    33BLACK_CRAFTER666 (13.09.2013 13:29)

    При попытке вызвать окно свойств fMpeg2. функция OleCreatePropertyFrame возвращает ошибку E_POINTER. хотя ничего не равно nil;
    В вашем коде не видно, как вы задаёте имя файла для записи?
    Я делаю так:

    200?'200px':''+(this.scrollHeight+5)+'px');">
    FileName := IncludeSlash(gettext(edit_RecPath1))+
    formatdatetime(cfg.RecordNameFormat,now);
    pCaptureGraphBuilder.SetOutputFileName(CLSID_CMPEG2EncoderDS,StringToOleStr(FileN ame), fMpeg,pSink);
    SetVideoParams; // ставлю 15 fps

    200?'200px':''+(this.scrollHeight+5)+'px');">
    fMpeg.QueryInterface(IID_ICodecAPI,pCodecAPI);
    bitrate := 100; //в каких единицах? я пробовал 6000000 (6 мегабит)
    Result := pCodecAPI.SetValue(CODECAPI_AVEncCommonMeanBitRate,bitrate);
    case Result of
    S_FALSE:
    t := 'S_FALSE';
    E_INVALIDARG:
    T := 'E_INVALIDARG';
    end;


    Возвращает E_INVALIDARG. Справка по результатам тут: http://msdn.microsoft.com/en-us/library/windows/desktop/dd311966%28v=vs.85%29.aspx
    То есть, толи GUID не правильный, толи значение.

    Наконец мне удалось подрубить фильтр MPEG2EncoderDS. и страница свойств фильтра перестала вызываться, хотя ошибок ни каких не выдается.

    200?'200px':''+(this.scrollHeight+5)+'px');"> В вашем коде не видно, как вы задаёте имя файла для записи?


    Я все делаю аналогично вашему:
    Result:=FCaptureGraphBuilder.SetOutputFileName(CLSID_CMPEG2EncoderDS, PWideChar(FileName), FMpeg, FSink);
    if FAILED(Result) then EXIT;
    ?

    200?'200px':''+(this.scrollHeight+5)+'px');"> bitrate := 100; //в каких единицах? я пробовал 6000000 (6 мегабит)


    Судя по всему в бит/с.

    И наконец у меня получилось его изменить, делаю так:

    //Получаю битрейт по умолчанию
    Result:=FcodecAPI.GetDefaultValue(CODECAPI_AVEncCommonMeanBitRate, fvalue);
    if FAILED(Result) then EXIT;

    // Изменяю значение
    Tvardata(fvalue).VLongWord:=120000;

    //ну и задаю его фильтру
    Result:=FcodecAPI.setValue(CODECAPI_AVEncCommonMeanBitRate, fvalue);
    if FAILED(Result) then EXIT;

    //А так можно узнать диапазон возможных значений где a, b, c: OleVariant смотрите справку msdn
    Result:=FcodecAPI.GetParameterRange(CODECAPI_AVEncCommonMeanBitRate, a,b,c);
    if FAILED(Result) then EXIT;
    ShowMessage(string(a));
    ShowMessage(string(b));

    Вроде все работает, битрейт изменяется, но я писал без звука (микрофон не подключен), поэтому, что там будет со звуком сказать не могу.)))
    Да, может тему на форум вынести, а то в комментариях как то не удобно?

    Справка msdn и все тот же пример на C++, ссылку на который я вам давал выше. Единственная проблема была у меня, я ни как не мог передать новое значение битрейта фильтру, пока не до тумкал получить значение по умолчанию, определить его тип, а потом его изменить. Иначе без значения по умолчанию и явному указанию типа, он никак не хочет его задавать.)))

    25BLACK_CRAFTER666 (08.09.2013 12:17)

    я сделал вот так:

    200?'200px':''+(this.scrollHeight+5)+'px');">
    const
    CLSID_CMPEG2EncoderDS. TGUID = '<5F5AFF4A-2F7F-4279-88C2-CD88EB39D144>';
    begin
    Result:=CoCreateInstance(CLSID_FilterGraph, NIL, CLSCTX_INPROC_SERVER,
    IID_IGraphBuilder, pGraphBuilder);
    Result:=CoCreateInstance(CLSID_CaptureGraphBuilder2, NIL, CLSCTX_INPROC_SERVER,
    IID_ICaptureGraphBuilder2, pCaptureGraphBuilder);
    pCaptureGraphBuilder.SetFiltergraph(pGraphBuilder);
    MArray1[ListBox1.ItemIndex].BindToObject(NIL, NIL, IID_IBaseFilter, fCap);
    pGraphBuilder.AddFilter(fCap, 'VideoCaptureFilter');
    pCaptureGraphBuilder.RenderStream(@pin_category_preview,@mediatype_video,
    fCap,nil,nil);
    fn := 'c:\2.mpg';
    pCaptureGraphBuilder.SetOutputFileName(CLSID_CMPEG2EncoderDS,StringToOleStr(fn),
    fWriter,pSink);
    pCaptureGraphBuilder.RenderStream(@pin_category_capture,@mediatype_video,
    fCap,fWriter,nil);


    Запись пошла в MPEG со следующими параметрами: 640x480, 12 mbps, 30 fps
    Теперь не пойму, через какой интерфейс можно настроить параметры записи? Например, как самому установить битрейт?

    Смотри комментарии 4 и 15 к этому уроку, функции были рабочие (правда я изменял только разрешение, все остальное не пробовал. И код для кнопки Buttun1 (параметры и разрешение камеры) в исходнике для этого урока, плюс код для кнопки
    Button4 ( Вызов страницы свойств устройства работы с видео) из предыдущего урока.)))