Face Detection ActiveX Control

SetSaveResults

 

Set output JPEG or PNG image file. The image is saved with rectangles drawn around faces found in image.
 

Public Function SetSaveResults(
 ByVal imageFile As String
)

 

Parameter
imageFile
the name of the output image


No Return Value


Example

   

Visual Basic Syntax
FaceDetectionControl1.SetFrontalFaceCascade "haarcascade_frontalface_alt.xml"
FaceDetectionControl1.SetProfileFaceCascade "haarcascade_profileface.xml
FaceDetectionControl1.EnableTiltedFaceDetection True
FaceDetectionControl1.EnableEqualizeHistogram True
FaceDetectionControl1.SetMinNeighbors 4
FaceDetectionControl1.SetScaleFactor 1.06
FaceDetectionControl1.SetMinSize 0,0
FaceDetectionControl1.SetMaxSize 0,0
FaceDetectionControl1.SetSaveResults "c:\yourfolder\output.jpg"
iTotalFace = FaceDetectionControl1.CountFaces("c:\yourinputfolder\yoursource.jpg")
.FaceDetectionControl1.ClearBlackList

List1.Clear
For i = 0 To FaceDetectionControl1.DetectedRectGetCount - 1
 ix = FaceDetectionControl1.DetectedRectGetX(i)
 iy = FaceDetectionControl1.DetectedRectGetY(i)
 iwidth = FaceDetectionControl1.DetectedRectGetWidth(i)
 iheight = FaceDetectionControl1.DetectedRectGetHeight(i)
 List1.AddItem (Str(ix) + " " + Str(iy) + " " + Str(iwidth) + " " + Str(iheight))
Next