Verificar se servidor DataSnap DbxConnection com FireMonkey está rodando
Pessoal, preciso de uma ajuda. Estrou tentando verificar se meu servidor DataSnap esta rodando e não estou conseguindo. Verifico se o componente SQLConnection é verdadeiro ou falso mas não está funcionando se o servidor não está rodando. Como faço isso? Faço assim:
Num Timer no frmPrincipal, ta isso:
Se o servidor não está rodando não vai.
Num Timer no frmPrincipal, ta isso:
if CDM.Conexao.Connected = False then begin CDM.Conexao.Connected := true; pnlBotoes.Enabled := true; AniIndicator1.Enabled := false; end; if not CDM.Conexao.Connected then begin ShowMessage('Erro ao conectar no Servidor. Verifique conexão!'); Timer1.Enabled := False; frm_main.Hide; Halt; FreeAndNil(Application); end;
Se o servidor não está rodando não vai.
Frederico Brigatte***
Curtidas 0
Respostas
Marisiana Battistella
09/09/2014
Olá Frederico!
Encontrei este artigo [url]http://www.andreanolanusse.com/pt/datasnap-compartilhando-conexao-com-o-banco-entre-diferentes-server-classes-a-partir-do-mesmo-cliente-session/[/url]
Talvez ele possa te ajudar, pelo que vi ele tem uma explicação detalhada sobre como criar a conexão....
Espero que te ajude...
Encontrei este artigo [url]http://www.andreanolanusse.com/pt/datasnap-compartilhando-conexao-com-o-banco-entre-diferentes-server-classes-a-partir-do-mesmo-cliente-session/[/url]
Talvez ele possa te ajudar, pelo que vi ele tem uma explicação detalhada sobre como criar a conexão....
Espero que te ajude...
GOSTEI 0
Frederico Brigatte***
09/09/2014
Marisiana, você me ajuda, não to sabendo implementar isso. Checar se esta offora eu sei, checo se connected = false, não sei verificar se esta on.
GOSTEI 0
Frederico Brigatte***
09/09/2014
Checar se está off eu fiz, ta funcionando legal. Deixo Conexao.Connected = False como default.
Isso ta num Timer
O problema ta checar se o servidor ta rodando e dar Conexao.Connected = True.
Isso ta num Timer
if not CDM.Conexao.Connected then begin ShowMessage('Erro ao conectar no Servidor. Verifique conexão!'); Timer1.Enabled := False; frm_main.Hide; Halt; FreeAndNil(Application); end;
O problema ta checar se o servidor ta rodando e dar Conexao.Connected = True.
GOSTEI 0
Frederico Brigatte***
09/09/2014
Alguém poderia ajudar?
GOSTEI 0
Hermeson Gonçalves
09/09/2014
estou com a mesma dúvida... o que você quer saber, é se a sessão está ativa não é??? se tu achar posta aqui... kkk
GOSTEI 0