No estas listo. No tiene error, pero no funciona asi. Hizo asi, pero tambien no:
Configuracao := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Server.ini');
with Configuracao do
begin
sDriver := ReadString('SERVER', 'DriverName', '');
sPathDb := ReadString('SERVER', 'DataBase', '');
sUser := ReadString('SERVER', 'UserName', '');
sPassword := ReadString('SERVER', 'Password', '');
sDialect := ReadString('SERVER', 'SqlDialect', '');
sBlobSize := ReadString('SERVER', 'BlobSize', '');
sErrorResourceFile := ReadString('SERVER', 'ErrorResourceFile=', '');
sLocaleCode := ReadString('SERVER', 'LocaleCode', '');
sInterBase_TransIsolation := ReadString('SERVER', 'InterBase by Core Lab TransIsolation','');
sProductName := ReadString('SERVER', 'ProductName', '');
sDriverAssemblyLoader := ReadString('SERVER', 'DriverAssemblyLoader', '');
end;
SQLConnection1.Params[0] := (sDriver);
SQLConnection1.Params[1] := (sPathDb);
SQLConnection1.Params[2] := (sUser);
SQLConnection1.Params[3] := (sPassword);
SQLConnection1.Params[4] := (sDialect);
SQLConnection1.Params[5] := (sBlobSize);
SQLConnection1.Params[6] := (sErrorResourceFile);
SQLConnection1.Params[7] := (sLocaleCode);
SQLConnection1.Params[8] := (sInterBase_TransIsolation);
SQLConnection1.Params[9] := (sProductName);
SQLConnection1.Params[10] := (sDriverAssemblyLoader);
|