Ver Mensaje Individual
  #4  
Antiguo 22-01-2008
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.070
Reputación: 32
jhonny Va camino a la famajhonny Va camino a la fama
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 .
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita