各位大侠救命，有没办法获得摄象头的影片。

Question

各位大侠救命，有没办法获得摄象头的影片。该摄像头是连接在USB接口的。

Answer 1

USB接口的数据传输入过程要如何控制啊？通过什么组件啊，能将USB传输转成串口吗？

Answer 2

你看一下关于USB驱动开发方面的书吧

Answer 3

到http://www.progdigy.com/去下载一个dspack可以轻松的做到视频捕捉

Answer 4

能否有人介绍一下关于USB开发方面的书。
dspack有教程吗？

Answer 5

你的摄像头装好驱动后，用dspack带的demo就可以了阿，我的就是这样用的

Answer 6

dspack比较复杂，
下个 vfw 控件,比较简单

Answer 7

已经郁闷ING很久很久了，要多少分都可以啊！

Answer 8

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';
implementation
{$R *.dfm}procedure TForm1.Button1Click(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);  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  
   begin
      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_SET_OVERLAY, 1, 0);
      SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0);
  end;end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if hWndC <> 0 then begin
    SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
    hWndC := 0;
   end;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  if hWndC <> 0 then begin
       SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(pchar('e:\test.bmp')));
       image1.Picture.LoadFromFile('e:\test.bmp');
       end;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
  if hWndC <> 0 then
  begin
    SendMessage(hWndC,WM_CAP_FILE_SET_CAPTURE_FILEA,0, Longint(pchar('e:\test.avi')));
    SendMessage(hWndC, WM_CAP_SEQUENCE, 0, 0);
  end;
end;procedure TForm1.Button5Click(Sender: TObject);
begin
  if hWndC <> 0 then begin
     SendMessage(hWndC, WM_CAP_STOP, 0, 0);
  end;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if hWndC <> 0 then begin
    SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
  end;
end;

Answer 9

当然有，我有实例。[email protected]