main.pas

多媒體視頻程序設計--使用Delphi 第六章 源碼 6-1 视频显示模式 6-2 画面显示速度 6-3 显示画面尺寸调整

unit Main;

interface

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

type
  TForm1 = class(TForm)
    DriverIndexLabel    : TLabel;
    DriverIndexComboBox : TComboBox;
    DriverCountLabel    : TLabel;
    DriverCountText     : TStaticText;
    VideoCapPanel       : TPanel;
    ConnectButton       : TButton;
    DisConnectButton    : TButton;
    MainMenu1           : TMainMenu;
    ParmsMenuItem       : TMenuItem;
    DriverNameMenuItem  : TMenuItem;
    DriverCapsMenuItem  : TMenuItem;
    SetupMenuItem       : TMenuItem;
    DisplayModeMenu     : TMenuItem;
    PreviewMode         : TMenuItem;
    OverlayMode         : TMenuItem;
    PreviewRateMenu: TMenuItem;
    ScaleCheckBox: TCheckBox;

    procedure DriverIndexComboBoxChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ConnectButtonClick(Sender: TObject);
    procedure DisConnectButtonClick(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 VideoCapPanelResize(Sender: TObject);
  private
    { Private declarations }
    FVideoCapWinH:THandle;
    FIsConnect:Boolean;

    
    Function SetDisplayMode(ModeIndex:integer):Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 wDriverIndex   :DWORD;
 DrvCount       :integer;
 DrvName        :array[0..80] of char;
 DrvVer         :array[0..80] of char;

begin

 DrvCount:=0;

 for    wDriverIndex:=0  to 9 do
 if   capGetDriverDescription(wDriverIndex,DrvName,sizeof(DrvName),DrvVer,sizeof(DrvName)) then
 begin
  inc(DrvCount);
 end;
 DriverCountText.Caption:=inttostr(DrvCount);


 FVideoCapWinH:=capCreateCaptureWindow ('TEST',WS_CHILD or WS_VISIBLE,
 0,0,VideoCapPanel.Width,VideoCapPanel.Height,VideoCapPanel.Handle,0);


 FIsConnect:=FALSE;

end;

procedure TForm1.DriverIndexComboBoxChange(Sender: TObject);
var
 wDriverIndex   :DWORD;
 DrvName        :array[0..80] of char;
 DrvVer         :array[0..80] of char;
 errmsg         :string;
begin

 if    FIsConnect then DisConnectButtonClick(nil);

 wDriverIndex:= DriverIndexComboBox.ItemIndex;
 if    capGetDriverDescription(wDriverIndex,DrvName,sizeof(DrvName),DrvVer,sizeof(DrvName)) then
 begin
  ConnectButtonClick(nil);
 end
 else
 begin
  Beep;
  errmsg:='Error: Driver Index='+inttostr(wDriverIndex)+'