El Path del Alias...

[Gabriel2]

Hola a todos. Imaginemos que tengo un Alias en el DBE llamado 'Gestión'. Yo quiciera saber cual es la ruta o path de ese Alias y el unico dato que tengo es su nombre 'Gestion'. Alguna ideita...

[marcoszorrilla]

Aquí tienes un ejemplo:

Código Delphi [-]
 unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, DbTables;
 function RutaAlias(Const alias:String):string;
 type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.DFM}
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 ShowMessage(RutaAlias('JS'));
 end;
   function RutaAlias(Const alias:String):string;
   var cam:TStringList;
 
   begin
   cam:=Tstringlist.Create;
         Try
         Session.GetAliasParams(alias, cam);
         result:= cam.Values['PATH'];
         finally
         cam.Free;
         end;
   end;
 end.

Un Saludo.

[Gabriel2]

Gracias. Muchas gracias por la ayuda...