88 lines
2.7 KiB
ObjectPascal
88 lines
2.7 KiB
ObjectPascal
|
////////////////////////////////////////////////////////////////////////////////
|
|||
|
|
// Դ<><D4B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD>U_iniParam.pas
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾ <20><>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>
|
|||
|
|
// ϵͳ<CFB5><CDB3><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD>ͨӡȾERP<52><50><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵϵͳ
|
|||
|
|
// ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
// <20><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD>ģ<EFBFBD><C4A3>ini<6E><69><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
// <20><><EFBFBD>ߣ<EFBFBD><DFA3>ٻ<EFBFBD>ƽ
|
|||
|
|
// <20><><EFBFBD>ˣ<EFBFBD>
|
|||
|
|
////////////////////////////////////////////////////////////////////////////////
|
|||
|
|
unit U_iniParam;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
uses
|
|||
|
|
IniFiles,SysUtils;
|
|||
|
|
var
|
|||
|
|
Filename:string; //<2F>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
pSysType:string; //ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>
|
|||
|
|
pVerType:string; //<2F>汾<EFBFBD><E6B1BE><EFBFBD><EFBFBD> //<2F><><EFBFBD><EFBFBD> or <20><><EFBFBD><EFBFBD>
|
|||
|
|
pServerIp:string; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>IP
|
|||
|
|
pDyeType:string; //Ⱦ<><C8BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
fCommName:string;
|
|||
|
|
fBaudRate:integer;
|
|||
|
|
fParity:integer;
|
|||
|
|
fByteSize:integer;
|
|||
|
|
fStopBits:integer;
|
|||
|
|
fTimes:integer;
|
|||
|
|
Function IsINIFile():Boolean; //<2F>ж<EFBFBD>InI<6E><49><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
procedure ReadINIFile();
|
|||
|
|
procedure WriteINIFile();
|
|||
|
|
implementation
|
|||
|
|
///////////////////////////////////////////////////////////////////
|
|||
|
|
//<2F><>ȡini<6E>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD>
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
////////////////////////////////////////////////////////////////////
|
|||
|
|
procedure ReadINIFile();
|
|||
|
|
var
|
|||
|
|
programIni:Tinifile; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
FileName:=ExtractFilePath(Paramstr(0))+'JCYData.INI';
|
|||
|
|
programIni:=Tinifile.create(FileName);
|
|||
|
|
fCommName:=programIni.ReadString('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27><><EFBFBD>ں<EFBFBD>','COM1');
|
|||
|
|
fBaudRate:=programIni.ReadInteger('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',4800);
|
|||
|
|
fParity:=programIni.ReadInteger('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','У<><D0A3>λ',0);
|
|||
|
|
fByteSize:=programIni.ReadInteger('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>λ',8);
|
|||
|
|
fStopBits:=programIni.ReadInteger('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','ֹͣλ',0);
|
|||
|
|
fTimes:= programIni.ReadInteger('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','Ƶ<><C6B5>',100);
|
|||
|
|
programIni.Free;
|
|||
|
|
end;
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
//д<><D0B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>INI<4E>ļ<EFBFBD>
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
procedure WriteINIFile();
|
|||
|
|
var
|
|||
|
|
programIni:Tinifile; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
FileName:=ExtractFilePath(Paramstr(0))+'JCYData.INI';
|
|||
|
|
programIni:=Tinifile.create(FileName);
|
|||
|
|
fCommName:='com1';
|
|||
|
|
fBaudRate:=4800;
|
|||
|
|
fParity:=0;
|
|||
|
|
fByteSize:=8;
|
|||
|
|
fStopBits:=0;
|
|||
|
|
fTimes:=100;
|
|||
|
|
|
|||
|
|
programIni.WriteString('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27><><EFBFBD>ں<EFBFBD>',fCommName);
|
|||
|
|
programIni.WriteInteger('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',fBaudRate);
|
|||
|
|
programIni.WriteInteger('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','У<><D0A3>λ',fParity);
|
|||
|
|
programIni.WriteInteger('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>λ',fByteSize);
|
|||
|
|
programIni.WriteInteger('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','ֹͣλ',fStopBits);
|
|||
|
|
programIni.WriteInteger('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>','Ƶ<><C6B5>',fTimes);
|
|||
|
|
programIni.Free;
|
|||
|
|
end;
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
//<2F>ж<EFBFBD>InI<6E>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
Function IsINIFile():Boolean;
|
|||
|
|
begin
|
|||
|
|
FileName:=ExtractFilePath(Paramstr(0))+'JCYData.INI';
|
|||
|
|
if FileExists(FileName) then
|
|||
|
|
Result:=true
|
|||
|
|
else
|
|||
|
|
Result:=false;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|