20 respuestas en este tema

[FGarcia]

En mi proyecto actualmente tengo mi BD en esta ruta:

D:\Proyectos DELPHI XE2 2013\Mi Proyecto\Data\MiBase.fdb

Cuando se compila un proyecto en Delphi XE2 coloca el ejecutable en:

D:\Proyectos DELPHI XE2 2013\Mi Proyecto\Win32\Debug\MiExe.exe

o en

D:\Proyectos DELPHI XE2 2013\Mi Proyecto\Win32\Release\MiExe.exe

Por lo tanto para que funcione debo de cambiar la ruta de mi BD asi:

D:\Proyectos DELPHI XE2 2013\Mi Proyecto\Win32\Debug\Data\MiBase.fdb

Al liberar una aplicacion probablemente quede en alguna de estas rutas:

C:\Archivos de programa (x86)\Mi Proyecto\MiExe.exe
C:\Archivos de programa (x86)\Mi Proyecto\Data\MiBD.fdb
o en

C:\Mi Proyecto\MiExe.exe
C:\Mi Proyecto\Data\MiBD.fdb

En delphi 7 o 2010 hacia algo como esto y funcionaba, sin embargo ahora quiero tener la BD en una carpeta separada

//Asignamos nombre de la base de datos
  ucDatabase.Database:=
        IncludeTrailingPathDelimiter('localhost:' +
                  ExtractFilePath(Paramstr(0))) + NombreBD;

¿Como debo de configurar la busqueda del path?

Saludos y gracias por la ayuda

[Rolphy Reyes]

Saludos.

Usualmente para este caso se utiliza un archivo INI para guardar las rutas y demás configuraciones necesarias de la aplicación.

¿Te sirve?

[egostar]

Como lo indica mi buen amigo Rolphy, yo siempre he usado el registro de windows y/o archivos INI para declarar las rutas y todo lo que requiera en mis programas y que sean "volátiles", no me gusta tener que compilar cada vez que hay un cambio de alguna de las variables.

Saludos

[FGarcia]

Some sample please? (¿Algún ejemplo por favor?   

[egostar]

Some sample please? (¿Algún ejemplo por favor?   

Que componente estas usando para conectarte a la base amigo?

Saludos

[FGarcia]

UniDAC con IBProvider

delphi

//Asignamos nombre de la base de datos
  ucDatabase.Database:= IncludeTrailingPathDelimiter('localhost:' + ExtractFilePath(Paramstr(0))) + 'Data\' + NombreBD;(ParamStr(0)))

[eduarcol]

pero asi como lo tienes te bastaria con tener la bd siempre al lado del ejecutable, no termino de ver el problema...

[FGarcia]

Jeje

Yo quiero tener la BD en el directorio "Data" y asi esto aparece:

[Window Title]
ControlVehicular

[Content]
ERROR conectando con la base de datos.

Mensaje de ERROR:

unavailable database

¡La Aplicación se cerrara!

[OK]

He ahi el detalle.

[egostar]

UniDAC con IBProvider

delphi

  //Asignamos nombre de la base de datos
  inifile := TInifile.Create( ExtractFilePath(Paramstr(0)) + '\config.ini' );
  Ruta := inifile.readString('BASE','RUTA','');
  ucDatabase.Database:= Ruta;
  inifile.Free;

Y en el CONFIG.INI

[ini]
[BASE]
Ruta=server:c:\ruta\base
[/ini]

De memoria, pero esa es la idea, te quitas de problemas

Saludos

[eduarcol]

ok, con la opcio de Eliseo puedes dejar la data donde quieras, y a ti lo unico que te faltaba era el \ antes de data

[FGarcia]

Aqui ya se incluye el diagonal final

delphi

IncludeTrailingPathDelimiter('localhost:' + ExtractFilePath(Paramstr(0)))

Resultando en esto:

locahost:d:\...\...\...\

[eduarcol]

si es verdad, no lo habia visto, pues lo unico que se me ocurre es la bd no este en esa ruta o que firebird client no este instalado

[FGarcia]

La bd si existe en esa ruta y el fb client tambien. Si asigno la ruta de la bd directamente en el componente todo funciona ok pero si lo hago por codigo no funciona. Esta prueba la he hecho usando solo una de las opciones a la vez.

 

[egostar]

Intenta con el INI mi estimado, no te compliques la vida usando ese IncludeTrailingPathDelimiter()

Saludos

[FGarcia]

Si, ya lo hice con el INI pero soy terco no puedo creer que Delphi no tenga esa capacidad o caracteristica   

En algun lugar del mundo ya es mediodia!!!

[egostar]

Si, ya lo hice con el INI pero soy terco no puedo creer que Delphi no tenga esa capacidad o caracteristica   

En algun lugar del mundo ya es mediodia!!!

Sigo sin entender que quieres hacer, de cualquiera de las formas debe de funcionar, de entrada yo no usaría la funcioncita esa IncludeTrailingPathDelimiter()

Yo lo haría así:

delphi

ucDatabase.Database:= 'localhost:' + ExtractFilePath( Paramstr(0) ) + 'Data\' + NombreBD;

o así

delphi

ucDatabase.Database:= 'localhost:' + ExtractFilePath( Paramstr(0) ) + '\Data\' + NombreBD;

Todo depende de que ExtractFilePath complete o no la última diagonal invertida.

Saludos

[FGarcia]

Jeje

ExtractFilePath no incluye la \

Eso lo hace IncludeTrailingPathDelimiter()

y si al añadir el 'Data\' + NombreBD para buscar la base de datos no me funciona, eso es lo que no entiendo.


Repito: En algun lugar del mundo ya es mediodia  y ademas es Viernes!!!!!! 

[egostar]

Jeje

ExtractFilePath no incluye la \

Eso lo hace IncludeTrailingPathDelimiter()

y si al añadir el 'Data\' + NombreBD para buscar la base de datos no me funciona, eso es lo que no entiendo.


Repito: En algun lugar del mundo ya es mediodia  y ademas es Viernes!!!!!! 

Pues vaya que es raro, yo lo uso en todos mis desarrollos, pero bueno, por eso he puesto la segunda opción agregando '\Data\' en lugar de 'Data\'

delphi

ucDatabase.Database:= 'localhost:' + ExtractFilePath( Paramstr(0) ) + '\Data\' + NombreBD;

Saludos

[FGarcia]

ucDatabase.Database:= 'localhost:' + IncludeTrailingPathDelimiter(ExtractFilePath( Paramstr(0) )) + 'Data\' + NombreBD;

Funciona bien con IBDatabase pero con UniDac debe de quedar asi:

ucDatabase.Database:= IncludeTrailingPathDelimiter(ExtractFilePath( Paramstr(0) )) + 'Data\' + NombreBD;

Que cosas!!

mmm no encuentro como poner que esta resuelto este post....

[FerCastro]

A ver espero no llegar tarde

DM.Conexion.Database := GetCurrentDir + '\data\db.fdb';

Lo que lo hago es crear una capeta llamada DATA dentro de la carpeta principal de la aplicación y a partir de ahi pues solo identifico donde estoy  y listo.

Saludos!!