unit U_iniParam;

interface

uses
  IniFiles, SysUtils;

var
  Filename: string;      //文件名
  iParam2: integer;
  bParam1: Boolean;
  bParam2: Boolean;
  SCXFlag: string;  //生产线   根据此标志获取卷条码前缀 不能包含字母  1,2
  SCXCount: string;  //机台个数
  PortNoStr: string; //端口号
  DllName: string; //端口Dll文件
  PortNoStrT: string; //端口号2
  DllNameT: string; //端口Dll文件 2
  ISJCX: string;
  JCYPORT: string;
  JCYDLL: string;
  JCYPORTT: string; //2
  JCYDLLT: string;   // 2

function IsINIFile(): Boolean;  //判断InI配置文件是否存在

procedure ReadINIFile();

procedure WriteINIFile();

implementation
///////////////////////////////////////////////////////////////////
  //读取ini文件设置参数
  //参数：
////////////////////////////////////////////////////////////////////

procedure ReadINIFile();
var
  programIni: Tinifile;  //配置文件名
begin
  FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';                
  programIni := Tinifile.create(FileName);
  SCXFlag := programIni.ReadString('生产车间配置', '卷条码机台标志', '1');
  SCXCount := programIni.ReadString('生产车间配置', '机台个数', '1');
  PortNoStr := programIni.ReadString('生产车间配置', '端口号', 'com1');
  DllName := programIni.ReadString('生产车间配置', '端口Dll文件', 'JZCRS323C.DLL');
  ISJCX := programIni.ReadString('生产车间配置', '码表是否存在', '0');
  JCYPORT := programIni.ReadString('生产车间配置', '码表端口号', 'com1');
  JCYDLL := programIni.ReadString('生产车间配置', '码表Dll文件', 'JCYData.DLL');

  PortNoStrT := programIni.ReadString('生产车间配置', '端口号2', 'com2');
  DllNameT := programIni.ReadString('生产车间配置', '端口Dll文件2', 'JZCRS323C.DLL');
  JCYPORTt := programIni.ReadString('生产车间配置', '码表端口号2', 'com2');
  JCYDLLT := programIni.ReadString('生产车间配置', '码表Dll文件2', 'JCYData.DLL');
  programIni.Free;
end;
//////////////////////////////////////////////////////////////////
  //写设置信息到INI文件
  //参数
//////////////////////////////////////////////////////////////////

procedure WriteINIFile();
var
  programIni: Tinifile;  //配置文件名
begin
  FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';
  JCYDLL := 'JCYData10.DLL';
//  JCYDLLT := 'AJCYData10.DLL';
  programIni := Tinifile.create(FileName);
  programIni.WriteString('生产车间配置', '卷条码机台标志', SCXFlag);
  programIni.WriteString('生产车间配置', '机台个数', SCXCount);

  programIni.WriteString('生产车间配置', '端口号', PortNoStr);
  programIni.WriteString('生产车间配置', '端口Dll文件', DllName);
  programIni.WriteString('生产车间配置', '码表是否存在', ISJCX);
  programIni.WriteString('生产车间配置', '码表端口号', JCYPORT);
  programIni.WriteString('生产车间配置', '码表Dll文件', JCYDLL);

  programIni.WriteString('生产车间配置', '端口号2', PortNoStrT);
  programIni.WriteString('生产车间配置', '端口Dll文件2', DllNameT);
  programIni.WriteString('生产车间配置', '码表端口号2', JCYPORTT);
  programIni.WriteString('生产车间配置', '码表Dll文件2', JCYDLLT);

  programIni.Free;
end;
//////////////////////////////////////////////////////////////////
  //判断InI文件是否存在
//////////////////////////////////////////////////////////////////

function IsINIFile(): Boolean;
begin
  FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';
  if FileExists(FileName) then
    Result := true
  else
    Result := false;
end;

end.