Existe algum componente que mostra quando esta conectado!

Delphi

12/12/2003

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

Sem mais...


Wgm8

Wgm8

Curtidas 0

Respostas

Jonnymarques

Jonnymarques

12/12/2003

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á


GOSTEI 0
Tnaires

Tnaires

12/12/2003

Olá a todos

Conforme 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


GOSTEI 0
Neguete

Neguete

12/12/2003

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..


GOSTEI 0
POSTAR