Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-16 00:05:52 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity
37d4e0fd1d
Delphi-OpenCV/samples/LibTest/cvThreshold/cvThreshold_cvAdaptiveThreshold.dpr

58 lines
1.6 KiB
ObjectPascal
Raw Normal View History

[+] FaceDetect [+] cvGetSubRect [*] Changed the names of the projects Signed-off-by: Laex <laex@bk.ru>
2013-03-27 23:20:08 +01:00
// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
// JCL_DEBUG_EXPERT_INSERTJDBG OFF
// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
Many changes [*] Repository rebuilt [*] CameraCalibrate - now working [+] Improved cvSave [+] Implemented macro CV_MAT_ELEM [+] CvOpenFileStorage and more ... Signed-off-by: Laex <laex@bk.ru>
2013-04-02 00:17:25 +02:00
program cvThreshold_cvAdaptiveThreshold;
Add samples: + FloodFill + Weighted + Weighted2 + cvInRange + SplitMerge + cvAnd + CvtPixToPlane + cvCopyMakeBorder + LoadAndTransformImage Signed-off-by: Laex <laex@bk.ru>
2013-01-01 22:36:38 +01:00
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Many changes [*] Repository rebuilt [*] CameraCalibrate - now working [+] Improved cvSave [+] Implemented macro CV_MAT_ELEM [+] CvOpenFileStorage and more ... Signed-off-by: Laex <laex@bk.ru>
2013-04-02 00:17:25 +02:00
core_c in '..\..\..\include\<5C>ore\core_c.pas',
Core.types_c in '..\..\..\include\<5C>ore\Core.types_c.pas',
highgui_c in '..\..\..\include\highgui\highgui_c.pas',
imgproc.types_c in '..\..\..\include\imgproc\imgproc.types_c.pas',
imgproc_c in '..\..\..\include\imgproc\imgproc_c.pas',
uLibName in '..\..\..\include\uLibName.pas',
types_c in '..\..\..\include\<5C>ore\types_c.pas';
Add samples: + FloodFill + Weighted + Weighted2 + cvInRange + SplitMerge + cvAnd + CvtPixToPlane + cvCopyMakeBorder + LoadAndTransformImage Signed-off-by: Laex <laex@bk.ru>
2013-01-01 22:36:38 +01:00
const
[+] FaceDetect [+] cvGetSubRect [*] Changed the names of the projects Signed-off-by: Laex <laex@bk.ru>
2013-03-27 23:20:08 +01:00
filename = 'Resource\cat2.jpg';
Add samples: + FloodFill + Weighted + Weighted2 + cvInRange + SplitMerge + cvAnd + CvtPixToPlane + cvCopyMakeBorder + LoadAndTransformImage Signed-off-by: Laex <laex@bk.ru>
2013-01-01 22:36:38 +01:00
var
src: pIplImage = nil;
dst: pIplImage = nil;
dst2: pIplImage = nil;
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
src := cvLoadImage(filename, CV_LOAD_IMAGE_GRAYSCALE);
WriteLn(Format('[i] image: %s', [filename]));
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvNamedWindow('original', CV_WINDOW_AUTOSIZE);
cvShowImage('original', src);
dst := cvCreateImage(cvSize(src^.width, src^.height), IPL_DEPTH_8U, 1);
dst2 := cvCreateImage(cvSize(src^.width, src^.height), IPL_DEPTH_8U, 1);
cvThreshold(src, dst, 50, 250, CV_THRESH_BINARY);
cvAdaptiveThreshold(src, dst2, 250, CV_ADAPTIVE_THRESH_GAUSSIAN_C, CV_THRESH_BINARY, 7, 1);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvNamedWindow('cvThreshold', CV_WINDOW_AUTOSIZE);
cvShowImage('cvThreshold', dst);
cvNamedWindow('cvAdaptiveThreshold', CV_WINDOW_AUTOSIZE);
cvShowImage('cvAdaptiveThreshold', dst2);
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvWaitKey(0);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvReleaseImage(src);
cvReleaseImage(dst);
cvReleaseImage(dst2);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
cvDestroyAllWindows;
end.
Reference in New Issue Copy Permalink