Показать сообщение отдельно
  #38  
Старый 12.01.2011, 23:30
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

А дрова для камеры точно есть?
Обычно они проводят всю работу перед тем, как вывести изображение на экран.
Вообще есть такая штука:
Код:
const
  AVICAPDLL = 'AVICAP32.DLL';
  WM_CAP_START = WM_USER;
  WM_CAP_SET_CALLBACK_FRAME = WM_CAP_START + 5;
  WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;
  WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11;
  WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41;
  WM_CAP_GET_VIDEOFORMAT = WM_CAP_START + 44;
  WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45;
  WM_CAP_GET_STATUS = WM_CAP_START + 54;
  WM_CAP_GRAB_FRAME = WM_CAP_START + 60;
  WM_CAP_STOP = WM_CAP_START + 68;
  WM_CAP_SET_PREVIEW = WM_CAP_START + 50;
  WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52;
  WM_CAP_SET_SCALE = WM_CAP_START + 53;
  WM_CAP_EDIT_COPY = WM_CAP_START + 30;
  WM_CAP_SET_CALLBACK_YIELD = WM_CAP_START + 4;
  WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START + 6;
  WM_CAP_DLG_VIDEODISPLAY = WM_CAP_START + 43;
...
// Устанавливаем параметры предпросмотра
    SendMessage(h_cam, WM_CAP_SET_SCALE, 1, 0);
    SendMessage(h_cam, WM_CAP_SET_PREVIEWRATE, 40, 0);
    SendMessage(h_cam, WM_CAP_SET_PREVIEW, 1, 0);
    SendMessage(h_cam, WM_CAP_SET_CALLBACK_FRAME, 0, Integer(@FrameCallback));
Соответственно масштаб, интервал между кадрами, показывать превью и функция обработки кадра.
Последнее для простого рисования изображения на форме не нужно.

После этого не понадобится даже таймер, а изображение будет автоматически рисоваться в окне камеры через каждые 40 миллисекунд (только далеко не все камеры поддерживают 25 кадров/сек, у моей например максимум 15)
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием