configurar IBDataBase mediante un archivo ini o txt

[Casimiro Notevi]

Empezado por MartinS

Hola: con respecto a los : delante de la ruta a mi me funciona. En algún lugar vi que si la conexión es remota se ponen esos : (si lo encuentro lo coloco aquí) como tambien lo tengo con las " .

Funcione o no funcione, está mal.

Una ruta de ejemplo mediante IP (es lo más adecuado):
192.168.1.100:/datos/labasedatos.fdb

También puede ser el nombre del servidor:
elservidor:/datos/labasedatos.fdb

En windows:
mediante IP (es lo más adecuado)
192.168.1.100:c:\datos\labasedatos.fdb

Mediante nombre servidor:
elservidor:c:\datos\labasedatos.fdb

Incluso en una conexión local se recomienda la IP o localhost:
linux
127.0.0.1:/datos/labasedatos.fdb
localhost:/datos/labasedatos.fdb

windows
127.0.0.1:c:\datos\labasedatos.fdb
localhost:c:\datos\labasedatos.fdb

[MartinS]

Empezado por Casimiro Notevi

Funcione o no funcione, está mal.

Si, pero funciona

Creo que en definitiva tiene el problema o bien en la ubicacion del .ini o en la observacion que hizo ecfisa en cuanto a BD por DB

Saludos.-

[Casimiro Notevi]

Empezado por MartinS

Si, pero funciona

Veamos, un coche anda con una rueda pinchada e incluso con un cilindro fallando.
Dirás que funciona, vale, pero no funciona bien, va "renqueando".
Incluso si le quitas las ruedas, también funciona.
Esos dos puntos delante están mal, quieras o no quieras.
Pero si te gusta dejarlos ahí, pues nada, déjalo y sigue con el coche sin ruedas , que funciona

[ecfisa]

Hola.

Por lo que comenta angel.sosa en el mensaje #9 parece que logró solucionar ese tema, ahora habla de un error de Access Violation.

Angel, no sé como tenes distribuido los componentes, pero si tenes un TDataModule y ejecutas el código que mencionas en el evento OnCreate te va a provocar problemas... Te conviene asegurarte que todos los objetos hayan sido creados.

Por ejemplo:

Código Delphi [-]
unit DataModule

interface

uses
  Windows, Messages, SysUtils, Classes, IBDatabase, DB;

const
  WM_AFTER_CREATE = WM_USER + 300;

type
  TDataModule2 = class(TDataModule)
    IBTransaction1: TIBTransaction;
    IBDatabase1: TIBDatabase;
    procedure DataModuleCreate(Sender: TObject);
  private
    procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE;
  public
  end;

var
  DataModule2: TDataModule2;

implementation {$R *.dfm}

uses IniFiles, Forms, Dialogs;

procedure TDataModule2.WmAfterCreate(var Msg: TMessage);
begin
  with TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini') do
  try
    IBDatabase1.DatabaseName:= ReadString('BD', 'Path','');
    IBDatabase1.Params.Clear;
    IBDatabase1.Params.Add('user_name='+ReadString('BD', 'User',''));
    IBDatabase1.Params.Add('password='+ReadString('BD', 'Pwd',''));
    try
      IBDatabase1.Open;
    except
      on E: Exception do
      begin
        MessageDlg(E.Message,mtError,[mbOk],0);
        Application.Terminate
      end
    end
  finally
    Free
  end
end;

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
  PostMessage(WM_AFTER_CREATE, 0, 0, 0)
end;

...

end.

Saludos.

[angel.sosa]

gracias a todos ya funciono, incluso en red.
El error que tenia era en las variables, tenia mal la parte De, ya con eso pude compilar.

Código Delphi [-]
    IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
 BasedeDatos := IniFile.ReadString('DB','PATH','');
   If BasedeDatos = '' then
    ShowMessage('Error al cargar Base de Datos') else
   Begin
    Try
     IBDatabase1.DatabaseName := BaseDeDatos;
      IBDatabase1.Connected := True;
      IBTransaction1.Active := True;
      ShowMessage('CONEXION CORRECTA');
    Except
      ShowMessage('No se puede conectar el servidor...');
    End;
   End;

voy a continuar con mi pratica para mas a delante hacer un manualito de esto y compartilo. claro con el proyectito.

GRAX ANY WAY.

[Casimiro Notevi]

Empezado por angel.sosa

gracias a todos ya funciono, incluso en red.
El error que tenia era en las variables, tenia mal la parte De, ya con eso pude compilar.

¿Y cuál es la parte De?

[angel.sosa]

a la hora de asigar el path del ini al componente tenia el nombre mal escrito.

Código Delphi [-]
IBDatabase1.DatabaseName := BaseDeDatos;

[Casimiro Notevi]

ah, ya veo