Ver la Versión Completa : ayuda con alias
Javier PLatas
11-06-2003, 13:38:09
Hola a todos.
Me gustaria saber como crear o modificar un alias en tiempo de ejecucion ,lo necesito para poder configurar una aplicacion que funciona en red.
Un saludo.
marcoszorrilla
11-06-2003, 16:10:46
Prueba esto:
uses DBIProcs, DBITypes;
procedure AddBDEAlias(
sAliasName,
sAliasPath,
sDBDriver : string );
var
h : hDBISes;
begin;
DBIInit( nil );
DBIStartSession( 'dummy', h, '' );
DBIAddAlias( nil,
PChar( sAliasName ),
PChar( sDBDriver ),
PChar( 'PATH:' + sAliasPath ),
True );
DBICloseSession( h );
DBIExit;
end;
Por ejemplo si quieres crear un alias llamado Work_Data que apunte al direcotrio C:\Work\data y utilice el Driver de Dbase por defecto:
AddBDEAlias('WORK_DATA','C:\WORK\DATA','DBASE' );
Un Saludo.
Javier PLatas
12-06-2003, 13:28:57
muchas gracias por tu ayuda lo pruebo ahora mismo ya te cuento algo
un saludo.
Javier PLatas
12-06-2003, 14:21:30
Hola Marcos , ya lo he probado pero no me funciona .
he encontrado otra forma de crear un alias y funciona pero el problema es que una vez creado el alias necesito poder modificar el alias creado .
Para Modificar el alias he encontrado una funcion que se encarga de eso mismo utilizando Tsession.
te pongo el codigo por si te sirve :
Procedure TfrMtoEmp.CambiarAlias;
var
slParametros : TstringList;
begin
Dir := Parametros.enviarBasedatos;//Funcion que devuelve
//el Directorio
if not Session.IsAlias ('Ajp') then
Session.addStandardAlias('Prueba', Dir, 'Paradox')
else
begin
slParametros := TStringList.Create;
slParametros.Clear;
slParametros.Add('PATH=' + Dir);
Session.ModifyAlias('Ajp', slParametros);
Session.SaveConfigFile;
slParametros.Free;
end;
end;
EL PROBLEMA ES QUE AHORA ME DA PROBLEMAS EL TSTRINGLIST
NO ME DEJA AÑADIR LINEAS SABES POR QUE PUEDE SER
UN SALUDO.
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.