Existe algum componente que mostra quando esta conectado!

Question

Preciso de um componente tipo aquele quando fazemos uma conex�o e aparece l� no cantinho piscando, alguem sabe como se chama?Sem mais......

Jonnymarques · Answer

Encontrei esta dica por a�... n�o sei se funciona + vc pode testar

1�) Voc� deve acrescentar um componente NMFTP (da paleta FastNet).

2�) Insira o seguinte c�digo no evento OnShow do formul�rio.

If (NMFtp1.GetLocalAddress <> �0,0,0,0�) Then ShowMessage(�Voc� n�o est� conectado!�)

Else ShowMessage(�Voc� est� conectado!�);

Associe a um timer e veja no que d�

Tnaires · Answer

Ol� a todosConforme j� escrevi em outro t�pico, tentei no computador da minha casa usar esse componente, mas ele diz q eu estou on-line qdo na verdade estou off-line. Aproveito pra re-relan�ar a quest�o: por qu� (isso t� ficando um saco  :D)?Sucesso...

Neguete · Answer

Bom, se vcs estiverem querendo testar se existe uma conex�o ativa, aki vai a procedure:

*Adicione no uses �Wininet�

procedure TfrmLogin.TestaConexao;
var
Flags: DWORD;
begin
if not InternetGetConnectedState(@Flags, 0) then
ShowMessage(�Voc� n�o est� conectado � Internet.�)
else
begin
if Flags and INTERNET_CONNECTION_LAN <> 0 then
ShowMessage(�Voc� est� conectado � Internet atrav�s de LAN�);
if Flags and INTERNET_CONNECTION_MODEM <> 0 then
ShowMessage(�Voc� est� conectado � Internet atrav�s de MODEM�);
if Flags and INTERNET_CONNECTION_PROXY <> 0 then
ShowMessage(�Voc� est� conectado � Internet atrav�s de proxy.�);
end;
end;

O mais importante eh o primeiro if..
Estou programando em Delphi 7 e pelo menos aki, ela funcionou.. :wink:

Abra�os..