configurar IBDataBase mediante un archivo ini o txt

[angel.sosa]

hola a todos, soy nuevo en el foro, estoy programando una pequeña aplicacion en Delphi 7 para correrla con una base de datos en red, por cierto estoy usando un tutorial para novatos de caral muy bueno, la cuestion es que pretendo configurar los parametros de conexion del IBDataBase con un archivo ya sea de texto o un ini, en el cual tendria la ip del servidor, el tipo de conexion y el usuario y contraseña, pues la idea es instalar la aplicacion con ese archivo de configuracion para conectarse.

[MartinS]

Hola angel:

El siguiente codigo lo pones en el evento OnCreate de un DataModule o bien donde tenes los componentes de conexion:

Código Delphi [-]
Uses IniFiles;

procedure TDM.DataModuleCreate(Sender: TObject);
Var BaseDeDatos: String;
    IniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then
    ShowMessage('Error al cargar Base de Datos') else
   Begin
    Try
      BaseGeneral.DatabaseName := BaseDeDatos;
      BaseGeneral.Connected := True;
      Transaccion.Active := True;
    Except
      ShowMessage('No se puede conectar el servidor...');
    End;
   End;
end;

y esto es lo que iria dentro del archivo BDatos.Ini de las maquinas clientes y lo ubicarias en el mismo lugar del ejecutable. La IP que aparece corresponde a la maquina donde se encuentra la base de datos

[DB]
PATH="192.168.1.3:c:\Sistema\Datos\LaBase.FDB"

en tanto para el .ini donde esta la base, el ini no lleva la Ip

[DB]
PATH=":c:\Sistema\Datos\LaBase.FDB"

Fijate que la variable BaseDeDatos se carga con el valor de PATH del ini

Código Delphi [-]
BasedeDatos := IniFile.ReadString('BD','Path','');

es decir que puedes agregar mas parametros a otras variables y leerlo de la misma forma, por ejemplo

[DB]
PATH=":c:\Sistema\Datos\LaBase.FDB"
PASS="masterkey"
USER="SYSDBA"
UBICACION="Algo que se te ocurra"

Saludos.-

Pd: Supongo que la base de datos es firebird o Intebase.-

[Faust]

Me ganaron n responder

Pero así es la cuestión como dice el amigo Martín... checa este enlace para mayor referencia... http://primero.latinowebs.com/delphi1/Ficheini.htm... y piensa si es conveniente poner la pass de la base de datos en un archivo ini que es un simple archivo de texto.

Saludos

[angel.sosa]

gracias MartinS, por el momento solo quiero pasar la ip y la ruta de la base, solo me queda unas cuantas dudas, como le digo al componente IBDataBase que utilice esos parametros que acabo de extraer del ini. es decir como le asigno los parametros. antes los parametros de la conexion estaban dentro del IBdatabase mediante su editor, es decir en esta parte no utilice codigo.

entiendo q es la parte donde me dices q use algo asi como: BaseGeneral.DatabaseName := BaseDeDatos;

pero no entiendo q hacer en esta parte o como ingresarle esos parametros al componente.

[MartinS]

Hola: Los parametros se los definis como estas acostumbrado o como estas aprendiendo, o sea, desde el editor. El código que te expuse solo cambia o define en su caso la ruta de la base de datos cuando se ejecuta. Como bien expuso Faust el usuario y la contraseña (SYSDBA y masterkey) la colocas al componente en tiempo de diseño.
En el ejemplo BaseGeneral seria tu componenete IbDatabase.
En cuanto a la ruta de la base de datos y tomando el ejemplo: c:\Sistema\Datos\LaBase.FDB es la ubicación física de la base dentro de la PC servidora. Cuando definís el acceso a la misma por los parametros del IBDatabase en tiempo de diseño (Database component editor - es decir boton derecho sobre el componente) le indicas que use el protocolo TPC y conexion tipo remota y la ubicacion fisica de la base de datos, entonces el mismo componente le agregara los : delante de la ruta quedando :c:\Sistema\Datos\LaBase.FDB. Despues viene todo el tema del .ini. Otra vez; cada cliente sumara al .ini a la ruta la ip del servidor salvo el .ini del que realmente tiene la base de datos.

Saludos y espero que no te halla confundido mas.-

[angel.sosa]

Empezado por MartinS

Hola: Los parametros se los definis como estas acostumbrado o como estas aprendiendo, o sea, desde el editor. El código que te expuse solo cambia o define en su caso la ruta de la base de datos cuando se ejecuta. Como bien expuso Faust el usuario y la contraseña (SYSDBA y masterkey) la colocas al componente en tiempo de diseño.
En el ejemplo BaseGeneral seria tu componenete IbDatabase.
En cuanto a la ruta de la base de datos y tomando el ejemplo: c:\Sistema\Datos\LaBase.FDB es la ubicación física de la base dentro de la PC servidora. Cuando definís el acceso a la misma por los parametros del IBDatabase en tiempo de diseño (Database component editor - es decir boton derecho sobre el componente) le indicas que use el protocolo TPC y conexion tipo remota y la ubicacion fisica de la base de datos, entonces el mismo componente le agregara los : delante de la ruta quedando :c:\Sistema\Datos\LaBase.FDB. Despues viene todo el tema del .ini. Otra vez; cada cliente sumara al .ini a la ruta la ip del servidor salvo el .ini del que realmente tiene la base de datos.

Saludos y espero que no te halla confundido mas.-

mas o menos claro, ahora estoy corriendo la aplicacion local pero no me arroja nunca la conexion
me marca esto como que no reconoce el PATH ("Error al cargar Base de Datos"), y el ini lo tengo en la misma carpeta de el proyecto.

Código Delphi [-]
begin
  // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then
    ShowMessage('Error al cargar Base de Datos') else
   Begin
    Try
      IBDatabase1.DatabaseName := BaseDeDatos;
      IBDatabase1.Connected := True;
     // Transaccion.Active := True;
    Except
      ShowMessage('No se puede conectar el servidor...');
    End;
   End;

error al cargar la base de datos. siempre

el codigo del BDatos.ini donde esta mi base local.

[DB]
PATH=":C:\bdnueva\TSTD_LOCAL.FDB"

[Casimiro Notevi]

PATH=":C:\bdnueva\TSTD_LOCAL.FDB"

Ese : delante sobra