setcomm.pas

这是一个用D6实现的对LineGuard进行通信的简单例程,通过该程序

unit setComm;

interface

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

type
  TfmSetComm = class(TForm)
    btnOK: TButton;
    btnCancel: TButton;
    lbPort: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    cbPort: TComboBox;
    cbSpeed: TComboBox;
    cbBit: TComboBox;
    cbCRC: TComboBox;
    cbStop: TComboBox;
  public
  end;

var
  fmSetComm: TfmSetComm;

implementation

{$R *.DFM}

end.