!!Error a desconectarme de Firebirds!!

[acertij022]

Empezado por guillotmarc

Hola.

Prueba a hacer un Close del TIBDatabase antes de desconectar el cable de red.

Saludos.

Entiendo lo que me decis , pero el tema es que no se como detectar cuando ya no se encuentra conectado el clable de la red o esta fuera de la red para cerrar el TIBDatabase

[gendelphi]

Prueba capturando las excepciones que ocurren en tu aplicación, esto lo haces asi:

Define en la seccion private de tu formulario principal la siguiente funcion:

procedure AppException(Sender: TObject; E: Exception);

Luego en el evento OnCreate de tu formulario principal:

Application.OnException:=AppException;

Y por ultimo implementas la funcion, para que trate a la exception generada, no tengo a la mano el nombre de la excepcion que se genera, pero no creo que sea dificil averiguarlo.

procedure TFormMainMenu.AppException(Sender: TObject; E: Exception);
begin
//Checar que tipo de excepcion es, y hacer alguna accion
end;