sysconfigclass.~pas

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

unit SysConfigClass;

interface
uses
    inifiles,db,adodb;

type TSysConfig = class(TIniFile)

public
    ScreenPort,ControlPort,ReaderPort : integer;
    ControlAddr: string;
    AutoLight : boolean;
    AutoHourOn,AutoHourOff,AutoMinOn,AutoMinOff:integer;
    ServerIP,ServerName: string;
    constructor Create();
    function  ReadData() :integer;
    function WriteData(): integer;
end;

implementation

uses
    GlobalUnit;
{ TSysConfig }

constructor TSysConfig.Create;
begin
    inherited Create('plms_fs.ini');
    ControlPort := 1;
    ScreenPort := 2;
    ControlAddr := '0118';
    AutoLight := False;
    AutoHourOn := 0 ;
    AutoHourOff := 0;
    AutoMinOn := 0;
    AutoMinOff := 0;

    ServerIP := '127.0.0.1';
    ServerName := 'localhost';
end;

function TSysConfig.ReadData: integer;
begin
    ControlPort := ReadInteger('hardware','ControlPort',1 );
    ScreenPort := ReadInteger('hardware','ScreenPort',2 );
    ReaderPort := ReadInteger('hardware','ReaderPort',3 );

    ControlAddr := ReadString('hardware','ControlAddr','0118');
    AutoLight := ReadBool('hardware','AutoLight', False);
    AutoHourOn := ReadInteger('hardware','AutoHourOn' ,0) ;
    AutoHourOff := ReadInteger('hardware','AutoHourOff', 0);
    AutoMinOn := ReadInteger('hardware','AutoMinOn',0 );
    AutoMinOff := ReadInteger('hardware','AutoMinOff',0 );

    ServerIP := ReadString('hardware','ServerIP','127.0.0.1');
    ServerName := ReadString('hardware','ServerName','localhost');
end;

function TSysConfig.WriteData: integer;
begin
    WriteInteger('hardware','ControlPort',ControlPort  );
    WriteInteger('hardware','ScreenPort',ScreenPort );
    WriteInteger('hardware','ReaderPort',ReaderPort );

    WriteString('hardware','ControlAddr',ControlAddr);
    WriteBool('hardware','AutoLight', AutoLight);
    WriteInteger('hardware','AutoHourOn' ,AutoHourOn) ;
    WriteInteger('hardware','AutoHourOff',AutoHourOff);
    WriteInteger('hardware','AutoMinOn',AutoMinOn );
    WriteInteger('hardware','AutoMinOff',AutoMinOff );

    WriteString('hardware','ServerIP',ServerIP);
    WriteString('hardware','ServerName',ServerName);
end;



end.