Como Obtener la lista de alias

[quetzal]

Como puedo Obtener la lista de alias en tiempo de ejecucion, como cuando estas en tiempo de diseño?

Gracias de antemano

[roman]

Usa el método GetAliasNames del objeto global Session.

// Saludos

[quetzal]

Muchas Gracias, ese componente no lo habia utilizado, pero resuelve mi problema

[cipce22]

Empezado por roman

Usa el método GetAliasNames del objeto global Session.

// Saludos

Disculpa por revivir este hilo tan viejo, intenté con el metodo GetAliasName, me entrega los nombres de los ODBC configurados en mi equipo, basicamente necesito el nombre de los alias existentes para las bases de datos (firebird) en mi servidor, se que se almacenan el el aliases.conf pero aun tengo la esperanza de que con algun metodo o algo pueda conseguir ese listado que en este caso, es muy grande, Gracias.

[ecfisa]

Hola cipce22, bienvenido a Club Delphi .

Como a todos los que ingresan te recomendamos leer nuestra guía de estilo.

Si tenes definidos los alias en aliases.conf, para obtener la lista de alias/rutas desde Delphi, podrías hacer:

Código Delphi [-]
...
uses Registry;

procedure GetFirebirdAliases(Strings: TStrings);
var
  path: string;
  i  : Integer;
begin
 with TRegistry.Create do
  try
   RootKey := HKEY_LOCAL_MACHINE;
   if OpenKeyReadOnly('\SOFTWARE\Firebird Project\Firebird Server\Instances') then
     path := ReadString('DefaultInstance');
     Strings.LoadFromFile(path + 'aliases.conf');
     for i:= Strings.Count-1 downto 0 do
      if Pos('#', Trim(Strings[i])) = 1 then
        Strings.Delete(i);
  finally
   Free;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with ListBox1 do
  begin
    Items.Clear;
    GetFirebirdAliases(Items);
  end;
end;

Saludos

[cipce22]

Gracias ecfisa pero por alguna razón el valor que deberia obtener del registro ( que ya revisé y sí contiene la ruta) no es el correcto, me devuelve el valor de donde tengo guardado el proyecto(...Misdocumentos\....) y no el valor que contiene la entrada del registro (C:\Program Files\Firebird\Firebird_2_5\)
¿por qué será?

[ecfisa]

Hola cipe22.

¿ Que versión de Windows estas usando ?, del modo anterior me funciona correctamente en Windows 7.

Saludos