Testar conexão Internet

[rbleonel]

Olá pessoal!

Utilizo Delphi 2010.

Para testar se a internet está conectada e navegando, faço da seguinte forma:

var

netfunciona: Boolean;

netfunciona := InternetCheckConnection('http://www.seusite.com.br/', 1, 0);

Funciona perfeitamente, porém, quando a internet não está funcionando, o tempo de resposta é muito demorado.

Existe uma forma confiável e de resposta rápida para testar a conexão com a internet? Tempo de resposta ser mais rápido?

Obrigado,

Rogério.

[Sérgio Assunção]

1 hora atrás, rblsystem disse:

Olá pessoal!

Utilizo Delphi 2010.

Para testar se a internet está conectada e navegando, faço da seguinte forma:

var

netfunciona: Boolean;

netfunciona := InternetCheckConnection('http://www.seusite.com.br/', 1, 0);

Funciona perfeitamente, porém, quando a internet não está funcionando, o tempo de resposta é muito demorado.

Existe uma forma confiável e de resposta rápida para testar a conexão com a internet? Tempo de resposta ser mais rápido?

Obrigado,

Rogério.

Tente essa função:
 

function TForm1.pingIp(Host: String): Boolean; 
var 
  IdICMPClient: TIdICMPClient; 
begin 
  try 
    IdICMPClient := TIdICMPClient.Create(Nil); 
    IdICMPClient.Host := Host; 
    IdICMPClient.ReceiveTimeout := 500; 
    IdICMPClient.Ping; 
    Result := (IdICMPClient.ReplyStatus.BytesReceived > 0); 
  finally 
    IdICMPClient.Free; 
  end; 
end;

...você pode aumentar ou diminuir o ReceiveTimeout e controlar o tempo desejável para a resposta.

[rbleonel]

Em ‎25‎/‎08‎/‎2016 at 17:52, Sérgio Assunção disse:

Tente essa função:
 

function TForm1.pingIp(Host: String): Boolean; 
var 
  IdICMPClient: TIdICMPClient; 
begin 
  try 
    IdICMPClient := TIdICMPClient.Create(Nil); 
    IdICMPClient.Host := Host; 
    IdICMPClient.ReceiveTimeout := 500; 
    IdICMPClient.Ping; 
    Result := (IdICMPClient.ReplyStatus.BytesReceived > 0); 
  finally 
    IdICMPClient.Free; 
  end; 
end;

...você pode aumentar ou diminuir o ReceiveTimeout e controlar o tempo desejável para a resposta.

Bom dia Sérgio. Obrigado pela resposta.

Só voltar neste assunto agora. Muita correria.

Quando desligo a internet do PC, está retornando a seguinte mensagem:

Socket Error # 11001

Host not found

Isso acontece quando vai pingar o host.

Sabes dizer como resolver este problema?

Obrigado,

Rogério.

[Sérgio Assunção]

Tenta pingIp("www.registro.br");

[rbleonel]

Apresenta o mesmo problema.

Qualquer endereço que coloco retorna erro quando a internet está desligada.

[Marceloal]

Isso ocorre porque não da para fazer um ping se o nem o host foi resolvido. Então o erro já indica que não há conexão com a internet. Outra saída é fazer o ping em um IP remoto no lugar do host.

[Ewerton Diniz]

isso não funciona, só pinga host da rede local, links, ip externos só da erro.

Editado 16 Novembro, 2020 por Ewerton Diniz

[Juliomar Marchetti]

17 minutos atrás, Ewerton Diniz disse:

isso não funciona, só pinga host da rede local, links, ip externos só da erro.

Tem alguma solução que funcione?

[Ewerton Diniz]

Em Delphi não, deixei quieto mó trampo e não deu certo rs...
acabei colocando no projeto C# mesmo (em anexo), em 1 minuto funcionou como esperado.

De qualquer forma obrigado pelo interesse no assunto.

[Juliomar Marchetti]

Báh legal. mas o pessoal estava procurando algo em pascal/delphi.

vamos deixar ai para quem quiser se aventurar a mudar de linguagem+

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[Victor H. Gonzales - Panda]

para windows, declarar a uses Winapi.WinInet;

function isInternetConected : Boolean;
begin
  Result := InternetCheckConnection('http://google.com', 1, 0);
end;