(Resolvido) Perda de conexão com o Banco de Dados?

[Mario Henrique]

E aí!

Numa rede com 20 terminais, 1 servidor Linux, tenho 1 terminal que freqüentemente perde a conexão com o Banco de Dados!

Neste terminal, a aplicação tem que estar ativa 24hs por dia!

Quero fazer o seguinte: quando este terminal perder a conexão, eu quero executar uma rotina automática na aplicação,

onde a Aplicação entre num "looping" no objetivo de se reconectar com o Banco de Dados. Se não conseguir, da um tempo

e tenta novamente! Quero executar este "looping" 10 vezes. Se não conseguir, dai sim, "ufa"... finaliza a aplicação!

É isto!

Não estou preocupado com o "porque" da queda da conexão, mas sim em como manter minha aplicação sempre ativa com o Banco de Dados! Mesmo que perca a conexão, sem finalizar a aplicação, ela é reconectada!

Ajuda ai pessoal?

Abraços!

Editado Junho 11, 2010 por Mario Henrique

[Jhonas]

Quero fazer o seguinte: quando este terminal perder a conexão, eu quero executar uma rotina automática na aplicação,

onde a Aplicação entre num "looping" no objetivo de se reconectar com o Banco de Dados. Se não conseguir, da um tempo

e tenta novamente! Quero executar este "looping" 10 vezes. Se não conseguir, dai sim, "ufa"... finaliza a aplicação!

É isto!

Este código está dentro de um botão, mas voce pode usar um timer para testar de tempos em tempos a conexão

procedure TForm1.Button1Click(Sender: TObject);
begin
   try
      with IBDatabase1 do
      begin
        Connected := true;
        //showmessage('Banco de Dados Conectado' );
      end;
   except on E:exception do
      begin
        IBDatabase1.Connected := false;
        showmessage('Falha ao conectar com o banco de dados. Erro = "'+E.message+'"' );
        Application.Terminate;
      end;
   end;
end;

abraço

[Mario Henrique]

Opa!

Ótimo Jhonas, já estou aplicando por aqui!

Obrigado pela atenção!

Abraços!