Распознавание лиц с помощью Emgu, VB - PullRequest
Новая
       92

Распознавание лиц с помощью Emgu, VB

0 голосов
/ 04 апреля 2020

Я использую библиотеку классов Эмгу, но получаю некоторые ошибки. Это мой скрипт для распознавания лиц веб-камеры: 

Imports Emgu.CV
Imports Emgu.CV.Util
Imports Emgu.CV.CvEnum
Imports Emgu.CV.Structure
Imports Emgu.CV.HaarCascade


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    Dim capt As New Capture
    Dim img As New Image(Of Bgr, Byte)(capt.QueryFrame())

    'Load the object detector
    Dim objectToDetect As New HaarCascade("haarcascade_frontalface_default.xml")

    'Convert the image to Grayscale
    Dim imgGray As Image(Of Gray, Byte) = img.Convert(Of Gray, Byte)()

    For Each face As MCvAvgComp In imgGray.DetectHaarCascade(objectToDetect)(0)
        img.Draw(face.rect, New Bgr(Color.Red), 1)
    Next

    'Show the image
    UI.ImageViewer.Show(img)

    end sub

Я не знаю, как преобразовать 'img' в изображение с веб-камеры, потому что в этом коде не работает. Кто-нибудь знает, как исправить этот скрипт?

...