mirror of
https://github.com/Laex/Delphi-OpenCV.git
synced 2024-11-17 08:45:54 +01:00
84 lines
2.6 KiB
ObjectPascal
84 lines
2.6 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.
|
||
|
|
// *******************************************************************
|
||
|
|
// Original: http://anikettatipamula.blogspot.ro/2012/02/hand-gesture-using-opencv.html
|
||
|
|
// *******************************************************************
|
||
|
|
|
||
|
|
program HandsDetect3;
|
||
|
|
|
||
|
|
{$APPTYPE CONSOLE}
|
||
|
|
{$POINTERMATH ON}
|
||
|
|
{$R *.res}
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.SysUtils,
|
||
|
|
ocv.highgui_c,
|
||
|
|
ocv.core_c,
|
||
|
|
ocv.core.types_c,
|
||
|
|
ocv.imgproc_c,
|
||
|
|
ocv.imgproc.types_c;
|
||
|
|
|
||
|
|
Var
|
||
|
|
capture: PCvCapture;
|
||
|
|
frame: pIplImage;
|
||
|
|
hsv_image: pIplImage = nil;
|
||
|
|
hsv_mask: pIplImage;
|
||
|
|
hsv_min, hsv_max: TCvScalar;
|
||
|
|
|
||
|
|
begin
|
||
|
|
try
|
||
|
|
|
||
|
|
hsv_min := CvScalar(0, 30, 80, 0);
|
||
|
|
hsv_max := CvScalar(20, 150, 255, 0);
|
||
|
|
|
||
|
|
capture := cvCreateCameraCapture(CV_CAP_ANY);
|
||
|
|
cvNamedWindow('capture', CV_WINDOW_AUTOSIZE);
|
||
|
|
cvNamedWindow('hsv-img', CV_WINDOW_AUTOSIZE);
|
||
|
|
cvNamedWindow('hsv-msk', CV_WINDOW_AUTOSIZE);
|
||
|
|
while true do
|
||
|
|
begin
|
||
|
|
frame := cvQueryFrame(capture);
|
||
|
|
if not Assigned(hsv_image) then
|
||
|
|
begin
|
||
|
|
hsv_image := cvCreateImage(cvGetSize(frame), 8, 3);
|
||
|
|
hsv_mask := cvCreateImage(cvGetSize(frame), 8, 1);
|
||
|
|
end;
|
||
|
|
cvCvtColor(frame, hsv_image, CV_BGR2HSV);
|
||
|
|
cvShowImage('hsv-img', hsv_image);
|
||
|
|
cvInRangeS(hsv_image, hsv_min, hsv_max, hsv_mask);
|
||
|
|
cvShowImage('hsv-msk', hsv_mask);
|
||
|
|
|
||
|
|
cvShowImage('capture', frame);
|
||
|
|
if cvWaitKey(33) = 27 then
|
||
|
|
Break;
|
||
|
|
end;
|
||
|
|
cvReleaseCapture(capture);
|
||
|
|
cvReleaseImage(hsv_image);
|
||
|
|
cvReleaseImage(hsv_mask);
|
||
|
|
cvDestroyAllWindows;
|
||
|
|
except
|
||
|
|
on E: Exception do
|
||
|
|
WriteLn(E.ClassName, ': ', E.Message);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|