conexión interbase a Dellphi 2010

[MartinS]

Hola: Bueno, ahi te adjunto la imagen de la configuración del componente TIbDatabase.
Otra configuracion que hago es mediante un archivo .ini que coloco junto al ejecutable donde coloco la direccion que tiene la base de datos. El contenido del archivo Bdatos.Ini es el siguiente:

[BD]
Path=":C:\Desarrollos\RegistroGeneral\MASTERBASE.FDB"

Esto es para el .ini si la base esta en la misma pc (observa los : antes de C - No se si es igual para interbase)

y para el caso que quiera ejecutar el programa desde otra PC: Copio el ejecutable y el ini en esa pc y lo edito asi:

[BD]
Path="xxx.xxx.xxx.xxx:C:\Desarrollos\RegistroGeneral\MASTERBASE.FDB"

Donde xxx.xxx.xxx.xxx es la direccion de IP donde se encuentra la base de datos junto con la direccion del archivo en la Pc (Directorio).
Dado que podes editar el .ini de acuerdo a la ubicación física de la base de datos no tendrias inconvenientes en llevar esa base y ponerla donde tu desees.

el codigo para leer el .ini es el siguiente y lo tengo en el evento OnCreate del DataModule

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
    BaseGeneral.DatabaseName := BaseDeDatos;   // BaseGeneral es el TIbDatabase y le asigno la ruta de la base de datos segun .ini
end;

Acordate de los servicios de Firebird o Interbase que deben estar ejecutandose.-

Saludos.-

[ginesgomezlopez]

Hola Martín S, gracias por tu interés, aunque no me funciona con el programilla, sí me funciona haciéndolo diréctamente, es decir en el Databasename le coloco xxx.xxx.x.x más la ruta y me funciona perfectamente en el otro ordenador, y además en los que a su vez están conectados a su red, puedo modificar la base de datos en cualquier ordenado de la red interna de mi empresa, creí que no lo conseguiría nunca, y me he llevado una gran alegría.

Seguramente es un problema de Delphi 2010 por que al escribir:

ElIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');

ya me da error si no le pongo comillas a Application.ExeName, y todas las aplicaciones que he buscado no llevan comillas, después sigo

BasedeDatos := IniFile.ReadString('BD','Path','');
If BasedeDatos = '' then
ShowMessage('Error al cargar Base de Datos') else
ibdatabaseclientes.DatabaseName:='c:\Maestros1\Maestro.ib'; // BaseGeneral es el TIbDatabase y le asigno la ruta de la base de datos segun .ini

La Base de datos se llama Maestro.ib, y la ruta C:\Maestros1\Maestro.ib, pero claro aquí debería sólo poner el archivo.ini, para que la ruta siempre la lea de ini, que es el archivo que yo puedo modificar en el ordenador externo, donde sólo tengo los ejecutables, en fin he probado con comillas en el Application.Exename, sin comillas, en el database he puesto el *.ini, para que lo lea, el archivo ini tiene lo siguiente:

[BD]
path='C:\Maestros1\Maestro.IB'

Configurado para que primero funcione en el ordenador donde estoy haciendo el programa, pero ya me he dado por vencido hasta que lo pruebe en otro momento de nuevo, pero vamos poniendolo directamente en el Databasename la ruta me funciona y se conecta en red la base de datos, así que estoy ya supercontento con eso, si vienes por el sureste de España dímelo y te invito a unas cervezas, jaja, muchas Gracias.

[MartinS]

Hola Gines: Te comento que yo uso Delphi XE y si copias el codigo tal como esta te tiene que funcionar. Igual te lo acomode de acuerdo al nombre que le diste a la variable del ini:

Código Delphi [-]
Procedure TDm.DataModuleCreate(Sender: TObject);   
   Var BaseDeDatos: String;
    ElIniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   ElIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
   BasedeDatos := ElIniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then
    ShowMessage('Error al cargar Base de Datos') else
    BaseGeneral.DatabaseName := BaseDeDatos;   // BaseGeneral es el TIbDatabase y le asigno la ruta de la base de datos segun .ini
end;

A tener en cuenta:
a) Tipo de variable que es ElIniFile
b) Debes colocar en el Uses IniFiles (IniFiles es el nombre de la unidad que contiene las funciones para los ini).
No hay grandes cambios. Deberia funcionar, si no es asi, subi el error que te dice.-

Saludos

PD. Hacen buena cerveza negra por ahi??

[MartinS]

Otra observación:

[BD]
path="C:\Maestros1\Maestro.IB" <-- Con comillas dobles

Saludos

[ginesgomezlopez]

Hola de nuevo Martin S, llevo unos días liadillo,

Ya encontré la errata, eran dos comillas eso por un lado como me dijiste, pero en el Uses faltaba "Forms", que no me lo había cargado Delphi 2010, lo coloqué y funciona a la perfección, era algo que se daba por supuesto.

Muchas Gracias, nunca había podido trabajar en red con ninguno de mis programas, ahora es sólo cambiar el contenido del INI y puede funcionar en cualquier sitio, una maravilla.


PD: Por aqui es la Estrella de Levante la que se fabrica pero vamos, Cerveza Negra también hay aunque no de aquí, si vienes por Murcia, sur de Alicante da un toque al [email protected].

Gracias.