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/cvCopyMakeBorder/cv_CopyMakeBorder.dpr

61 lines
1.7 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
program cv_CopyMakeBorder;
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\opencv_logo_with_text.png';
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
image :pIplImage= nil;
dst :pIplImage= nil;
dst2 :pIplImage= nil;
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
image := cvLoadImage(filename,1);
WriteLn(Format('[i] image: %s', [filename]));
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
dst := cvCreateImage( cvSize(image^.width+20, image^.height+20), image^.depth, image^.nChannels);
dst2 := cvCreateImage( cvSize(image^.width+20, image^.height+20), image^.depth, image^.nChannels);
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvNamedWindow('original',CV_WINDOW_AUTOSIZE);
cvNamedWindow('IPL_BORDER_CONSTANT',CV_WINDOW_AUTOSIZE);
cvNamedWindow('IPL_BORDER_REPLICATE',CV_WINDOW_AUTOSIZE);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvCopyMakeBorder(image, dst, cvPoint(10,10), IPL_BORDER_CONSTANT, cvScalar(250));
cvCopyMakeBorder(image, dst2, cvPoint(10,10), IPL_BORDER_REPLICATE, cvScalar(250));
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvShowImage('original',image);
cvShowImage('IPL_BORDER_CONSTANT',dst);
cvShowImage('IPL_BORDER_REPLICATE',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(&image);
cvReleaseImage(&dst);
cvReleaseImage(&dst2);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
cvDestroyAllWindows();
end.
Reference in New Issue Copy Permalink