Yes, the whole zip was extracted. A Little bit strange is, that e.g. the "GetFaces" Demo runs, when I click there to add Classifiers, it works.
In Getfaces:
procedure TMainForm.CheckListBox1ClickCheck(Sender: TObject);
var
objName:AnsiString;
i:integer;
begin
for i := 0 to CheckListBox1.Items.Count-1 do
begin
objName := AnsiString( CheckListBox1.Items[i] );
// if selected and not already inserted (then add object)
if (CheckListBox1.Checked[i]) and (not m_objectsFinder.classifierExists(PAnsiChar(objName))) then
m_objectsFinder.addClassifier(PAnsiChar(objName), IEVisionLib.createCascadeClassifier(PAnsiChar(objName)))
// if not selected but already inserted (then remove object)
else if (not CheckListBox1.Checked[i]) and (m_objectsFinder.classifierExists(PAnsiChar(objName))) then
m_objectsFinder.removeClassifier(PAnsiChar(objName));
end;
end;
OK.
In FaceRecognizer:
m_objectsFinder := IEVisionLib().createObjectsFinder();
for i := 0 to High(CLASSIFIERS) do
m_objectsFinder.addClassifier(PAnsiChar(CLASSIFIERS[i]), IEVisionLib.createCascadeClassifier(PAnsiChar(CLASSIFIERS[i])));
is NOT OK
HS
Search
