68 lines
2.0 KiB
ObjectPascal
68 lines
2.0 KiB
ObjectPascal
|
unit U_iniFile;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
uses
|
|||
|
|
IniFiles,SysUtils,windows,Forms;
|
|||
|
|
var
|
|||
|
|
Filename:string; //<2F>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
inifstr1:string;
|
|||
|
|
inifstr2:string;
|
|||
|
|
inifstr3:string;
|
|||
|
|
inifstr4:string;
|
|||
|
|
Function IsINIFile():Boolean; //<2F>ж<EFBFBD>InI<6E><49><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
procedure ReadINIFile();
|
|||
|
|
// procedure WriteINIFile();
|
|||
|
|
implementation
|
|||
|
|
uses U_PublicStr,U_PublicDllFunction;
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
//<2F><>ȡini<6E>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD>
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
////////////////////////////////////////////////////////////////////
|
|||
|
|
procedure ReadINIFile();
|
|||
|
|
var
|
|||
|
|
fIniFile:Tinifile; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
FileName:=ExtractFilePath(Application.ExeName)+'RTSOFTSET.LIC';
|
|||
|
|
fIniFile:=Tinifile.create(FileName);
|
|||
|
|
inifstr1:=fIniFile.ReadString('SERVER', 'X1', '');
|
|||
|
|
inifstr2:=fIniFile.ReadString('SERVER', 'X2', '');
|
|||
|
|
inifstr3:=fIniFile.ReadString('SERVER', 'X3', '');
|
|||
|
|
inifstr4:=fIniFile.ReadString('SERVER', 'X4', '');
|
|||
|
|
inifstr1:=trim(GetDecString(inifstr1));
|
|||
|
|
inifstr2:=trim(GetDecString(inifstr2));
|
|||
|
|
inifstr3:=trim(GetDecString(inifstr3));
|
|||
|
|
inifstr4:=trim(GetDecString(inifstr4));
|
|||
|
|
fIniFile.Free;
|
|||
|
|
end;
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
//д<><D0B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>INI<4E>ļ<EFBFBD>
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
{procedure WriteINIFile();
|
|||
|
|
var
|
|||
|
|
fIniFile:Tinifile; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
//FileName:=ExtractFilePath(Application.ExeName)+'DATACLIENT.DBG';
|
|||
|
|
fIniFile:=Tinifile.create(FilePath);
|
|||
|
|
fIniFile.ReadString('SERVER', 'SERVER',trim(Server1));
|
|||
|
|
fIniFile.ReadString('SERVER', 'DTBASE',trim(DTBase1));
|
|||
|
|
fIniFile.ReadString('SERVER', 'USER',trim(User1));
|
|||
|
|
fIniFile.ReadString('SERVER', 'PASSWORD',trim(Pswd1));
|
|||
|
|
fIniFile.Free;
|
|||
|
|
end;
|
|||
|
|
}
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
//<2F>ж<EFBFBD>InI<6E>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
Function IsINIFile():Boolean;
|
|||
|
|
begin
|
|||
|
|
FileName:=ExtractFilePath(Application.ExeName)+'RTSOFTSET.LIC';
|
|||
|
|
if FileExists(FileName) then
|
|||
|
|
Result:=true
|
|||
|
|
else
|
|||
|
|
Result:=false;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|