Path Variable

[eber]

Hola Gente!
Bueno, estos son los problemitas que se me presentaron:

1) En mi projecto uso una base de datos tipo Access. En el objeto TDataBase defini el path de la misma, pero la idea es que la ruta sea variable, que si cambio de lugar la aplicacion, siga encontrando la base. Encontre la funcion ExtractFilePath(ParamStr(0)) pero probe de utilizarla en distintos eventos sin exito. Cual es la "receta" parea hacer esto?

2) Como muestro un mensaje diciendo "Imprimiendo..." mientras la impresora este trabajando?

[delphi.com.ar]

Hola Eber!... Primerio quiero sugerirte que si tienes dos preguntas de naturaleza diferente, crees dos hilos diferentes.
Con respecto a tu primer pregunta, tienes que asignarle la ubicación antes de conectar la base de datos, obviamente que si lo haces en tiempo de diseño esto no es viable, por lo que te recomiendo conectar a la base de datos en tiempo de ejecución.

Saludos!

[paren]

Para pregunta 1
prueba esto en el onshow de la forma

Database1.DatabaseName := ExtractFilePath(ParamStr(0)) + 'nombrebasedatos';

en el caso de tablas dbf, si jala la neta no lo he calado con base de datos

[Paoti]

hola paren, mirate como funcionan los archivos INI... myapp.ini!!!!


ahi te va un ejemplo

aqui se carga lo que haya en el archivo .ini que se llama laibense.ini, en tu caso guarda la ruta de tu base de datos....

si no existe el archivo se crea automaticamente y los valoes por default son los que dicen 'NA'

Código Delphi [-]
procedure TFrmConfig.FormCreate(Sender: TObject);
begin
archi := TIniFile.Create('Laibense.ini');
CTNet.Text := archi.ReadString('Base','Net','NA');
CTTemp.Text := archi.ReadString('Base','Temp','NA');
CTRuta.Text := archi.ReadString('Base','Ruta','NA');
end;

aqui guardo al presionar el button3, en la seccion 'Base', con los valores que pongo en las cajas de texto....

Código Delphi [-]
procedure TFrmConfig.Button3Click(Sender: TObject);
begin
archi.WriteString('Base','Net',CTNet.Text);
archi.WriteString('Base','Temp',CTTemp.Text);
archi.WriteString('Base','Ruta', CTRuta.Text);
end;

mirate la ayuda de Delphi: inifiles o Tinifile




chau

[Paoti]

bienvenido paren!!!!!


por la forma de escribir creo que eres de México hermano...


por eso de que si "jala" y la "neta"




nos vemos.....


espero verte aqui seguido viejo

[paren]

Asi es Paoti, soy de México, perdon por usar esas palabras, no me habia puesto a pensar que este es un foro internacional, y gracias por la bienvenida.

Ahh y gracias por lo de los archivos INI, voy a checarlos.

ByTeZ!!.