Pingar endereço da internet
Bom dia a todos
tenho esse código
Estava funcionando normalmente até a Speedy colocar aquela bendita página de endereço inválido, portanto ele nunca irá retornar erro de página inválida. Fiz o teste via DOS pingando o endereço [b:225406ec3b]www.gogle.com.br[/b:225406ec3b] (é esse endereço mesmo, fiz para teste) e qual foi a minha surpresa? Não deu erro nenhum, apenas pingou o endereço dessa tal página da Telefonica.
Agora muitos irão perguntar pq não usar uma API do Windows, já fiz isso e se o computador está em uma rede local (com ou sem internet) nunca irá dar erro.
Alguem tem outra solução para pingar um endereço da internet? Independente se estiver em uma rede local ou não.
tenho esse código
procedure TfPrincipal.OnReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin
if AReplyStatus.BytesReceived <= 0 then
begin
Minha_MessageDlg(´Não conectado´, mtWarning, [mbOK], 0);
bNetOn := False;
end
else
bNetOn := True;
end;
procedure TfPrincipal.NetIsPresent;
var
Ping : TIdIcmpClient;
begin
Ping := TIdIcmpClient.Create(Nil);
Ping.Host := ´www.google.com.br´;
Ping.OnReply := OnReply;
Ping.Ping();
FreeAndNil(Ping);
end; Estava funcionando normalmente até a Speedy colocar aquela bendita página de endereço inválido, portanto ele nunca irá retornar erro de página inválida. Fiz o teste via DOS pingando o endereço [b:225406ec3b]www.gogle.com.br[/b:225406ec3b] (é esse endereço mesmo, fiz para teste) e qual foi a minha surpresa? Não deu erro nenhum, apenas pingou o endereço dessa tal página da Telefonica.
Agora muitos irão perguntar pq não usar uma API do Windows, já fiz isso e se o computador está em uma rede local (com ou sem internet) nunca irá dar erro.
Alguem tem outra solução para pingar um endereço da internet? Independente se estiver em uma rede local ou não.
Facc
Curtidas 0