Delphi-OpenCV/samples/MultiDemo/TwoCameras/TwoCameras_C_Thread.dpr

(* /*****************************************************************
  //                       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 TwoCameras_C_Thread;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  WinApi.Windows,
  System.SysUtils,
  highgui_c,
  core_c,
  Core.types_c,
  imgproc_c,
  imgproc.types_c;

Const
  EXIT_SUCCESS = 1;

var
  crSec: TRTLCriticalSection;

Const
  VidLeft: pCVChar = 'WebCamLeft';
  VidRight: pCVChar = 'WebcamRight';

function threadFunc(param: LPVOID): DWORD; stdcall;
Var
  frm: pIplImage;
  capture: pCvCapture;
begin
  EnterCriticalSection(crSec);
  cvNamedWindow(VidLeft);
  capture := cvCreateCameraCapture(0);
  if Assigned(capture) then
  begin
    cvSetCaptureProperty(capture, CV_CAP_PROP_FRAME_WIDTH, 320);
    cvSetCaptureProperty(capture, CV_CAP_PROP_FRAME_HEIGHT, 240);
  end;
  LeaveCriticalSection(crSec);
  if Assigned(capture) then
    repeat
      EnterCriticalSection(crSec);
      frm := cvQueryFrame(capture);
      LeaveCriticalSection(crSec);
      if Assigned(frm) then
      begin
        EnterCriticalSection(crSec);
        cvShowImage(VidLeft, frm);
        LeaveCriticalSection(crSec);
      end;
      if cvWaitKey(1) = 27 then
        break;
    until not Assigned(frm);
  EnterCriticalSection(crSec);
  cvDestroyWindow(VidLeft);
  cvReleaseCapture(capture);
  LeaveCriticalSection(crSec);
  Result := EXIT_SUCCESS;
end;

function threadFunc2(param: LPVOID): DWORD; stdcall;
Var
  frm: pIplImage;
  capture: pCvCapture;
begin
  EnterCriticalSection(crSec);
  cvNamedWindow(VidRight);
  capture := cvCreateCameraCapture(1);
  if Assigned(capture) then
  begin
    cvSetCaptureProperty(capture, CV_CAP_PROP_FRAME_WIDTH, 320);
    cvSetCaptureProperty(capture, CV_CAP_PROP_FRAME_HEIGHT, 240);
  end;
  LeaveCriticalSection(crSec);
  if Assigned(capture) then
    repeat
      EnterCriticalSection(crSec);
      frm := cvQueryFrame(capture);
      LeaveCriticalSection(crSec);
      if Assigned(frm) then
      begin
        EnterCriticalSection(crSec);
        cvShowImage(VidRight, frm);
        LeaveCriticalSection(crSec);
      end;
      if cvWaitKey(1) = 27 then
        break;
    until not Assigned(frm);
  EnterCriticalSection(crSec);
  cvDestroyWindow(VidRight);
  cvReleaseCapture(capture);
  LeaveCriticalSection(crSec);
  Result := EXIT_SUCCESS;
end;

Var
  threadID, threadID2: DWORD;
  lpHandles: array [0 .. 1] of THandle;

begin
  try
    InitializeCriticalSection(crSec);
    lpHandles[0] := CreateThread(nil, 0, @threadFunc, nil, 0, threadID);
    lpHandles[1] := CreateThread(nil, 0, @threadFunc2, nil, 0, threadID2);
    WaitForMultipleObjects(Length(lpHandles), @lpHandles, TRUE, INFINITE);
    DeleteCriticalSection(crSec);
  except
    on E: Exception do
      WriteLn(E.ClassName, ': ', E.Message);
  end;

end.