como le cambio el pacth a un alias

[perico]

bueno es que necesito cambiar el pacth a un alias antes de cargar mi datamodulo y no se como debo hacerlo para que al cargar mi programa el vea un .ini que tengo y modifique el el alias y luego poder cargar las tablas

[roman]

Para leer el archivo ini usa la clase TIniFile pasándole el nombre del archivo al constructor y usando el método ReadString. Digamos que tu archivo ini se ve así:


[database]
alias=mialias


Entoces harías:


uses
IniFiles;

...

var
IniFile: TIniFile;
Alias: String;

begin
IniFile := TIniFile.Create('miarchivo.ini');
try
Alias := ReadString('database', 'alias', '');
finally
IniFile.Free;
end;
end;


// Saludos

[perico]

ok pero como le asigno el pach al alias de dbe para que al abrir las tablas las busque en el nuevo pach que se lo darian en el archivo .ini

esa era en si mi pregunta.

gracias de todos modos porque eso que me diste si me sirvio, pero no responde la pregunta completa y aun no se como asignarle el pach al alias. Si sabes como te lo agradeceria en el alma

disculpa las molestias :p :p :p

[roman]

Ok. Creo que ya entendí. Del archivo INI lo que tomas es la ruta y ésta se la vas a asignar a un alias.

Si el alias no existe puedes usar el método AddStandardAlias del objeto Session (el global o el que estés usando). Si el alias ya existe y le quieres cambiar la ruta entonces usa el método ModifyAlias (en la ayuda de Delphi viene incluso un ejemplo específico para cambiar la ruta de un alias).

En ambos casos, el alias añadido o modificado sólo se preservará durante la sesión. Si quieres que se preserve siempre usas el método SaveConfigFile.

Para más detalles busca en la ayuda el tema Aliases: BDE (Working with BDE aliases).

Por cierto, es PATH, no PACTH ni PACH.

// Saludos

[Cabanyaler]

Hola, yo utilizo esta función:


// Deja el alias apuntando al directorio
procedure TFPrincipal.ReestableceAlias();
var
AParams: TStringList; // Para el retorno de los parametros de sesion
Dir: string; // Para almacenar la ruta fisica del alias
begin
AParams := TStringList.Create;
Dir := 'M:\Ruta\datos';
// Actualizo los parametros del alias a como debe estar originalmente
AParams.Clear; // Limpio el stringlist
AParams.Add('PATH=' + Dir); // Guardo en la var. el path + la ruta capturada
DModule.Session.ModifyAlias('NombreAlias',AParams); // Modifico el path del alias
DModule.Session.SaveConfigFile; // Guardo de forma permanente al BDE
end;

[perico]

muchas gracias voy a hacerlo asi