main.pas

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

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,VFW, ExtCtrls, Menus,PreviewRateSet,VideoView,CapStatusWin,
  ExtDlgs;

type
  TForm1 = class(TForm)
    DriverIndexLabel    : TLabel;
    DriverIndexComboBox : TComboBox;
    DriverCountLabel    : TLabel;
    DriverCountText     : TStaticText;

    ScaleCheckBox       : TCheckBox;
    PropCheckBox        : TCheckBox;

    MainMenu1           : TMainMenu;
    ParmsMenuItem       : TMenuItem;
    DriverNameMenuItem  : TMenuItem;
    DriverCapsMenuItem  : TMenuItem;

    SetupMenuItem       : TMenuItem;
    DisplayModeMenu     : TMenuItem;
    PreviewMode         : TMenuItem;
    OverlayMode         : TMenuItem;
    PreviewRateMenu     : TMenuItem;
    CompressionMenu     : TMenuItem;
    DisplayMenu         : TMenuItem;
    FormatMenu          : TMenuItem;
    VideoSourceMenu     : TMenuItem;

    ViewMenuItem        : TMenuItem;
    LiveWinMenu         : TMenuItem;
    StatusWinMenu       : TMenuItem;
    EditMenu: TMenuItem;
    CopyMenu: TMenuItem;
    SaveDIBMenu: TMenuItem;

    SavePictureDialog1: TSavePictureDialog;




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

    procedure  DriverIndexComboBoxChange(Sender: TObject);

    procedure  DriverNameMenuItemClick(Sender: TObject);
    procedure  DriverCapsMenuItemClick(Sender: TObject);
    procedure  PreviewModeClick(Sender: TObject);
    procedure  OverlayModeClick(Sender: TObject);
    procedure  PreviewRateMenuClick(Sender: TObject);
    procedure  ScaleCheckBoxClick(Sender: TObject);
    procedure  CompressionMenuClick(Sender: TObject);
    procedure  DisplayMenuClick(Sender: TObject);
    procedure  FormatMenuClick(Sender: TObject);
    procedure  VideoSourceMenuClick(Sender: TObject);
    procedure PropCheckBoxClick(Sender: TObject);
    procedure LiveWinMenuClick(Sender: TObject);
    procedure StatusWinMenuClick(Sender: TObject);
    procedure CopyMenuClick(Sender: TObject);
    procedure SaveDIBMenuClick(Sender: TObject);
    
  private
    { Private declarations }


    Function SetDisplayMode(ModeIndex:integer):Boolean;

    procedure ShowVideoViewForm(value:Boolean);
    procedure ShowVideoStatusForm(value:Boolean);
    procedure VideoViewHide(Sender:TObject);
    Procedure StatusWinHide(Sender:TObject);

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

 GetVideoDriverList(DriverIndexComboBox.Items );
 DriverCountText.Caption:=inttostr(DriverIndexComboBox.Items.Count);


 VideoViewForm:= TVideoViewForm.Create(self);
 VideoViewForm.OnHide:=VideoViewHide;
 VideoViewForm.Show;


 VideoStatusForm:=TVideoStatusForm.Create(self);
 VideoStatusForm.OnHide:=StatusWinHide;
 VideoViewForm.OnStatus:=VideoStatusForm.OnCapStatus;
 VideoStatusForm.Show;


end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if assigned(VideoViewForm) then
 begin
   VideoViewForm.Free;
 end;

 if assigned(VideoStatusForm) then
 begin
   VideoStatusForm.Free;
 end;

end;




procedure TForm1.DriverIndexComboBoxChange(Sender: TObject);
begin

 VideoViewForm.DriverIndex := DriverIndexComboBox.ItemIndex;

 VideoViewForm.DriverOpen  := TRUE;

 PreviewModeClick(nil);

end;


procedure TForm1.DriverNameMenuItemClick(Sender: TObject);
begin

 if   VideoViewForm.DriverOpen then
 begin
    showMessage('ヘ玡硈钡