frmpara.pas

采用delphi语言实现了智能监视系统。使用了access数据库。

unit frmPara;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls,frmMain;

type
  TDlgVPara = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    CheckAudio: TCheckBox;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DlgVPara: TDlgVPara;

implementation

procedure TDlgVPara.FormCreate(Sender: TObject);
begin
    with Main.Videocap1 do
    begin
       Checkaudio.Checked:= capaudio;
       Edit1.text:= inttostr(FrameRate);
       Edit2.text:= inttostr(captimeLimit);
       Edit3.text:= inttostr(CapIndexSize);
    end;
end;

procedure TDlgVPara.OKBtnClick(Sender: TObject);
var
    mRate,mTime,mIndexLen:integer;
begin
    ModalResult:= mrNone;

    CheckAudio.Checked := Main.VideoCap1.CapAudio;
    mRate:= strtoInt(edit1.text);
    mTime:= strtoint(edit2.Text);
    mIndexLen:= Strtoint(edit3.text);

    with Main.VideoCap1 do
    begin
        CapAudio:=CheckAudio.Checked;
        FrameRate:= mRate;
        CaptimeLimit:= mTime;
        CapIndexSize:= mIndexLen;
    end;
    ModalResult:= mrOk;

end;

end.