Testar conex�o internet atrav�s do Delphi

Question

Tenho uma aplica��o que para executar um determinado procedimento, necessita estar conectada � internet. Sendo assim, antes de ativar o procedimento, tenho que testar se a m�quina est� conectada com a internet. Algu�m poderia me ajudar informando de alguma fun��o para resolver esse meu problema?

Um abra�o a todos

Marco Salles · Answer

De uma olhada na Unit : WinInet , existem muitas fun�oes pre-definidas
que usa a API wininet.dll . Essa DLL esta definida em System32 no caso do Windows ...

De qualquer forma tente assim ...

var
 i:dword;
begin
if InternetGetConnectedState(@i,0) then
  showmessage(�esta conectado�)
else
  showmessage(�nun ta n�o�);

Pedrocassimiro · Answer

Caro colaborador

Testei a rotina no meu micro e funcionou. Falta apenas testar nas m�quinas do meu cliente, pois o mesmo possui uma rede com v�rias esta��es conectadas. Assim que concluir os testes te informo se est� tudo OK.

Muito obrigado

Pedrocassimiro · Answer

Prezado colaborador

A rotina que voc� me orientou a implementar para testar a conex�o com a Internet, funciona perefeitamente no meu notebook, onde tenho um modem banda larga 3G. Ao colocar a aolica��o na maquina do meu cliente, que tem uma rede de 2 micros e um deles � ligado a um modem da Velox (internet banda larga), a rotina n�o funciona. Alguma outra orienta��o, pois ja nao sei mais o q fazer...

Um abra�o

Marco Salles · Answer

Existem muitas rotinas com esta finalidade ... Ums tem sucessos com uma outras tem sucesso com outras . Bem pelo menos isto � o que d� para entender lendo os T�picos sobre o assunto...

Eu particularmente , gosto de usar a dll wininet .. Eu por�m n�o sei como esta configurado essas m�quinas na Rede . Muitas vezes existem Terminais de rede com menos capacidade , com pouca mem�ria e baixa velocidade e n�o comporta o Xp,ou n�o tem esta DLL instalada <System32> . S�o apenas Terminais �Burros�.

Curiosamente voce chegou a testou o Codigo na M�quina SERVIDORA ???

Tente colocar o c�digo abaixo e reporte o codigo abaixo para saber como � a sua Rede :

function connectionkind: boolean;
var
  flags: dword;
begin
  result := internetgetconnectedstate(@flags, 0);
  if result then
  begin
  if (flags and internet_connection_modem) = internet_connection_modem
then
  showmessage(�modem�);
  if (flags and internet_connection_lan) = internet_connection_lan then
  showmessage(�lan�);
  if (flags and internet_connection_proxy) = internet_connection_proxy
then
  showmessage(�proxy�);
  if (flags and internet_connection_modem_busy) =
internet_connection_modem_busy then
  showmessage(�modem busy�);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
connectionkind;
end;

E tb efetuar uma pesquisa r�pida que voce ter� outras op��es , para testar esta conectividade . So n�o deixa de informar com qual desses codigos voce conseguir� resolver o seu problema ...

por exemplo :

http://www.tecnobyte.com.br/dica5.html

http://forum.devmedia.com.br/viewtopic.php?p=97041&sid=42fad706634eae3c532bd6e80d5d1555

http://forum.devmedia.com.br/viewtopic.php?t=30176&start=0&postdays=0&postorder=asc&highlight=

http://www.forumweb.com.br/foruns/index.php?showtopic=31192

enfim , s�o muitas op��es ... Mas o codigo que lhe passei deveria funcionar , pelo menos no SERVIDOR ????

Pedrocassimiro · Answer

Marcos Vou implementar novas rotinas e testar. N�o se preocupe pois assim que resolver te retorno. Um abra�o...

Ademir Lusa · Answer

funcionou legal dessa formaunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, WiniNet;type TForm1 = class(TForm) Button1: TButton; procedure CONECTADO; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; IsGlobalOffline : Boolean;implementation{$R *.dfm}procedure TForm1.CONECTADO;var estado : Dword;beginif not InternetGetConnectedState(@estado, 0) then IsGlobalOffline := Falseelsebeginif (estado and INTERNET_CONNECTION_LAN <> 0) OR (estado and INTERNET_CONNECTION_MODEM <> 0) or (Estado and INTERNET_CONNECTION_PROXY <> 0) thenIsGlobalOffline := True;end;end;procedure TForm1.Button1Click(Sender: TObject);var estado : Dword;beginCONECTADO;if IsGlobalOffline = False thenBEGINShowMessage(Voc� n�o est� conectado � Internet.)end;if IsGlobalOffline = TRUE thenBEGINShowMessage(:: Connection :: Voc� est� conectado � Internet::);end;end;End....

Geraldo Rodrigues · Answer

Testei est� �ltima op��o e funcionou corretamente....

Rosilene Back · Answer

Aqui n�o deu certo. Apenas verifica se est� conectado a uma rede. Mais n�o verifica se nessa rede tem internet....

Adriano Pratti · Answer

Bom dia - Muito bom, eu s� dei uma mudada um pouco na ideia e usei como function, assim posso usar a fun��o direto dentro de u IF e o resultado eu trabalho conforme retorno, inclusive usei um STATUSBAR para mostrar o texto se com ou sem net. abaixo o script em forma de fun��o para quem preferir.

function TForm1.funStatusInternet: Boolean;
var estado : Dword;
begin
try
if not InternetGetConnectedState(@estado, 0) then
Result := False
else
begin
if (estado and INTERNET_CONNECTION_LAN <> 0) OR
(estado and INTERNET_CONNECTION_MODEM <> 0) or
(Estado and INTERNET_CONNECTION_PROXY <> 0) then
Result := True;
end;
except
Result := False
end;
end;

//E dentro de um timer deixei a resposta assim no STATUSBAR
procedure TForm1.tmStatusInternetTimer(Sender: TObject);
begin
if not funStatusInternet then
begin
lblStatusInternet.Font.Color := clRed;
lblStatusInternet.Caption := 'SEM INTERNET OFFLINE';
StatusBar1.Panels[0].Text := 'SEM INTERNET OFFLINE';
end
else
begin
lblStatusInternet.Font.Color := clGreen;
lblStatusInternet.Caption := 'INTERNET ONLINE';
StatusBar1.Panels[0].Text := 'INTERNET ONLINE';
end;
end;

Obrigado a todos.