[Статья] [.NET] Работа с Веб-камерой.

[OrBiT_DaRk]

Здравствуйте, сейчас я вам покажу как работать с вебкамерой на vb.net.

Нам понадобится класс [Ссылки могут видеть только зарегистрированные пользователи. ].
Создаем новый проект, добавляем класс. (Проект - Добавить класс).
Вставляем весь текст из класса выше.

Переходим к форме
Добавляем PictureBox на форму. Растягиваем на всю форму.

[Ссылки могут видеть только зарегистрированные пользователи. ]

Добавляем

Dim cam As New iCam

[Ссылки могут видеть только зарегистрированные пользователи. ]

В событие FormLoad добавляем

cam.initCam(PictureBox1.Handle.ToInt32)

[Ссылки могут видеть только зарегистрированные пользователи. ]

Если все норм, то при запуске вы увидите картинку со своей камеры.
Что бы сохранить, узнать фпс, сменить фпс, стартовать, остановить показ картинки добавим кнопки на форму.

[Ссылки могут видеть только зарегистрированные пользователи. ]

В код напишем

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pic As New PictureBox

        pic.Image = cam.copyFrame(PictureBox1, New RectangleF(0, 0, PictureBox1.Width, PictureBox1.Height))
        pic.Image.Save("123.bmp")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim myFrames As String

        myFrames = InputBox("Введите FPS")

        cam.setFrameRate(CInt(myFrames))
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        MsgBox(cam.FPS)
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If cam.iRunning Then
            MsgBox("Камера уже включена")
        Else
            cam.initCam(PictureBox1.Handle.ToInt32)
        End If


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If cam.iRunning Then

            cam.closeCam()
        Else
            MsgBox("Камера уже выключена")
        End If
    End Sub

[Ссылки могут видеть только зарегистрированные пользователи. ]

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

Исходник:
[Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]

[avi2011class]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ругается на странном языке на эту строчку(

[OrBiT_DaRk]

Цитата: Сообщение от avi2011class Код: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ругается на странном языке на эту строчку(

У тебя кнопка есть?
На форме должна быть кнопка с названием Button1. Это видно на последнем скриншоте.

[vofka45]

разве код написан не на VB или я чего про с++ не знаю?))

[object]

vofka45, верно, это vb.net
OrBiT_DaRk, залей в аттач архив с проектом

[OrBiT_DaRk]

Исходник:
[Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]

[avi2011class]

Цитата: Сообщение от OrBiT_DaRk У тебя кнопка есть?

есть, все как положено