ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

[RESOLVIDO] Ajuda! Tratamento de Erro no Delphi !!

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
LipeSoratto
Novato
Novato


Registrado: Segunda-Feira, 14 de Junho de 2010
Mensagens: 16

MensagemEnviada: Qui Out 30, 2014 9:11 am    Assunto: [RESOLVIDO] Ajuda! Tratamento de Erro no Delphi !! Responder com Citação

Bom Dia a Todos,

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...

Valeu Gente !


Editado pela última vez por LipeSoratto em Qui Out 30, 2014 4:18 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
DanielChrome
Novato
Novato


Registrado: Sexta-Feira, 18 de Outubro de 2013
Mensagens: 23

MensagemEnviada: Qui Out 30, 2014 9:57 am    Assunto: Responder com Citação

Olá Lipe.

Tente o seguinte. Na função que faz a conexão com o banco de dados:
Código:

Try
    //SEu código para ativar a conexão
    Conexao.Active := True;

Except
    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.
ENd;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10527
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Qui Out 30, 2014 10:45 am    Assunto: Responder com Citação

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.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
LipeSoratto
Novato
Novato


Registrado: Segunda-Feira, 14 de Junho de 2010
Mensagens: 16

MensagemEnviada: Qui Out 30, 2014 4:17 pm    Assunto: Responder com Citação

Bom pessoal,

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:

Código:
 

Try

Conexao.conected = true

except

 if conexao.conected = false then
 begin
 showmessage('Sistema em Manutenção. Aguarde!');
 menu_principal.close;
 end;

end;





Funcionou perfeitamente Obrigado !
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB