Cómo comprobar que el servidor está activo.
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.
|