systemform.pas

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

unit SystemForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DialogBaseForm, StdCtrls, Buttons, ExtCtrls, Spin, ComCtrls;

type
  TfrmSystem = class(TfrmDialogBase)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label8: TLabel;
    Label9: TLabel;
    sdtIP1: TSpinEdit;
    sdtIP2: TSpinEdit;
    sdtIP3: TSpinEdit;
    sdtIP4: TSpinEdit;
    edtServerName: TEdit;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    cbxControl: TComboBox;
    edtControl: TEdit;
    cbxCardReader: TComboBox;
    cbxScreen: TComboBox;
    TabSheet3: TTabSheet;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ckxAutoLight: TCheckBox;
    sdtHourOn: TSpinEdit;
    sdtMinOn: TSpinEdit;
    sdtHourOff: TSpinEdit;
    sdtMinOff: TSpinEdit;
    procedure sdtIP1Change(Sender: TObject);
    procedure cbxScreenChange(Sender: TObject);
    procedure ckxPictureClick(Sender: TObject);
    procedure ckxAutoLightClick(Sender: TObject);
  private
    { Private declarations }
    FServerChange,FPortChange,FPictureChange,FloodChange: boolean;
  public
    { Public declarations }
    function IPAddress2Spin(AIPStr:string): boolean;
    procedure ResetChange();
    function Spin2IPAddress(): string;
    function IsServerChange(): boolean;
    function IsPortChange(): boolean;
    function IsFloodChange() : boolean;
  end;

var
  frmSystem: TfrmSystem;

implementation

{$R *.DFM}

{ TfrmSystem }

function TfrmSystem.IPAddress2Spin(AIPStr: string): boolean;
var
    mStr : string;
    mPos: integer;
begin
    try
        mPos := Pos('.',AIPStr);
        mStr := Copy(AIPStr,1,mPos-1);
        sdtIP1.Value := StrToInt(mStr);
        AIPStr := Copy(AIPStr,mPos+1,Length(AIPStr)-mPos);

        mPos := Pos('.',AIPStr);
        mStr := Copy(AIPStr,1,mPos-1);
        sdtIP2.Value := StrToInt(mStr);
        AIPStr := Copy(AIPStr,mPos+1,Length(AIPStr)-mPos);

        mPos := Pos('.',AIPStr);
        mStr := Copy(AIPStr,1,mPos-1);
        sdtIP3.Value := StrToInt(mStr);
        AIPStr := Copy(AIPStr,mPos+1,Length(AIPStr)-mPos);

        sdtIP4.Value := StrToInt(AIPStr);
    except
        sdtIP1.Value := 0;
        sdtIP2.Value := 0;
        sdtIP3.Value := 0;
        sdtIP4.Value := 0;
        Result := False;
    end;
    Result := True;
end;

function TfrmSystem.IsFloodChange: boolean;
begin
    Result := FloodChange;
end;

function TfrmSystem.IsPortChange: boolean;
begin
    Result := FPortChange;
end;

function TfrmSystem.IsServerChange: boolean;
begin
    Result :=  FServerChange;
end;

procedure TfrmSystem.ResetChange;
begin
    FServerChange := False;
    FPortChange := False;
    FPictureChange := False;
    FloodChange := False;
end;

function TfrmSystem.Spin2IPAddress: string;
begin
    Result := IntToStr(sdtIP1.Value) + '.'
             +IntToStr(sdtIP2.Value) + '.'
             +IntToStr(sdtIP3.Value) + '.'
             +IntToStr(sdtIP4.Value);
end;

procedure TfrmSystem.sdtIP1Change(Sender: TObject);
begin
  inherited;
  FServerChange := True;
end;

procedure TfrmSystem.cbxScreenChange(Sender: TObject);
begin
  inherited;
  FPortChange := True;
end;

procedure TfrmSystem.ckxPictureClick(Sender: TObject);
begin
  inherited;
  FPictureChange := True;
end;

procedure TfrmSystem.ckxAutoLightClick(Sender: TObject);
begin
  inherited;
  FloodChange := True;
end;

end.