tratar erro de conexao datasnap
Estou desenvolvendo um sistema 3 camadas.
O sistema vai gravas alterações no banco na nuvem e vai registrar no banco local tbm, dependendo se houver ou não conexão.
Como posso verificar se existe conexão no banco que esta na nuvem (datasnap) esta disponível(se esta conectando) e se não esteja tratar este erro ?
Poderia usar usar uma
Try
.
.
Exeption
E...
SDS
ncajunior
O sistema vai gravas alterações no banco na nuvem e vai registrar no banco local tbm, dependendo se houver ou não conexão.
Como posso verificar se existe conexão no banco que esta na nuvem (datasnap) esta disponível(se esta conectando) e se não esteja tratar este erro ?
Poderia usar usar uma
Try
.
.
Exeption
E...
SDS
ncajunior
.jpg "Nilson Jr")
Nilson Jr
Curtidas 1
Melhor post
Robinson Mattos
05/06/2015
Olá amigo,
Este é meu primeiro post heheheh...
Estava com a mesma duvida sua.... Então resolvi tratando da seguinte forma, criei duas funções com retorno boolean uma para verificar a conexão com a rede e outra para verificar se o servidor esta ativo! Bom vc vai entender! heheh
function TSincronia.Verifica_Rede(): boolean;
begin
result:=false;
try
IdTCPClient1.ReadTimeout:=2000;
IdTCPClient1.ConnectTimeout:=2000;
IdTCPClient1.Port:=80;
IdTCPClient1.Host:=ip.Text; // ip é um campo que o usuario sete qual o ip da maquina servidora
IdTCPClient1.Connect;
IdTCPClient1.Disconnect;
result:=true;
showmessage('Rede Conectada');
except
result:=false;
showmessage('Rede Desconectada');
end;
end;
function TSincronia.Verifica_Server: boolean;
begin
result:=false;
try
ModuloCliente.DSRestConnection1.TestConnection();
result:=true;
showmessage('Servidor Iniciado');
except
result:=false;
showmessage('Servidor não Inciado');
end;
end;
ai é só fazer um if com elas se forem verdadeiras satisfaz a condição!
Este código estou usando no xe7 datasnapRest e ta sendo de grande valia!
Precisando estamos ai
Este é meu primeiro post heheheh...
Estava com a mesma duvida sua.... Então resolvi tratando da seguinte forma, criei duas funções com retorno boolean uma para verificar a conexão com a rede e outra para verificar se o servidor esta ativo! Bom vc vai entender! heheh
function TSincronia.Verifica_Rede(): boolean;
begin
result:=false;
try
IdTCPClient1.ReadTimeout:=2000;
IdTCPClient1.ConnectTimeout:=2000;
IdTCPClient1.Port:=80;
IdTCPClient1.Host:=ip.Text; // ip é um campo que o usuario sete qual o ip da maquina servidora
IdTCPClient1.Connect;
IdTCPClient1.Disconnect;
result:=true;
showmessage('Rede Conectada');
except
result:=false;
showmessage('Rede Desconectada');
end;
end;
function TSincronia.Verifica_Server: boolean;
begin
result:=false;
try
ModuloCliente.DSRestConnection1.TestConnection();
result:=true;
showmessage('Servidor Iniciado');
except
result:=false;
showmessage('Servidor não Inciado');
end;
end;
ai é só fazer um if com elas se forem verdadeiras satisfaz a condição!
Este código estou usando no xe7 datasnapRest e ta sendo de grande valia!
Precisando estamos ai
GOSTEI 1
Mais Respostas
Robson Muniz
14/11/2013
Como primeiro post, jah me manda um presente desse?
Valeu amigo esta sendo de grande valia mesmo, jah to usando.
Ganhei o dia.
Valeu amigo esta sendo de grande valia mesmo, jah to usando.
Ganhei o dia.
GOSTEI 0