Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-18 09:15:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity
fde0aa2f53
Delphi-OpenCV/samples/MultiDemo/Hello World/HelloWorld.dpr

49 lines
1.2 KiB
ObjectPascal
Raw Normal View History

To version 2.4.3 Signed-off-by: Laex <laex@bk.ru>
2013-01-01 13:29:34 +01:00
{$APPTYPE CONSOLE}
[+] 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
To version 2.4.3 Signed-off-by: Laex <laex@bk.ru>
2013-01-01 13:29:34 +01:00
program HelloWorld;
{$R *.res}
uses
System.SysUtils,
Add samples LibTest [+] cv_CalcOpticalFlowPyrLK [+] cv_SnakeImage MultiDemo [+] CameraShift [+] Squares Signed-off-by: Laex <laex@bk.ru>
2013-04-05 13:36:47 +02:00
{$I ..\..\uses_include.inc}
;
To version 2.4.3 Signed-off-by: Laex <laex@bk.ru>
2013-01-01 13:29:34 +01:00
Var
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
height: Integer = 620;
width: Integer = 440;
pt: TCvPoint;
hw: pIplImage;
font: TCvFont;
begin
try
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
pt := CvPoint(height div 4, width div 2);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 8-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, 3-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
hw := cvCreateImage(CvSize(height, width), 8, 3);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
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
CvSet(pCvArr(hw), cvScalar(0, 0, 0));
To version 2.4.3 Signed-off-by: Laex <laex@bk.ru>
2013-01-01 13:29:34 +01:00
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvInitFont(@font, CV_FONT_HERSHEY_COMPLEX, 1.0, 1.0, 0, 1, CV_AA);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
cvPutText(hw, 'OpenCV Step By Step', pt, @font, CV_RGB(150, 0, 150));
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvNamedWindow('Hello World', 0);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
cvShowImage('Hello World', hw);
// <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(hw);
cvDestroyWindow('Hello World');
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
Reference in New Issue Copy Permalink