begin
if FileExists('Orig_ConexionBD.ini') then
begin
FDPhysPgDriverLink1.VendorLib:='libpq.dll';
FDConnection1.Params.Clear;
FDConnection1.Connected:=false;
FDConnection1.Params.DriverID:='PG';
Conexion:=Tinifile.Create(ExtractFilePath(Application.ExeName)+'Orig_ConexionBD.ini');
with Conexion do
begin
DB:= Conexion.ReadString('Conexion', 'DataBase', '');
User:= Conexion.ReadString('Conexion', 'User_Name', '');
Pass:= Conexion.ReadString('Conexion', 'Password', '');
Server:= Conexion.ReadString('Conexion', 'Server', '');
Port:= Conexion.ReadString('Conexion', 'Port', '');
end;
with Conexion do
begin
FDConnection1.Params.Add( 'Server=' + Server );
FDConnection1.Params.Database:=DB;
FDConnection1.Params.UserName:=User;
FDConnection1.Params.Password:=Pass;
FDConnection1.Connected:=True;
end;
Usercontrol1.Logoff;
end
else
begin
ShowMessage('BIENVENIDO');
FrmConfig.ShowModal;
end;
end;