Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-15 07:45:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update sample MotionDetect

Browse Source 
Signed-off-by: Michael Grigorev <sleuthhound@gmail.com>
This commit is contained in:
Michael Grigorev 2013-05-21 12:24:18 +06:00
parent 3ba0e9bba4
commit eb1209851e
2 changed files with 40 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
samples/MultiDemo/MotionDetect/MotionDetect.dpr
View File

@ -40,8 +40,7 @@ uses
imgproc in '..\..\..\include\imgproc\imgproc.pas',
core in '..\..\..\include\core\core.pas',
core.types_c in '..\..\..\include\core\Core.types_c.pas',
core_c in '..\..\..\include\core\core_c.pas',
Mat in '..\..\..\include\core\Mat.pas';
core_c in '..\..\..\include\core\core_c.pas';
{$DEFINE RECT}
//{$DEFINE RECT} - using cvBoundingRect - work correctly
@ -56,11 +55,46 @@ var
oldframe_grey: pIplImage = nil;
contours: pCvSeq = nil;
c: pCvSeq = nil;
{$IFDEF RECT}
rect: TCvRect;
{$ELSE}
rect2d: TCvBox2D;
{$ENDIF}
key: integer;
first: boolean = true;
// Óäàëåíèå ìåëêèõ êîíòóðîâ
function remove_small_objects(img_in: pIplImage; size: integer): pIplImage;
var
img_out: pIplImage;
s_storage: pCvMemStorage;
s_contours: pCvSeq;
black, white: TCvScalar;
area: double;
begin
img_out := cvCloneImage(img_in); // Êëîíèðóåì èçîáðàæåíèå
s_storage := cvCreateMemStorage(0); // Ñîçäàåì õðàíèëèùå
s_contours := nil;
black := CV_RGB(0, 0, 0); // ×åðíûé öâåò
white := CV_RGB(255, 255, 255); // Áåëûé öâåò
s_contours := AllocMem(SizeOf(TCvSeq));
// Èùåì êîíòóðû íà èçîáðàæåíèè
cvFindContours(img_in, s_storage, @s_contours, SizeOf(TCvContour), CV_RETR_LIST, CV_CHAIN_APPROX_SIMPLE, cvPoint(0, 0));
while (s_contours <> nil) do
begin
area := cvContourArea(s_contours, CV_WHOLE_SEQ);
if abs(area) <= size then // Åñëè ïëîùàäü ìåíüøå ïîðîãà, òî óäàëÿåì
cvDrawContours(img_out, s_contours, black, black, -1, CV_FILLED, 8, cvPoint(0, 0))
else
cvDrawContours(img_out, s_contours, white, white, -1, CV_FILLED, 8, cvPoint(0, 0));
s_contours := s_contours.h_next; // Ïåðåõîäèì ê ñëåäóþùåìó êîíòóðó
end;
cvReleaseMemStorage(s_storage); // Óäàëÿåì õðàíèëèùå
s_contours := nil;
FreeMem(s_contours, SizeOf(TCvSeq));
result := img_out; // Ðåçóëüòàò
end;
begin
try
capture := cvCreateCameraCapture(0);
@ -84,9 +118,11 @@ begin
cvAbsDiff(oldframe_grey, frame_grey, difference_img);
cvSmooth(difference_img, difference_img, CV_BLUR);
cvThreshold(difference_img, difference_img, 25, 255, CV_THRESH_BINARY);
// Óäàëÿåì ìåëêèå îáúåêòû
difference_img := remove_small_objects(difference_img, 100);
// End
contours := AllocMem(SizeOf(TCvSeq));
cvFindContours(difference_img, storage, @contours, SizeOf(TCvContour), CV_RETR_LIST, CV_CHAIN_APPROX_NONE,
cvPoint(0, 0));
cvFindContours(difference_img, storage, @contours, SizeOf(TCvContour), CV_RETR_LIST, CV_CHAIN_APPROX_NONE, cvPoint(0, 0));
c := contours;
while (c <> nil) do
begin

6
samples/MultiDemo/MotionDetect/MotionDetect.dproj
View File

@ -162,9 +162,3 @@
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=7001
DeleteMapAfterCompile=1
EurekaLog Last Line -->