LECTURA DE CÓDIGO QR DESDE WEBCAM .NET

APLICACION DESARROLLADA EN LENGUAJE VB.NET QUE PERMITE LA LECTURA DE CÓDIGOS QR CAPTURADOS DESDE UNA WEBCAM

DESCARGAR LAS DOS LIBRERIAS NECESARIAS:

 http://www.mediafire.com/download/t6gad3tcqq1d81x/LibreriasQR.rar

 CODIFICACIÓN: VER CÓDIGOS EN C#

Imports AFORGE.VIDEO.DIRECTSHOW

Imports BARCODELIB.BARCODEREADER

Public Class FORM1

    Private DISPOSITIVOS As FILTERINFOCOLLECTION

    Private FUENTEVIDEO As VIDEOCAPTUREDEVICE

    Private Sub FORM1_LOAD(SENDER As Object, E As EventArgs) Handles MyBase.Load

        DISPOSITIVOS = New FILTERINFOCOLLECTION(FILTERCATEGORY.VIDEOINPUTDEVICE)

        For Each X As FILTERINFO In DISPOSITIVOS

            COMBOBOX1.ITEMS.ADD(X.NAME)

        Next

        COMBOBOX1.SELECTEDINDEX = 0

    End Sub

    'BOTON INICIAR'

    Private Sub BUTTON1_CLICK(SENDER As Object, E As EventArgs) Handles BUTTON1.CLICK

        TIMER1.ENABLED = True

        TIMER1.START()

        FUENTEVIDEO = New VIDEOCAPTUREDEVICE(DISPOSITIVOS(COMBOBOX1.SELECTEDINDEX).MONIKERSTRING)

        VIDEOSOURCEPLAYER1.VIDEOSOURCE = FUENTEVIDEO

        VIDEOSOURCEPLAYER1.START()

    End Sub

    'BOTON DETENER'

    Private Sub BUTTON2_CLICK(SENDER As Object, E As EventArgs) Handles BUTTON2.CLICK

        TIMER1.ENABLED = False

        VIDEOSOURCEPLAYER1.STOP()

    End Sub

    'EVENTO TICK DEL TIMER'

    Private Sub TIMER1_TICK(SENDER As Object, E As EventArgs) Handles TIMER1.TICK

        If VIDEOSOURCEPLAYER1.GETCURRENTVIDEOFRAME() IsNot Nothing Then

            Dim IMG As New Bitmap(VIDEOSOURCEPLAYER1.GETCURRENTVIDEOFRAME)

            Dim RESULTADOS As String() = BARCODEREADER.READ(IMG, BARCODEREADER.QRCODE)

            IMG.Dispose()

            If RESULTADOS IsNot Nothing AndAlso RESULTADOS.Count > 0 Then

                LISTBOX1.ITEMS.ADD(RESULTADOS(0))

            End If

        End If

    End Sub

End Class