////////////////////////////////////////////////////////////////////////////////
// 源程序名称：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.