Delphi-OpenCV/samples/MultiDemo/Hello World/HelloWorld.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

72 lines
2.4 KiB
ObjectPascal
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

(* /*****************************************************************
// 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 HelloWorld;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
highgui_c,
core_c,
Core.types_c;
var
// çàäà¸ì âûcîòó è øèðèíó êàðòèíêè
height: Integer = 620;
width: Integer = 440;
pt: TCvPoint;
hw: pIplImage;
font: TCvFont;
begin
try
// çàäà¸ì òî÷êó äëÿ âûâîäà òåêcòà
pt := CvPoint(height div 4, width div 2);
// cîçäà¸è 8-áèòíóþ, 3-êàíàëüíóþ êàðòèíêó
hw := cvCreateImage(CvSize(height, width), 8, 3);
// çàëèâàåì êàðòèíêó ÷¸ðíûì öâåòîì
CvSet(pCvArr(hw), cvScalar(0, 0, 0));
// èíèöèàëèçàöèÿ øðèôòà
cvInitFont(@font, CV_FONT_HERSHEY_COMPLEX, 1.0, 1.0, 0, 1, CV_AA);
// ècïîëüçóÿ øðèôò âûâîäèì íà êàðòèíêó òåêcò
cvPutText(hw, 'OpenCV Step By Step', pt, @font, CV_RGB(150, 0, 150));
// cîçäà¸ì îêîøêî
cvNamedWindow('Hello World', 0);
// ïîêàçûâàåì êàðòèíêó â cîçäàííîì îêíå
cvShowImage('Hello World', hw);
// æä¸ì íàæàòèÿ êëàâèøè
cvWaitKey(0);
// îcâîáîæäàåì ðåcóðcû
cvReleaseImage(hw);
cvDestroyWindow('Hello World');
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.