Existe un alias ?

[GustavoCruz]

Hola a todos y gracias por tomar algo de tu tiempo y mirar...

mi pregunta es la siguiente: Cómo hago para saber si existe un alias (por código) en mi máquina y si no qué debo hacer para crearlo (por código).

Gracias por todos los aportes...

[jhonny]

Empezado por GustavoCruz

Hola a todos y gracias por tomar algo de tu tiempo y mirar...

mi pregunta es la siguiente: Cómo hago para saber si existe un alias (por código) en mi máquina y si no qué debo hacer para crearlo (por código).

Gracias por todos los aportes...

Estas hablando de un Alias del BDE o de un alias en el archivo aliases de FireBird, ¿O de que?

[GustavoCruz]

Del BDE, pero si me quieres hablar, además, de FireBird; yo no me quejaría...

[jhonny]

Para saber si un alias de BDE existe, puedes hacerlo de la siguiente forma:

1) Baja un TSession.

2) Colocale un valor en SessionName.

3) Haces el siguiente codigo donde quieres averiguar lo que haz comentado... suponiendo que el Alias tuviera como nombre 'Hola'.

Código Delphi [-]
var
  LCadena :TStringList;
begin
  LCadena := TStringList.Create;

  Session1.Close;
  Session1.Open;
  Session1.GetAliasNames(LCadena);

  if LCadena.IndexOf('Hola') <> -1 then
    ShowMessage('Existe')
  else
    ShowMessage('No Existe');
end;

Pero para crear el Alias, busca información sobre su metodo AddAlias .

Nota: Cuando te pregunte, si era el alias de FireBird, me referia a las configuraciones de alias que uno hace en archivo aliases.conf que esta en la carpeta de FireBird .