Como Obtener la lista de alias

[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

[cipce22]

Empezado por ecfisa

Hola cipe22.

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

Saludos

Hola de nuevo ecfisa.
Disculpa que olvide ese detalle tan importante, estoy utilizando Windows 8 x64

Código Delphi [-]
path := ReadString('DefaultInstance');

En esa parte la variable "path" no recibe valor alguno, ¿debo dar algun tipo de privilegio?

[ecfisa]

Hola cipce22.

Podríamos hacer que previemente el procedimiento detecte si estamos en Windows 32 o 64 bits para luego leer la clave correcta:

Código Delphi [-]
uses Registry;

function IsWOW64: Boolean;
type
  LPFN_ISWOW64PROCESS = function(hProcess: THandle; var Wow64Process: BOOL): BOOL; stdcall;
var
  fnIsWow64Process: LPFN_ISWOW64PROCESS;
  bIsWOW64: BOOL;
begin
  Result:= False;
  fnIsWow64Process:= LPFN_ISWOW64PROCESS(
    GetProcAddress( GetModuleHandle('kernel32'), 'IsWow64Process') );
  if Assigned( fnIsWow64Process ) then
  begin
    bIsWow64:= False;
    if fnIsWow64Process(GetCurrentProcess(), bIsWOW64) then
      Result:= bIsWOW64;
  end;
end;

procedure GetFirebirdAliases(Strings: TStrings);
const
  KEY_WOW64_64KEY = $0100;
  RKEYS: array[Boolean] of string = (
    '\Software\Firebird Project\Firebird Server\Instances',   // Windows 32
    '\SOFTWARE\WOW6432node\Firebird Project\Firebird Server\Instances' ); // Windows 64 (*)
   
var
  path: string;
  i  : Integer;
  Reg: TRegistry;
  W64: Boolean;
begin
  W64 := isWOW64;
  with TRegistry.Create(KEY_READ + KEY_WOW64_64KEY * Integer(W64)) do
  try
   RootKey := HKEY_LOCAL_MACHINE;
   if OpenKeyReadOnly(RKEYS[W64]) 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;

(*) No tengo Windows 64 bits en este momento como para comprobar el valor de la clave en esa versión.
Aunque si interpreté bién lo escrito en este enlace, Registry Redirector, debería ser ese.

Tendrías que usar el regedit para controlar si el valor de clave "\SOFTWARE\WOW6432node\Firebird Project\Firebird Server\Instances" es el correcto.

Saludos