要从小摄像头中抓取一幅图片，如何用DELPHI实现？

要从小摄像头中抓取一幅图片，如何用DELPHI实现？
小弟有一个摄像头，想编程实现类似照相机的功能--可以一张一张图片的保存。谢谢!!!

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

首先你要下载一个这个控件：videocap  安装上！！！！
好像只有Delphi 5 的：）
将图片Save在剪贴板中：
procedure TMain.Button2Click(Sender: TObject);
begin
VideoCap1.GrabFrameNoStop;
VideoCap1.SaveToClipboard;
end;然后再保存：
procedure TMain.Bottun1Click(Sender: TObject);
begin
VideoCap1.SingleImageFile:= EditSPict.Text;
VideoCap1.GrabFrameNoStop;if not VideoCap1.SaveAsDib then
MessageDlg('Could not save picture',mtError,[mbOK],0)
else
MessageDlg('Picture saved',mtInformation,[mbOK],0);
end;
unit mcapvideou;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    OpenVideo: TButton;
    CloseVideo: TButton;
    GrabFrame: TButton;
    SaveBMP: TButton;
    StartAVI: TButton;
    Panel1: TPanel;
    StopAVI: TButton;
    SaveDialog1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure CloseVideoClick(Sender: TObject);
    procedure OpenVideoClick(Sender: TObject);
    procedure GrabFrameClick(Sender: TObject);
    procedure SaveBMPClick(Sender: TObject);
    procedure StartAVIClick(Sender: TObject);
    procedure StopAVIClick(Sender: TObject);
  private
    hWndC : THandle;
    CapturingAVI : bool;
  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; 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_DRIVER_CONNECT, 0, 0);
end;procedure TForm1.CloseVideoClick(Sender: TObject);
begin
if hWndC <> 0 then
  begin
    SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
    hWndC := 0;
  end;
end;procedure TForm1.GrabFrameClick(Sender: TObject);
begin
  if hWndC <> 0 then
     SendMessage(hWndC, WM_CAP_GRAB_FRAME, 0, 0);
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;end.
把capture换成你要播放的设备的hwnd即可unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
var
    caps: THandle = 0;
    getFrame: function(hwnd:HWnd;szName: PChar): Boolean;stdcall;procedure TForm1.Button1Click(Sender: TObject);
var
    capture: HWnd;
begin
    capture := FindWindow(nil, 'Windows Media Player');
    if capture <> 0 then
    begin
        caps := LoadLibrary('avicap32.dll');
        if caps <> 0 then
        begin
            @getFrame := GetProcAddress(caps, 'capFileSaveDIB');
            getFrame(capture, 'd:\1.dib');
            FreeLibrary(caps);
        end;
    end;
end;end.
我现在也在开发这个项目!
   在监狱的电脑上安装摄像头!这样犯人和家属可以通过Internet  进行网络会话,包括视频.
我以前从未涉及到这方法的知识!不知道从何下手!
请各位大哥大大出手!!
     应该用什么硬件设备?在开发方面该注意什么?http://expert.csdn.net/Expert/topic/1149/1149055.xml?temp=.5292932
希望我这分资料对你有帮助!
如果可以你也帮帮我一下!
视频捕获是指由专用的视频采集卡捕获声频和视频信息，然后将其进行数据化处理，再经过软件的压缩进行处理，这时就可对这些数据进行保存、回放、传输等各种操作。
Windows专门提供了Video for Windows来对视频处理进行支持，提供的接口可以被大多数的视频采集卡支持，并有多种视频压缩驱动供选择（当然视频压缩可以自己开发），采集卡支持摄像头，ＴＶ等多种输入。一.  视频捕获快速入门
    视频捕捉将一个视频流和音频流数字化, 然后存储在硬盘或其他存储介质上.
    一个AVICap视窗口句柄描述了声频与视频流的细节, 这样就使你的应用程序从AVI文件格式, 声频视频缓冲管理, 低层声频视频驱动访问等等解脱出来, AVICap为应用程序提供了一个灵活的介面, 你可以仅仅使用如下几行代码就可以将视频捕捉加入你的程序:
    hWndC = capCreateCaptureWindow ( "My Own Capture Window",
        WS_CHILD | WS_VISIBLE , 0, 0, 160, 120, hwndParent, nID);
    SendMessage (hWndC, WM_CAP_DRIVER_CONNECT, 0 /* wIndex */, 0L);
    SendMessage (hWndC, WM_CAP_SEQUENCE, 0, 0L);
    一个宏其实也是使用SendMessage, 只不过提供给程序一个更易读的代码而已, 下面的这些示例就是使用宏的方法将视频捕捉加入程序:
    hWndC = capCreateCaptureWindow (    "My Own Capture Window",
        WS_CHILD | WS_VISIBLE ,    0, 0, 160, 120, hwndParent, nID);
    capDriverConnect (hWndC, 0);
    capCaptureSequence (hWndC);    当你创建了一个AVICap类的捕捉窗口并将它连接到一个视频驱动时, 此捕捉窗口即可以开始捕捉数据,你的程序可以简单的发送WM_CAP_SEQUENCE 消息(或者使用capCaptureSequence 宏)来开始捕捉.
    如果是缺省的设置, WM_CAP_SEQUENCE会开始捕捉视频音频流到CAPTURE.AVI文件中, 直到下面的某一事件发生为止:
    用户按下了ESC键或者一个鼠标键
    你的应用程序终止或异常中断捕捉操作
    磁盘已满在一个应用程序里, 你可以发送WM_CAP_STOP消息来终止捕捉数据(或者使用capCaptureStop宏), 你也可以发送WM_CAP_ABORT消息(或者使用capCaptureAbort宏)来终止.二.基本的捕获设置
基本的捕获设置包括：设置捕获速度（每秒捕获多少帧），是否同时捕获声频，捕获缓冲，允许最大丢失多少帧，是否使用ＤＯＳ内存，以及用键盘的哪个键或鼠标的哪个键来终止捕获等等。这些基本的设置都可以使用ＣＡＰＴＵＲＥＰＡＲＡＭＳ结构来描述，你可以使用capCaptureGetSetup宏来得到当前的设置，然后改变此结构的成员变量，再使用capCaptureSetSetup宏设置新的设置
例如：
１．设置捕获速度：
    捕捉速度是指捕捉任务每秒钟捕获的帧数, 你可以发送WM_CAP_GET_SEQUENCE_SETUP消息(或者使用capCaptureGetSetup宏)来得到当前的捕捉速度, 当前的捕捉速度保存在CAPTUREPARAMS结构的dwRequestMicroSecPerFrame成员变量中, 你可以通过设置此变量来改变当前设置, 单位是每毫秒连续的帧数, 你可以发送WM_CAP_SET_SEQUENCE_SETUP消息(或者使用capCaptureSetSetup宏), dwRequestMicroSecPerFrame的值是66667, 相当于每秒15帧.    ２．设置终止捕获
    你可以允许用户按下某键或某组合键或者鼠标的左右键来终止一个捕获任务, 如果是实时的捕获, 则捕获的文件将会被丢弃; 如果是单步捕获, 在终止之前所捕获的内容将会被保存.
    你可以通过发送WM_CAP_GETQUENCE_SETUP消息(或者使用capCaptureGetSetup宏)来得到当前的设置, 当前的按键设置保存在CAPTUREPARAMS的vKeyAbort成员中, 当前的鼠标设置保存在fAbortLeftMouse和fAbortRightMouse成员中. 你可以设置新的按键或按键组合, 或者鼠标左右键, 当你修改的CAPTUREPARAMS后,应该发送WM_CAP_SET_SEQUENCE_SETUP消息来进行更新(或者使用capCaptureSetSetup宏). 缺省的按键是VK_ESCAPE. 你必须在指定按键之前使用RegisterHotKey函数, 鼠标缺省的值是fAbortLeftMouse和fAbortRightMouse都为TRUE.    ３．捕获的时间限制
    CAPTUREPARAMS结构中的fLimitEnabled指示是否有时间限度, wTimeLimit指示最大的持续时间, 单位为秒.
    得到fLimitEnabled和wTimeLimit的值可以发送WM_CAP_GET_SEQUENCE_SETUP消息(或使用capCatureGetSetup宏),  当设置了这些成员变量后, 应该发送消息WM_CAP_SET_SEQUENCE_SETUP消息(或capCaptureSetSetup宏)来更新CAPTUREPARAMS结构.三.关于捕获窗口
    在捕获之前必须创建一个捕获窗口（capture window），在发送消息或使用宏的过程中都需要使用此窗口。
    １.创建一个AVICap捕获窗口
    你可以使用capCreateCaptureWindow函数来创建一个AVICap捕获窗口, 此函数将会返回一个句柄, 此句柄以后在发送消息时要用.
    你可以在一个程序里创建一个或多个捕获窗口, 然后给每一个窗口连接不同的捕获设置.    ２．将一个捕获窗口连接至捕获设备
     你可以动态的在一个捕获窗口与一个捕获设备之前连接或断接, 你可以发送WM_CAP_DRIVER_CONNECT消息来使一个捕获窗口与一个捕获设备连接或关联. 当连接上以后, 你就可以通过捕获窗口向捕获设备发送各种消息.
    如果你的系统里装有多个捕获设备, 你可以在发送WM_CAP_DRIVER_CONNECT消息时用wParam参数指定使用哪一个, 此参数是登记在SYSTEM.INI文件的[drivers]一节里的列表中的某一项, 0为第一个.
    你可以使用capGetDriverDescription函数来得到已安装的捕获设备的名称及版本, 这样你的程序就可以列举所有已安装的捕获设备和驱动, 这样用户就可以选择其中的一个来与你的捕获窗口连接.
    你可以发送WM_CAP_DRIVER_GET_NAME消息(或capDriverGetName宏)来得到连接到捕获窗口的捕获设备的名称, 得到版本发送WM_CAP_DRIVER_GET_VERSION消息(或capDriverGetVersion宏)
    你可以发送WM_CAP_DRIVER_DISCONNECT消息(或capDriverDisconnect宏)来断接.    ３．父窗口与子窗口的交互
    一些象WM_PALETTECHANGED和WM_QUERYNEWPALETTE的系统级消息只能发送到顶级窗口或OVERLAPPED窗口, 如果一个捕获窗口是子窗口,就必须通过父窗口转送.
    同样的, 如果父窗口的尺寸改变了, 它就需要通知捕获窗口, 相反地, 如果捕获窗口的尺寸改变了, 捕获窗口就需要发送消息给父窗口, 一个简单的方法就是始终保持捕获窗口的尺寸与视频流的尺寸一致, 并随时将尺寸的改变通知父窗口.    ４．捕获窗口的状态
    你可以发送WM_CAP_GET_STATUS消息(或capGetStatus宏)来得到当前捕获窗口的状态, 得到的是一个CAPSTATUS结构的拷贝, 它包含图片的尺寸, 卷轴的当前位置, overlay和preview是否已设置.
    因为CAPSTATUS信息是动态的, 你的程序应该只要捕获的视频流的尺寸或格式可能发生了改变就应该进行刷新(例如: 显示了捕获设备的视频格式以后).
    改变捕获窗口的尺寸并不影响实际的捕获的视频流的尺寸, 视频捕获设备的格式对话框捕获频流的尺寸.四.视频捕获驱动和音频驱动
１．视频捕获驱动的性能:
    你可以通过发送WM_CAP_DRIVER_GET_CAPS消息(或者capDriverGetCaps宏)来得到当前连接的视频驱动的硬件性能. 得到的信息保存在CAPDRIVERCAPS结构中.    ２．视频对话框:
    每一个视频驱动能够提供四个对话框来控制视频捕获和数字化处理, 定义压缩品质等, 这些对话框都定义在视频捕获驱动中.
    Video Source对话框用于控制选择视频来源, 此对话框列举了此视频捕获卡连接的所有视频源(典型的例如:SVHS和合成输入), 并提供了改变色调, 对比度, 饱和度. 如果视频驱动支持此对话框, 你就可以显示并更新它, 使用WM_CAP_DLG_VIDEOSOURCE消息(或capDlgVideoSource宏).
    Video Format对话框定义视频帧的尺寸以及精度, 视频捕获卡的压缩设置. 如果卡支持的话, 可以发送消息WM_CAP_DLG_VIDEOFORMAT消息或(capDlgVideoFormat宏).
    Video Display对话框控制在视频捕获期间在显示器上的显示, 此控制不会影响视频数字数据, 但是他们可能会影响数字信号的表现形式, 例如: 如果捕获设备支持overlay, 可能允许改变色调和饱和度, 关键色彩或者overlay队列. 如果卡支持, 你可以发送WM_CAP_DLG_VIDEODISPLAY消息(或者使用capDlgVideoDisplay宏).
    Video Compression对话框控制压缩品质, 如果卡支持, 发送消息WM_CAP_DLG_VIDEOCOMPRESSION(或capDlgVideoCompression宏).    ３．Preview 和 Overlay模式:
    一个视频捕获驱动对进入的视频流有两种工作模式: Preview模式和overlay模式, 如果一个捕获驱动能够执行两种方法, 用户可以在其中选择一种.
    Preview模式把从捕获硬件传来的数据送入系统内存并使用图形设备介面(GDI)将数字化帧显示在捕获窗口内. 应用程序可以在父窗口失去焦点时减缓显示速度, 当重新又得到焦点后加快显示速度, 此种模式要占用大量CPU时间.
    有三种消息控制Preview操作:
    WM_CAP_SET_PREIVEW消息(capPreview宏)允许或禁止preview模式
    WM_CAP_SET_PREVIEWRATE(capPreviewRate宏)当帧在preview模式显示时设置速度.
    WM_CAP_SET_SCALE(capPreviewScale宏)允许或禁止preview视频的缩放比例.
    当preview和scaling同时使用, 捕获的视频帧将会根据捕获窗口的尺寸自动缩放, 允许preview模式会自动关闭overlay模式.
    overlay模式是一个硬件函数它将数据送入捕获缓冲区中因而不占用CPU资源. 你可以发送消息WM_CAP_SET_OVERLAY(或capOverlay宏)给捕获窗口来启用或终止overlay模式, 允许overlay模式会自动禁止preview模式.
    你同时也可以在preview模式或overlay模式里发送WM_CAP_SET_SCROLL消息(或capSetScrollPos宏)来设置视频帧的客户区卷轴位置.    ４．视频格式
    你可以通过发送WM_CAP_GET_VIDEOFORMAT消息(或capGetVideoFormat和capGetVideoFormatSize宏)来得到视频格式的结构或结构的尺寸. 你可以通过发送CAP_SET_VIDEOFORMAT消息(或capSetVideoFormat宏)来设置视频格式.    ５．视频捕获设置
    CAPTUREPARMS结构包含了对视频捕获流的控制参数, 你可以完成以下这些任务:
    指定帧数
    指定分配多少视频缓冲
    允许或禁止声频捕获
    指定捕获的时间间隔
    指定在捕获的过程中是否使用MCI设置(VCR或者videodisc)
    指定终止流的键盘或鼠标
    specify the type of video averaging applied during capture.    得到:WM_CAP_GET_SEQUENCE_SETUP消息(或capCaptureGetSetup宏)
    设置:WM_CAP_SET_SEQUENCE_SETUP消息(或capCaptureSetSetup宏)    ６．声频格式
    你可以通过发送WM＿CAP＿GET＿AUDIOFORMAT消息（或capGetAudioFormat宏和capGetAudioFormatSize宏）来得到当前捕获音频数据的格式或尺寸格式。缺省的声频格式是：单声道、8位、11kHz PCM。当你使用WM＿CAP＿GET＿AUDIOFORMAT时，总是使用WAVEFORMATEX结构。
    设置发送消息WM＿CAP＿SET＿AUDIOFORMAT消息（或capSetAudioFormat宏），可以传送WAVEFORMAT，WAVEFORMATEX，PCMWAVEFORMAT结构指针。
五．使用视频捕获
1.创建捕获窗口(Creating a Capture Window)
    hWndC = capCreateCaptureWindow (
        (LPSTR) "My Capture Window", // window name if pop-up
        WS_CHILD | WS_VISIBLE,       // window style
        0, 0, 160, 120,              // window position and dimensions
        (HWND) hwndParent,
        (int) nID /* child ID */); 2.连接到捕获驱动(Connecting to a Capture Driver)
  下面的例子是将MSVIDEO驱动连接到句柄为hWndC的捕获窗口, 然后调用capDriverDisconnect宏来断接.
    fOK = SendMessage (hWndC, WM_CAP_DRIVER_CONNECT, 0, 0L);
    //
    // Or, use the macro to connect to the MSVIDEO driver:
    // fOK = capDriverConnect(hWndC, 0);
    //
    // Place code to set up and capture video here.
    //
    capDriverDisconnect (hWndC); 3.列举所有已安装的捕获驱动(Enumerating Installed Capture Drivers)
  下面的例子使用capGetDriverDescription函数得到已安装的捕获驱动的名称及版本:
    char szDeviceName[80];
    char szDeviceVersion[80];

    for (wIndex = 0; wIndex < 10; wIndex++)
    {
        if (capGetDriverDescription (wIndex, szDeviceName,
            sizeof (szDeviceName), szDeviceVersion,
            sizeof (szDeviceVersion))
        {
            // Append name to list of installed cap
谁会directx show 实现视频捕获（效果要好）