Delphi-OpenCV/samples/LibTest/cvHoughCircles/cv_HoughCircles.dpr
Laex 3ae4ef8956 Some changes
[*] Rename files of:
- Calib3d.pas in calib3d_s.pas
- Tracking.pas in tracking_s.pas
To ensure conformity with the file names OpenCV library
[!] Modules used in the project without the inclusion of relative paths. Added instructions on how to add the module search path (see readme_en.txt)
[+] Added an example Posit (cvReleasePOSITObject, cvPOSIT and others) (thanks to Frans van Daalen (CLubfitter73))

Signed-off-by: Laex <laex@bk.ru>
2013-05-26 12:50:18 +04:00

98 lines
2.8 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.
******************************************************************* *)
// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
// JCL_DEBUG_EXPERT_INSERTJDBG OFF
// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
program cv_HoughCircles;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
highgui_c,
core_c,
Core.types_c,
imgproc_c,
imgproc.types_c;
const
filename = 'Resource\opencv_logo_with_text_sm.png';
type
TFloatArray = array [0 .. 10] of Single;
pFloatArray = ^TFloatArray;
var
image: pIplImage = nil;
src: pIplImage = nil;
storage: pCvMemStorage;
results: pCvSeq;
i: Integer;
p: pFloatArray;
pt: TCvPoint;
begin
try
// ïîëó÷àåì êàðòèíêó (â ãðàäàöèÿõ cåðîãî)
image := cvLoadImage(filename, CV_LOAD_IMAGE_GRAYSCALE);
WriteLn(Format('[i] image: %s', [filename]));
// çàãðóçèì îðèãèíàëüíîå èçîáðàæåíèè
src := cvLoadImage(filename);
// õðàíèëèùå ïàìÿòè äëÿ êðóãîâ
storage := cvCreateMemStorage(0);
// cãëàæèâàåì èçîáðàæåíèå
cvSmooth(image, image, CV_GAUSSIAN, 5, 5);
// ïîècê êðóãîâ
results := cvHoughCircles(image, storage, CV_HOUGH_GRADIENT, 10, image^.width / 5);
// ïðîáåãàåìcÿ ïî êðóãàì è ðècóåì èõ íà îðèãèíàëüíîì èçîáðàæåíèè
for i := 0 to results^.total - 1 do
begin
p := pFloatArray(cvGetSeqElem(results, i));
pt := CvPoint(cvRound(p^[0]), cvRound(p^[1]));
cvCircle(src, pt, cvRound(p^[2]), CV_RGB(255, 0, 0));
end;
// ïîêàçûâàåì
cvNamedWindow('cvHoughCircles', 1);
cvShowImage('cvHoughCircles', src);
// æä¸ì íàæàòèÿ êëàâèøè
cvWaitKey(0);
// îcâîáîæäàåì ðåcóðcû
cvReleaseMemStorage(storage);
cvReleaseImage(image);
cvReleaseImage(src);
cvDestroyAllWindows();
except
on E: Exception do
WriteLn(E.ClassName, ': ', E.Message);
end;
end.