capparmsform.pas

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

unit CapParmsForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,VideoView, StdCtrls, Spin, ExtCtrls, Buttons,mmSystem;

type
  TCapParmsDlg = class(TForm)
    OKButton    : TBitBtn;
    CancelButton: TBitBtn;
    UndoButton  : TBitBtn;

    Bevel1: TBevel;

    Label1: TLabel;
    FrameRateEditor: TSpinEdit;
    Label2: TLabel;

    Label5: TLabel;
    DropFrameEditor: TSpinEdit;
    Label6: TLabel;


    StartPromptCheckBox: TCheckBox;
    BackgroundCheckBox : TCheckBox;
    CapAudioCheckBox   : TCheckBox;

    TimeLimitCheckBox  : TCheckBox;
    MinEditor          : TSpinEdit;
    Label3             : TLabel;
    SecEditor          : TSpinEdit;
    Label4             : TLabel;

    VideoBuffersEdit  :  TSpinEdit;
    SyncAVBox         : TCheckBox;


    MCIControlBox: TCheckBox;

    MCIPanel: TPanel;
     Label7     : TLabel;
     MCIStepCaptureBox: TCheckBox;
     MCIStartTimeLabel: TLabel;
     MCIStartTimeBox  : TSpinEdit;
     MCIStopTimeLabel : TLabel;
     MCIStopTimeBox   : TSpinEdit;
     MCISetpCapResBox : TCheckBox;
     MCIAvgFormsLabel : TLabel;
     MCIAvgFormsBox   : TSpinEdit;





    procedure UndoButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure OKButtonClick(Sender: TObject);
    procedure TimeLimitCheckBoxClick(Sender: TObject);
    procedure MCIControlBoxClick(Sender: TObject);
  private
    { Private declarations }
    procedure LoadParms;


  public
    { Public declarations }


  end;

var
  CapParmsDlg: TCapParmsDlg;

implementation

{$R *.dfm}

procedure TCapParmsDlg.FormCreate(Sender: TObject);
begin
 LoadParms;
end;

procedure TCapParmsDlg.LoadParms;
begin

 with VideoViewForm do
 begin

  FrameRateEditor.Value      := CapFrameRate;
  DropFrameEditor.Value      := PercentDropFrame;
  StartPromptCheckBox.Checked:= CapStartPrompt;
  BackgroundCheckBox.Checked := BackgroundTask;
  CapAudioCheckBox.Checked   := CaptureAudio;

  TimeLimitCheckBox.Checked  := BOOLEAN(CapTimeLimit);
  MinEditor.Enabled          := BOOLEAN(CapTimeLimit);
  SecEditor.Enabled          := BOOLEAN(CapTimeLimit);

  MinEditor.Value            := CapTimeLimit div 60;
  SecEditor.Value            := CapTimeLimit mod 60;

  VideoBuffersEdit.Value     := VideoBuffers;

  SyncAVBox.Checked          :=  SyncAVStream;


 if (MCIDevicesCount(MCI_DEVTYPE_VCR)> 0) or
    (MCIDevicesCount(MCI_DEVTYPE_VIDEODISC)> 0)then
     MCIControlBox.Enabled:=TRUE
 else
     MCIControlBox.Enabled:=FALSE;


  MCIControlBox.Checked:=MCIControl;

  //