88 lines
2.7 KiB
ObjectPascal
88 lines
2.7 KiB
ObjectPascal
////////////////////////////////////////////////////////////////////////////////
|
||
// 源程序名称：U_iniParam.pas
|
||
// 软件著作权：富通软件有限公司 版权所有
|
||
// 系统名称：富通印染ERP车间作业系统
|
||
// 模块名称：生产配料
|
||
// 功能说明：生产计划模块ini配置文件操作设置
|
||
// 作者：官惠平
|
||
// 审核：
|
||
////////////////////////////////////////////////////////////////////////////////
|
||
unit U_iniParam;
|
||
|
||
interface
|
||
uses
|
||
IniFiles,SysUtils;
|
||
var
|
||
Filename:string; //文件名
|
||
pSysType:string; //系统类型
|
||
pVerType:string; //版本类型 //单机 or 网络
|
||
pServerIp:string; //服务器IP
|
||
pDyeType:string; //染料类型
|
||
|
||
fCommName:string;
|
||
fBaudRate:integer;
|
||
fParity:integer;
|
||
fByteSize:integer;
|
||
fStopBits:integer;
|
||
fTimes:integer;
|
||
Function IsINIFile():Boolean; //判断InI配置文件是否存在
|
||
procedure ReadINIFile();
|
||
procedure WriteINIFile();
|
||
implementation
|
||
///////////////////////////////////////////////////////////////////
|
||
//读取ini文件设置参数
|
||
//参数：
|
||
////////////////////////////////////////////////////////////////////
|
||
procedure ReadINIFile();
|
||
var
|
||
programIni:Tinifile; //配置文件名
|
||
begin
|
||
FileName:=ExtractFilePath(Paramstr(0))+'JCYData.INI';
|
||
programIni:=Tinifile.create(FileName);
|
||
fCommName:=programIni.ReadString('系统配置','串口号','COM1');
|
||
fBaudRate:=programIni.ReadInteger('系统配置','波特率',4800);
|
||
fParity:=programIni.ReadInteger('系统配置','校验位',0);
|
||
fByteSize:=programIni.ReadInteger('系统配置','数据位',8);
|
||
fStopBits:=programIni.ReadInteger('系统配置','停止位',0);
|
||
fTimes:= programIni.ReadInteger('系统配置','频率',100);
|
||
programIni.Free;
|
||
end;
|
||
//////////////////////////////////////////////////////////////////
|
||
//写设置信息到INI文件
|
||
//参数
|
||
//////////////////////////////////////////////////////////////////
|
||
procedure WriteINIFile();
|
||
var
|
||
programIni:Tinifile; //配置文件名
|
||
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('系统配置','串口号',fCommName);
|
||
programIni.WriteInteger('系统配置','波特率',fBaudRate);
|
||
programIni.WriteInteger('系统配置','校验位',fParity);
|
||
programIni.WriteInteger('系统配置','数据位',fByteSize);
|
||
programIni.WriteInteger('系统配置','停止位',fStopBits);
|
||
programIni.WriteInteger('系统配置','频率',fTimes);
|
||
programIni.Free;
|
||
end;
|
||
//////////////////////////////////////////////////////////////////
|
||
//判断InI文件是否存在
|
||
//////////////////////////////////////////////////////////////////
|
||
Function IsINIFile():Boolean;
|
||
begin
|
||
FileName:=ExtractFilePath(Paramstr(0))+'JCYData.INI';
|
||
if FileExists(FileName) then
|
||
Result:=true
|
||
else
|
||
Result:=false;
|
||
end;
|
||
|
||
end.
|