Cómo comprobar que el servidor está activo.

[afxe]

Saludos a todos.

Os comento: Delphi 7, Firebird 1.5, IBX. He realizado una aplicación que establece los parámetros de conexión (IP del servidor y Path y nombre de la base de datos) e intenta una conexión (try-except). Si la conexión a la base de datos falla, "pre-supongo" que es debido a que no existe la base de datos y pregunto al usuario si quiere crearla (a partir de un sql script).

Os anticipo que es una contabilidad y el usuario (una gestoría) puede crear tantas BDs como clientes tenga, por eso la necesidad de la creación en tiempo de ejecución.

El problema es que si falla la conexión no sólo puede ser debido a la inexistencia de la BD: puede ocurrir, por ejemplo, que el servidor esté apagado, el cable de red desconectado, el servicio haya caido, o que hayan cambiado la IP, que exista un cortafuegos....

Mi pregunta es: ¿Cómo puedo saber si el servidor en la dirección IP configurada existe y está dando el servicio para Firebird correctamente?

Gracias por vuestra atención.

[noshy]

Me imagina que al tratar de conectarte te devuelve un error, tenes que validar el error y ahi verificar la desconxeccion.

Lo que yo hago muy caseramente es: tengo una tabla TBLMaster con cualquier dato que conozco, le hago un Query y valido el dato si el dato es correcto, la coneccion es valida y creo la BD

[waltergomez]

En el sitio de FireBird estan todos los codigos de erros que devuelve el motor en cada una de sus versiones.


Saludos,