Hola
Bueno, yo sigo con lo del ini, si bien quieres hacerlo:
Me imagino que tendras un datamodule, si no es asi, podras colocar este codigo en el evento Oncreate del form principal.
Para comenzar tienes que colocar en el uses
IniFiles.
Ahora en el evento OnCreate del form o del datamodule pones esto:
Código Delphi
[-]
Var BaseDeDatos, User, Pass : String;
IniFile: TIniFile;
begin
fbConnection.Connected:= False;
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'MiIni.ini');
BasedeDatos := IniFile.ReadString('BD','Path','');
User:= IniFile.ReadString('US','Name','');
Pass:= IniFile.ReadString('PS','Clave','');
If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
fbConnection.DatabaseName:= BasedeDatos;
fbConnection.Driver:= 'Firebird'; fbConnection.pasword:= User;
fbConnection.username:= Pass;
fbConnection.Connected:= True;
end;
Ahora abre el archivo ini y cambias esto asi:
Cita:
[BD]
Path="192.168.17.2:c:\MIDB.FDB"
[US]
Name="SYSDBA"
[PS]
Clave="micontraseña"
|
Lo Guardas, salvas y lo colocas en el mismo directorio en donde este el EXE (osea el programa).
A ver como va, te repito, desconozco tus componentes, esto me parece que deberia de funcionar, pero no estoy seguro, de todos modos, no se pierde nada.
Saludos