paramform.pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

unit ParamForm;

interface

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

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

uses MainForm;

{$R *.DFM}


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
    f,a,i:integer;
begin
    modalresult:= mrNone;
    try
        // 帧频率
        f:= strtoInt(edit1.text);
    except
        edit1.setFocus;
    end;
    try
       //捕捉时间
       a:= strtoint(edit2.Text);
    except
       edit2.setFocus;
    end;
    try
        // 索引长度
        i:= Strtoint(edit3.text);
    except
        edit3.setFocus;
    end;

    with main.VideoCap1 do
    begin
        capAudio:=CheckAudio.Checked;
        frameRate:= f;
        captimeLimit:= a;
        capIndexSize:= i;
    end;
    modalresult:= mrOk;
end;

end.