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 := '0123';  //下位机地址
    AutoLight := False;     //是否自动开照明
    AutoHourOn := 0 ;       //自动开照明时间（小时）
    AutoHourOff := 0;       //自动关照明时间（小时）
    AutoMinOn := 0;         //自动开照明时间（分）
    AutoMinOff := 0;        //自动关照明时间（分）

    ServerIP := '127.0.0.1';   //服务器IP
    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.