Ver Mensaje Individual
  #4  
Antiguo 27-07-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 27
Caral Va por buen camino
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;
    // Obtiene la ruta y el nombre de la base de datos
    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'; // no estoy seguro que sea asi, si no, quitale las comillas.
   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
__________________
Siempre Novato
Responder Con Cita