摄像头抓图问题

ahjoe 2009-12-02 03:07:27

只需要抓取单张的图片，不要独占打开摄像头。即使摄像头正在使用中也能抓图。
抓取的图像不要保存到文件，直接放到内存位图中。
高手快来。

解决了另送100分。

...全文

431 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

ahjoe 2009-12-18

打赏
举报

谢谢各位朋友的回复，看来这个问题暂时无解。

蒋晟 2009-12-13

打赏
举报

只有摄像头驱动实现了非独占使用，你的软件才可以实现非独占使用。硬件不支持的功能，软件是不能做到的。

DrillMaster 2009-12-12

打赏
举报

学习了

ahjoe 2009-12-08

打赏
举报

谢谢各位的解答! 我的摄像头，即使摄像头正在使用中(比如QQ视频中)，我按摄像头上的拍照按钮，它会拍照并弹出一个照片窗口，显示拍下的图片。所以我在想，我是不是也能实现这样的效果。我的摄像头驱动就是最常见的301P。

hjkto 2009-12-08

打赏
举报

dspack这个控件你试试，好像能达到你楼上说的效果

无条件为你 2009-12-07

打赏
举报

楼主，如果摄相头正在使用，而且使用的程序又不是当前窗口，那么是很难取到图片的。因为摄相头不允许双开。

蒋晟 2009-12-07

打赏
举报

一般硬件的驱动都是做成独占的。要非独占的话只有自己写虚拟的摄像头驱动，从物理摄像头抓了数据之后分发到连接的客户端

davidpeter 2009-12-07

打赏
举报

学习中。

haochin 2009-12-05

打赏
举报

[Quote=引用 5 楼 hjkto 的回复:]
引用 4 楼 mysterx 的回复:
楼上上的代码，只能独占吧。

相当于顶帖的作用
[/Quote]

你总是搞这种飞机。。。。

hjkto 2009-12-03

打赏
举报

[Quote=引用 4 楼 mysterx 的回复:]
楼上上的代码，只能独占吧。
[/Quote]

相当于顶帖的作用

猴子先生大宝贝 2009-12-03

打赏
举报

楼上上的代码，只能独占吧。

-失魂落魄- 2009-12-03

打赏
举报

看看`

hjkto 2009-12-02

打赏
举报



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;



type

  TForm1 = class(TForm)

    Panel1: TPanel;

    SaveDialog1: TSaveDialog;

    Panel2: TPanel;

    OpenVideo: TButton;

    CloseVideo: TButton;

    SaveBMP: TButton;

    StartAVI: TButton;

    StopAVI: TButton;

    procedure FormCreate(Sender: TObject);

    procedure OpenVideoClick(Sender: TObject);

    procedure CloseVideoClick(Sender: TObject);

    procedure SaveBMPClick(Sender: TObject);

    procedure StartAVIClick(Sender: TObject);

    procedure StopAVIClick(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

  hWndC : THandle;

CapturingAVI : bool;

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



const WM_CAP_START = WM_USER;

const WM_CAP_STOP = WM_CAP_START + 68;

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;

const WM_CAP_GRAB_FRAME = WM_CAP_START + 60;

const WM_CAP_SEQUENCE = WM_CAP_START + 62;

const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20;

const WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+  63 ;

const WM_CAP_SET_OVERLAY =WM_CAP_START+  51 ;

const WM_CAP_SET_PREVIEW =WM_CAP_START+  50 ;

const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6;

const WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2;

const WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3;

const WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5;

const WM_CAP_SET_SCALE=WM_CAP_START+  53 ;

const WM_CAP_SET_PREVIEWRATE=WM_CAP_START+  52 ;

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

  CapturingAVI := false;

  hWndC := 0;

  SaveDialog1.Options :=

  [ofHideReadOnly, ofNoChangeDir, ofPathMustExist]

end;











procedure TForm1.OpenVideoClick(Sender: TObject);

begin

  hWndC := capCreateCaptureWindowA('My Own Capture Window',

  WS_CHILD or WS_VISIBLE ,

  Panel1.Left,

  Panel1.Top,

  Panel1.Width,

  Panel1.Height,

  Form1.Handle,

  0);

  if hWndC <> 0 then

    SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0);

  SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0);

  SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0);

  SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0);

  SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0);

  SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 66, 0);

  //SendMessage(hWndC, WM_CAP_SEQUENCE_NOFILE, 1, 0);

  SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0);

  SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0);

  OpenVideo.Enabled :=false;

end;



procedure TForm1.CloseVideoClick(Sender: TObject);

begin

  if hWndC <> 0 then begin

    SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);

    hWndC := 0;

    OpenVideo.Enabled :=true;

  end;

end;



procedure TForm1.SaveBMPClick(Sender: TObject);

begin

  if hWndC <> 0 then begin

    SaveDialog1.DefaultExt := 'bmp';

    SaveDialog1.Filter := 'Bitmap files (*.bmp)|*.bmp';

  if SaveDialog1.Execute then

   SendMessage(hWndC,

   WM_CAP_SAVEDIB,

    0,

    longint(pchar(SaveDialog1.FileName)));

  end;

end;



procedure TForm1.StartAVIClick(Sender: TObject);

begin

if hWndC <> 0 then begin

SaveDialog1.DefaultExt := 'avi';

SaveDialog1.Filter := 'AVI files (*.avi)|*.avi';

if SaveDialog1.Execute then begin

CapturingAVI := true;

SendMessage(hWndC,

WM_CAP_FILE_SET_CAPTURE_FILEA,

0,

Longint(pchar(SaveDialog1.FileName)));

SendMessage(hWndC, WM_CAP_SEQUENCE, 0, 0);

end;

end;

end;



procedure TForm1.StopAVIClick(Sender: TObject);

begin

if hWndC <> 0 then begin

SendMessage(hWndC, WM_CAP_STOP, 0, 0);

CapturingAVI := false;

end;

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

CloseVideoClick(Sender);

end;



end.

hjkto 2009-12-02

打赏
举报



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;



type

  TForm1 = class(TForm)

    Panel1: TPanel;

    SaveDialog1: TSaveDialog;

    Panel2: TPanel;

    OpenVideo: TButton;

    CloseVideo: TButton;

    SaveBMP: TButton;

    StartAVI: TButton;

    StopAVI: TButton;

    procedure FormCreate(Sender: TObject);

    procedure OpenVideoClick(Sender: TObject);

    procedure CloseVideoClick(Sender: TObject);

    procedure SaveBMPClick(Sender: TObject);

    procedure StartAVIClick(Sender: TObject);

    procedure StopAVIClick(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

  hWndC : THandle;

CapturingAVI : bool;

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



const WM_CAP_START = WM_USER;

const WM_CAP_STOP = WM_CAP_START + 68;

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;

const WM_CAP_GRAB_FRAME = WM_CAP_START + 60;

const WM_CAP_SEQUENCE = WM_CAP_START + 62;

const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20;

const WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+  63 ;

const WM_CAP_SET_OVERLAY =WM_CAP_START+  51 ;

const WM_CAP_SET_PREVIEW =WM_CAP_START+  50 ;

const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6;

const WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2;

const WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3;

const WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5;

const WM_CAP_SET_SCALE=WM_CAP_START+  53 ;

const WM_CAP_SET_PREVIEWRATE=WM_CAP_START+  52 ;

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

  CapturingAVI := false;

  hWndC := 0;

  SaveDialog1.Options :=

  [ofHideReadOnly, ofNoChangeDir, ofPathMustExist]

end;











procedure TForm1.OpenVideoClick(Sender: TObject);

begin

  hWndC := capCreateCaptureWindowA('My Own Capture Window',

  WS_CHILD or WS_VISIBLE ,

  Panel1.Left,

  Panel1.Top,

  Panel1.Width,

  Panel1.Height,

  Form1.Handle,

  0);

  if hWndC <> 0 then

    SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0);

  SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0);

  SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0);

  SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0);

  SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0);

  SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 66, 0);

  //SendMessage(hWndC, WM_CAP_SEQUENCE_NOFILE, 1, 0);

  SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0);

  SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0);

  OpenVideo.Enabled :=false;

end;



procedure TForm1.CloseVideoClick(Sender: TObject);

begin

  if hWndC <> 0 then begin

    SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);

    hWndC := 0;

    OpenVideo.Enabled :=true;

  end;

end;



procedure TForm1.SaveBMPClick(Sender: TObject);

begin

  if hWndC <> 0 then begin

    SaveDialog1.DefaultExt := 'bmp';

    SaveDialog1.Filter := 'Bitmap files (*.bmp)|*.bmp';

  if SaveDialog1.Execute then

   SendMessage(hWndC,

   WM_CAP_SAVEDIB,

    0,

    longint(pchar(SaveDialog1.FileName)));

  end;

end;



procedure TForm1.StartAVIClick(Sender: TObject);

begin

if hWndC <> 0 then begin

SaveDialog1.DefaultExt := 'avi';

SaveDialog1.Filter := 'AVI files (*.avi)|*.avi';

if SaveDialog1.Execute then begin

CapturingAVI := true;

SendMessage(hWndC,

WM_CAP_FILE_SET_CAPTURE_FILEA,

0,

Longint(pchar(SaveDialog1.FileName)));

SendMessage(hWndC, WM_CAP_SEQUENCE, 0, 0);

end;

end;

end;



procedure TForm1.StopAVIClick(Sender: TObject);

begin

if hWndC <> 0 then begin

SendMessage(hWndC, WM_CAP_STOP, 0, 0);

CapturingAVI := false;

end;

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

CloseVideoClick(Sender);

end;



end.