Cita:
Empezado por shinopeat87
Casimiro Notevi amigo si lo cambio a como tu indicas debo cambiar algo de codigo? o simplemente lo toma igual? hablo de este parte del codigo:
Código Delphi [-]con1.Connected:=False;
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'conexionbase.ini');
bd := IniFile.ReadString('bd','Database','');
usuario := IniFile.ReadString('usuario','User_Name','');
pas := IniFile.ReadString('pas','Password','');
servidor:= IniFile.ReadString('servidor','Server','');
driver := IniFile.ReadString('driver','DriverID','');
puerto := IniFile.ReadString('puerto','Port','');
|
Hola
shinopeat87, sí, deberías modificar el nombre de la sección del archivo ini de donde lees los parámetros, pero yo además, eliminaría parte del codigo, que es redundante, para dejarlo así:
Código Delphi
[-]
begin
con1.Connected:=False;
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'conexionbase.ini');
con1.Params.Clear;
con1.Params.Database:= IniFile.ReadString('db', 'Database', '');
con1.Params.UserName:= IniFile.ReadString('db', 'User_Name', '');
con1.Params.Password:= IniFile.ReadString('db', 'Password', '');
con1.Params.Add('Server='+ IniFile.ReadString('db','Server','') );
con1.Params.DriverID:= IniFile.ReadString('db','DriverID','');
con1.Params.Add('Port='+ IniFile.ReadString('db','Port','') );
If bd = '' then
begin
ShowMessage('Error al cargar Base de Datos');
Application.Terminate;
end else
con1.Connected:= True;
end;
IniFile.Close;
Saludos