Delphi-OpenCV/include/opencv_classes/opencv_classes.pas
Laex dc95249786 Add sample:
[*] samples/LibTest/CvLatentSvmDetector/latentsvmdetect.dpr

Initiated translation of the C++ part OpenCV library using wrapper in the form of interfaces
An example of technology - see
* Opencv_classes\opencv_classes.sln (VC2010)
* Include\opencv_classes\opencv_classes.pas
* Samples\Classes\Mat\Mat.dpr

Submitted comments and suggestions

Signed-off-by: Laex <laex@bk.ru>
2013-05-15 01:36:16 +04:00

34 lines
978 B
ObjectPascal

unit opencv_classes;
interface
Uses WinApi.Windows;
Type
IMat = interface
['{9C458D5C-F577-4A2D-89A0-FC426B80CC56}']
// ! returns element type, similar to CV_MAT_TYPE(cvmat->type)
function _type: Integer; stdcall;
// ! returns element type, similar to CV_MAT_DEPTH(cvmat->type)
function depth: Integer; stdcall;
// ! returns element type, similar to CV_MAT_CN(cvmat->type)
function channels: Integer; stdcall;
// ! returns true if matrix data is NULL
function empty: bool; stdcall;
end;
// ! default constructor
function CreateMat: IMat; overload; safecall;
// ! constructs 2D matrix of the specified size and type
// (_type is CV_8UC1, CV_64FC3, CV_32SC(12) etc.)
function CreateMat(rows, cols, _type: Integer): IMat; overload; safecall;
implementation
Uses uLibName;
function CreateMat: IMat; external OpenCV_Classes_DLL index 1;
function CreateMat(rows, cols, _type: Integer): IMat; external OpenCV_Classes_DLL index 2;
end.