Buenos dias espero esten bien. Tengo un
FDConnection que quiero dejar limpio sin parametros ya que los parametros los obtengo de una archivo
.ini. La cuestion es que si ejecuto el programa con el
FDConnection sin parametros me da el siguiente error.(Aunque luego si se conecta con los parametro que estan en el .INI, pero lo que quiero es saber como dejar de que salga el error.)
Cita:
Access Violation at address 66F6445C in module 'MSVCR120.dll'. Read of address 0000000
|
aqui el codigo delphi que uso para la conexion
Código Delphi
[-]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;