Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-15 15:55:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixed samples VCLChessboardCorners

Browse Source
This commit is contained in:
Michael Grigorev 2013-05-29 13:53:58 +06:00
parent c8e197fdd9
commit d1542b508a
4 changed files with 36 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
include/calib3d/calib3d_c.pas
View File

@ -267,15 +267,16 @@ procedure cvFindExtrinsicCameraParams2(const object_points: pCvMat; const image_
// #define CV_CALIB_CB_FILTER_QUADS 4
// #define CV_CALIB_CB_FAST_CHECK 8
//
/// / Performs a fast check if a chessboard is in the input image. This is a workaround to
/// / a problem of cvFindChessboardCorners being slow on images with no chessboard
/// / - src: input image
/// / - size: chessboard size
/// / Returns 1 if a chessboard can be in this image and findChessboardCorners should be called,
/// / 0 if there is no chessboard, -1 in case of error
// CVAPI(int) cvCheckChessboard(IplImage* src, CvSize size);
function cvCheckChessboard(const image: Pointer; size: TCvSize): Integer; cdecl;
{// Performs a fast check if a chessboard is in the input image. This is a workaround to
// a problem of cvFindChessboardCorners being slow on images with no chessboard
// - src: input image
// - size: chessboard size
// Returns 1 if a chessboard can be in this image and findChessboardCorners should be called,
// 0 if there is no chessboard, -1 in case of error
CVAPI(int) cvCheckChessboard(IplImage* src, CvSize size);
}
function cvCheckChessboard(const image: pCvArr; size: TCvSize): Integer; cdecl;
// /* Detects corners on a chessboard calibration pattern */

2
samples/MultiDemo/VCLChessboardCorners/MainForm.dfm
View File

@ -3,7 +3,7 @@ object FormMain: TFormMain
Top = 154
Caption = 'Chessboard Corners'
ClientHeight = 484
ClientWidth = 1368
ClientWidth = 1284
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText

30
samples/MultiDemo/VCLChessboardCorners/MainForm.pas
View File

@ -1,11 +1,27 @@
(* / **************************************************************************************************
// Print the Calibration_Chess.png file present in Delphi-OpenCV\Bin\Resource.
// Then keep it in front on camera...
(* /*****************************************************************
// Delphi-OpenCV Demo
// Copyright (C) 2013 Project Delphi-OpenCV
// ****************************************************************
// Contributor:
// Samuele Trentin
// ****************************************************************
// 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
//
// Note: cvFindChessboardCorners
// ************************************************************************************************** *)
// 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
unit MainForm;
interface

6
samples/MultiDemo/VCLChessboardCorners/VCLChessboardCorners.dproj
View File

@ -74,7 +74,7 @@
<DCC_RangeChecking>true</DCC_RangeChecking>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<DCC_ExeOutput>C:\Delphi\Delphi-OpenCV\Bin\</DCC_ExeOutput>
<DCC_ExeOutput>..\..\..\bin</DCC_ExeOutput>
<DCC_RemoteDebug>false</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
@ -153,8 +153,8 @@
<Source Name="MainSource">VCLChessboardCorners.dpr</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k180.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp180.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k170.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp170.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Deployment/>