FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Intentar conexion FB en tiempo de ejecución
A ver...
Tengo una aplicación con dos tipos de bases de datos. Una de ellas está en Access y se utiliza para trabajar en forma local (por el momento). La otra está realizada en Firebird en un servidor remoto. Deseo hacer que en el caso de que no exista una conexión activa a internet y no haya acceso al servidor de Firebird, el programa siga con su ejecución normal tras intentar conectarse tres veces. Por el momento lo único que consigo es una excepción (EIBInterBaseError) que no soy capaz de controlar. Código:
if intentos<3 then begin try if DM.IBDb1.Connected=FALSE then BEGIN frmPortada.StatusBar1.Panels.Items[4].Text:='Servidor Remoto Cerrado'; TRY DM.IBDb1.Connected:=TRUE; intentos:=intentos+1; timer1.Enabled:=TRUE; EXCEPT END; END ELSE begin frmPortada.StatusBar1.Panels.Items[4].Text:='Actualizando desde Servidor Remoto'; PingConexion('C');//Esto vuelca unos datos a la base de Firebird end except end; end;
__________________
No sabiendo que era imposible... él fue... y lo hizo!!! En fase de construcción: LoBusco.com más .com que nunca! |
#2
|
||||
|
||||
Resp
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa. |
#3
|
||||
|
||||
Gracias rastafarey por contestar.
Voy a probar lo que me dices.
__________________
No sabiendo que era imposible... él fue... y lo hizo!!! En fase de construcción: LoBusco.com más .com que nunca! |
#4
|
||||
|
||||
Siento haber tardado tanto en contestar.
Funciona perfectamente. Gracias rastafarey.
__________________
No sabiendo que era imposible... él fue... y lo hizo!!! En fase de construcción: LoBusco.com más .com que nunca! |
#5
|
||||
|
||||
Resp
De nada y para eso estamos
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa. |
|
|
|