camflow.dpr

来自「Delphi版本的OpenCV头文件库(以及诸多实例)」· DPR 代码 · 共 38 行

program CamFlow;
uses
  Forms,
  sysutils,
  IPL in '..\Ipl.pas',
  OpenCV in '..\OpenCV.pas',
  highGui in '..\highGui.pas',
  cvCAm in '..\cvCAm.pas';

{$R *.res}
const w =  500 ;
var  nCams : integer;
     VAL : integer;

procedure callBack( img : pIplImage);
begin
//---------------
end;

begin
   ncams := cvcamGetCamerasCount( );
   if nCams>0 then
   begin
     val := CVCAMTRUE;
     cvcamSetProperty(0, CVCAM_PROP_ENABLE     , @val);
     cvcamSetProperty(0, CVCAM_PROP_CALLBACK   ,@callback);

    if(  cvcamInit() = 0 ) then exit;
    cvcamStart();
    cvWaitKey(0);
    cvcamStop();
    cvcamExit();
   end;
end.