VPF::Захват с Web камеры - Форум программистов

Грозный

Дата 13.3.2006, 11:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 11.3.2006

Репутация: нет
Всего: нет

Здравствуйте! Недавно понадобилось осуществить захват картинки с WEB-камеры. Посмотрел FAQ и нащёл нужное. Но из FAQ примерчик не заработал - не писал в ави, грабить кадр тоже немог и только мог сохранить кадр, полученый при подключении к девайсу, но меня это вполне устраивало... Потом я столкнулся с тем, что при подключении, камера еще не успевает настроиться и всё выдаётся в красном цвете, и спустя минуту цвета востанавливаются (ведзе - во всех програмах). Неподскажете способ устранить эту красноту, желательно без сильных изменений в коде. Код, на данный момент таков:

Код


unit Unit1; 

interface 

uses 
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls, StdCtrls; 

type 
 TForm1 = class(TForm) 
   Panel1: TPanel; 
   procedure FormCreate(Sender: TObject); 
 private 
   { Private declarations } 
   hWndC : THandle;  
 public 
   { Public declarations } 
 end; 

var 
 Form1: TForm1; 

implementation 

{$R *.DFM} 

const WM_CAP_START                  = WM_USER; 
const WM_CAP_DRIVER_CONNECT         = WM_CAP_START + 10; 
const WM_CAP_DRIVER_DISCONNECT      = WM_CAP_START + 11; 
const WM_CAP_SAVEDIB                = WM_CAP_START + 25; 

function capCreateCaptureWindowA(lpszWindowName : PCHAR; 
                                dwStyle : longint; 
                                x : integer; 
                                y : integer; 
                                nWidth : integer; 
                                nHeight : integer; 
                                ParentWin  : HWND; 
                                nId : integer): HWND; 
                                STDCALL EXTERNAL 'AVICAP32.DLL'; 

procedure TForm1.FormCreate(Sender: TObject); 
begin  
 hWndC := 0; 
 hWndC := capCreateCaptureWindowA('My Own Capture Window', 
                                  WS_CHILD or WS_VISIBLE , 
                                  Panel1.Left, 
                                  Panel1.Top, 
                                  Panel1.Width, 
                                  Panel1.Height, 
                                  Form1.Handle, 
                                  0); 
SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0); 
SendMessage(hWndC, 
                 WM_CAP_SAVEDIB, 
                 0, 
                 longint(pchar('C:\image.bmp')));  
SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0); 
end; 
end.

vovos

Дата 13.3.2006, 11:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 21.2.2006

Репутация: нет
Всего: нет

Делай лучше через DirectShow
http://www.delphi.pnz.ru/components/DSPACK234.zip
там компонент, примеры, описание

Грозный

Дата 13.3.2006, 17:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 11.3.2006

Репутация: нет
Всего: нет

Гемор, пробовал - немогу разобраться... Много лишнего...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »