videoview.pas

多媒体视频程序设计--使用Delphi 第八章 源碼 ＝＝＝＝ 8-1 静态图像采集 8-2 录像参数设置 8-3 录像控制 8-4 看边录手动录像

unit VideoView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,VFW;

type
   TCapStatusProc = procedure(Sender: TObject) of object;


  TVideoViewForm = class(TForm)
    procedure  FormCreate(Sender: TObject);
    procedure  FormDestroy(Sender: TObject);
    procedure  FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
    fDriverIndex         : integer;        // 跌癟 臱笆竟