Consultar conexión del Servidor

[[maeyanes]]

Prueba con algo como:

Código Delphi [-]
function CanConnect(Database: TIBDatabase): Boolean;
begin
  try
    Database.Connect;
    Result := True;
    Database.Disconnect
  except
    Result := False
  end
end;

No especificas que componentes usas para conectarte, así que puse el ejemplo con los IBX...



Saludos...