ActiveDelphi :: Exibir tópico - [RESOLVIDO] Ajuda! Tratamento de Erro no Delphi !!
[RESOLVIDO] Ajuda! Tratamento de Erro no Delphi !!
LipeSoratto
Registrado: Segunda-Feira, 14 de Junho de 2010
Enviada: Qui Out 30, 2014 9:11 am Assunto: [RESOLVIDO] Ajuda! Tratamento de Erro no Delphi !!
Tenho uma aplicação em delphi conectada a um banco de dados em um servidor externo. Bom, eventualmente o servidor fica desligado e quando executo a aplicação aparece a mensagem de erro com o caminho onde o sistema buscou o banco e não o encontrou...
Gostaria de saber se alguém pode me passar uma ideia de como mascarar esse erro de forma que não apareça o caminho do banco de dados.. Algum código que faça uma verificação no banco de dados e em caso de erro nem abra o sistema, apenas emita uma mensagem dizendo que está em manutenção...
Editado pela última vez por LipeSoratto em Qui Out 30, 2014 4:18 pm, num total de 1 vez
Registrado: Sexta-Feira, 18 de Outubro de 2013
Enviada: Qui Out 30, 2014 9:57 am Assunto:
Olá Lipe.
Tente o seguinte. Na função que faz a conexão com o banco de dados:
//SEu código para ativar a conexão
Conexao.Active := True;
MessageDlg('Não há conexão com o banco de dados. O Servidor pode estar em manutenção.', mtWarning, [MbOk],0);
Application.Terminate; //FINALIZA sua APLICACAO.
Enviada: Qui Out 30, 2014 10:45 am Assunto:
Mas você tem de dar uma mensagem ao usuário, pois se não ele ficará abrindo o sistema sem saber que o servidor do banco de dados está fora do ar.
Enviada: Qui Out 30, 2014 4:17 pm Assunto:
Obrigado a Todos, consegui resolver o problema.
Como a mensagem aparecia quando o datamodule (onde fica o ADOConection) era criado então no evento on create do data module eu coloquei: