mirror of
https://github.com/Laex/Delphi-OpenCV.git
synced 2024-11-16 00:05:52 +01:00
132 lines
4.3 KiB
ObjectPascal
132 lines
4.3 KiB
ObjectPascal
(* /*****************************************************************
|
||
// Delphi-OpenCV Demo
|
||
// Copyright (C) 2013 Project Delphi-OpenCV
|
||
// ****************************************************************
|
||
// Contributor:
|
||
// laentir Valetov
|
||
// email:laex@bk.ru
|
||
// ****************************************************************
|
||
// You may retrieve the latest version of this file at the GitHub,
|
||
// located at git://github.com/Laex/Delphi-OpenCV.git
|
||
// ****************************************************************
|
||
// The contents of this file are used with permission, subject to
|
||
// the Mozilla Public License Version 1.1 (the "License"); you may
|
||
// not use this file except in compliance with the License. You may
|
||
// obtain a copy of the License at
|
||
// http://www.mozilla.org/MPL/MPL-1_1Final.html
|
||
//
|
||
// Software distributed under the License is distributed on an
|
||
// "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||
// implied. See the License for the specific language governing
|
||
// rights and limitations under the License.
|
||
******************************************************************* *)
|
||
|
||
program latentsvmdetect;
|
||
|
||
{$APPTYPE CONSOLE}
|
||
{$POINTERMATH ON}
|
||
{$R *.res}
|
||
|
||
uses
|
||
System.SysUtils,
|
||
opencv.highgui_c,
|
||
opencv.core_c,
|
||
opencv.core.types_c,
|
||
opencv.imgproc_c,
|
||
opencv.imgproc.types_c,
|
||
opencv.objdetect_c,
|
||
opencv.cvutils,
|
||
uResourcePaths;
|
||
|
||
procedure help;
|
||
begin
|
||
Writeln('This program demonstrated the use of the latentSVM detector.');
|
||
Writeln('It reads in a trained object model and then uses that to detect the object in an image');
|
||
Writeln('Call:');
|
||
Writeln('latentsvmdetect [<image_filename> <model_filename> [<threads_number>]]');
|
||
Writeln(' The defaults for image_filename and model_filename are cat.jpg and cat.xml respectively');
|
||
Writeln(' Press any key to quit.');
|
||
end;
|
||
|
||
var
|
||
tbbNumThreads: Integer = -1;
|
||
model_filename: AnsiString = cResourceMedia + 'cat.xml';
|
||
image_filename: AnsiString = cResourceMedia + 'cat.jpg';
|
||
|
||
procedure detect_and_draw_objects(image: pIplImage; detector: pCvLatentSvmDetector; numThreads: Integer = -1);
|
||
Var
|
||
storage: pCvMemStorage;
|
||
detections: pCvSeq;
|
||
i: Integer;
|
||
start, finish: int64;
|
||
detection: TCvObjectDetection;
|
||
score: Single;
|
||
bounding_box: TCvRect;
|
||
begin
|
||
storage := cvCreateMemStorage(0);
|
||
detections := nil;
|
||
i := 0;
|
||
start := 0;
|
||
finish := 0;
|
||
start := cvGetTickCount();
|
||
detections := cvLatentSvmDetectObjects(image, detector, storage, 0.5, numThreads);
|
||
finish := cvGetTickCount();
|
||
Writeln(Format('detection time = %.3f', [(finish - start) / (cvGetTickFrequency() * 1000000.0)]));
|
||
for i := 0 to detections^.total - 1 do
|
||
begin
|
||
detection := pCvObjectDetection(cvGetSeqElem(detections, i))^;
|
||
score := detection.score;
|
||
bounding_box := detection.rect;
|
||
cvRectangle(image, cvPoint(bounding_box.x, bounding_box.y), cvPoint(bounding_box.x + bounding_box.width,
|
||
bounding_box.y + bounding_box.height), CV_RGB(cvRound(255.0 * score), 0, 0), 3);
|
||
end;
|
||
cvReleaseMemStorage(storage);
|
||
end;
|
||
|
||
Var
|
||
detector: pCvLatentSvmDetector;
|
||
image: pIplImage;
|
||
|
||
begin
|
||
try
|
||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!
|
||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||
// Attention!
|
||
// There is an error. Improper handling of memory.
|
||
help();
|
||
if ParamCount > 1 then
|
||
begin
|
||
image_filename := ParamStr(1);
|
||
model_filename := ParamStr(2);
|
||
if ParamCount > 2 then
|
||
tbbNumThreads := StrToInt(ParamStr(3));
|
||
end;
|
||
image := cvLoadImage(pCVChar(image_filename));
|
||
if not Assigned(image) then
|
||
begin
|
||
Writeln('Unable to load the image');
|
||
Writeln('Pass it as the first parameter: latentsvmdetect <path to cat.jpg> <path to cat.xml>');
|
||
Halt;
|
||
end;
|
||
detector := cvLoadLatentSvmDetector(pCVChar(model_filename));
|
||
if not Assigned(detector) then
|
||
begin
|
||
Writeln('Unable to load the model');
|
||
Writeln('Pass it as the second parameter: latentsvmdetect <path to cat.jpg> <path to cat.xml>');
|
||
cvReleaseImage(image);
|
||
Halt;
|
||
end;
|
||
detect_and_draw_objects(image, detector, tbbNumThreads);
|
||
cvNamedWindow('test', 0);
|
||
cvShowImage('test', image);
|
||
cvWaitKey(0);
|
||
cvReleaseLatentSvmDetector(detector);
|
||
cvReleaseImage(image);
|
||
cvDestroyAllWindows;
|
||
except
|
||
on E: Exception do
|
||
Writeln(E.ClassName, ': ', E.Message);
|
||
end;
|
||
|
||
end.
|