Управление веб-камерой

[Aleksandr_59]

В процедуре отдельного модуля в цикле осуществляется покадровая обработка картинок, снятых с веб-камерыЖ

var
  hWndC : HWND;
  hWndDC: HDC;
  PWidth: integer;
  PHeight: integer;
  PHandle: HWND;
  Bt : BITMAPINFO;
  bSkan: boolean;
  cp1: TComportDriverThread;
const strWeb: string='Веб-камера недоступна';

implementation

procedure CamCreate;
var
  strMess: string;
  ICamWidth, ICamHeight, ICamTop, ICamLeft: integer;
  dHW: double;
begin
   //создаем область для вывода получаемых в будущем картинок =)
  hWndC := capCreateCaptureWindowA('My Own Capture Window',
    WS_CHILD or WS_VISIBLE, 0, 0, PWidth, PHeight, PHandle, 0);

if hWndC <> 0 then
  hWndDC:=GetDC(hWndC);
  if SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0) <> 0 then
    begin
    SendMessage(hWndC, WM_CAP_GET_VIDEOFORMAT, SizeOf(Bt), LongInt(@Bt));
    Bt.bmiHeader.biWidth    := 640; // ваши ...поддерживаемые камерой
    Bt.bmiHeader.biHeight   := 480;
    Bt.bmiHeader.biSize     := SizeOf(Bt.bmiHeader);
    Bt.bmiHeader.biPlanes   := 1;
    Bt.bmiHeader.biBitCount := 24;
    SendMessage(hWndC, WM_CAP_SET_VIDEOFORMAT, SizeOf(Bt), LongInt(@Bt));
    SendMessage(hWndC, WM_CAP_SET_CALLBACK_FRAME, 0, Integer(@FrameCallback));
    SendMessage(hWndC, WM_CAP_GET_VIDEOFORMAT, SizeOf(Bt), LongInt(@Bt));
    end;
end;

procedure Snimok;
var
  strRez, sTemp: string;
  //xt, yl, xw, yh, intF: integer;
begin
  CamCreate;
  if hWndC=0 then Exit;
  while bSkan do
    begin
    Application.ProcessMessages;
    SendMessage(hWndC, WM_CAP_GRAB_FRAME, 0, 0);
    UnitCam.FormCam.ICam.Refresh;
    strRez:=UnitSc.Threshold(UnitCam.FormCam.ICam.Picture.Bitmap);
    if strRez<>'' then
      begin
      if strRez<>sTemp then begin beep; bSkan:=false;
        Widget.Form1.LabelNom.Caption:=strRez; end;
    end;
  CanClose;
end;

procedure CanClose;
begin
  if hWndC <> 0 then
  begin
    SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);  //"отключаемся" от веб-камеры
    hWndC := 0;
  end;
end;

function FrameCallback(hWnd: HWND; lpVHdr: PVIDEOHDR): DWORD; stdcall;
begin
  Result := 0;
// информация о изображении
  SendMessage(hWndC, WM_CAP_GET_STATUS, SizeOf(status), Integer(@status));
// вывод результата в окно
  ... здесь происходит обработка картинки
  end;

Основная процедура - это Snimok. Выход из цикла - по флагу bSkan. Насколько я понял, в ряде случаев не срабатывает процедура CanClose (освобождение камеры). Есть предположение, что это происходит, когда посылается сообщение SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0), а функция обратного вызова занята обработкой.
Собственно вопрос: как определить, обработала камера сообщение или нет? И как дальше всё же отключиться от камеры? Периодически в цикле или по таймеру, как то коряво.

[raxp]

...а что вы имеете против мультимедийного таймера?

[Aleksandr_59]

Сообщение от raxp

...а что вы имеете против мультимедийного таймера?

Да вообщем ничего, только как реализовать гарантированное отключение веб-камеры? Если сообщение послано, а она не отключилась, то при следующем запросе возникает ошибка.

[raxp]

...у вас проблема в построении самого бесконечного вызова while bSkan do ...как думаете с какой скоростью у вас происходит вызов граба ? И сколько таких запросов становится в очередь в зависимости от мощности процессора и загруженности машины? И выделяет ли она в итоге после всего этого время на ваш запрос? Кулер не шумит во время запуска?

Ставьте мультимедийный таймер и не вызывайте чаще, чем дает FPS сама WEB-ка. Да и чаще смысла нет.