Como saber se esta conectado a Internet

Delphi

06/02/2004

Oi Pessoal...
Mais uma vez Gostaria de saber como eu faço para que o meu aplicativo saiba que esta conectado a internet olha o algaritimo abaixo..

se o computador estiver conectado a internet entao
inicio
comando...
fim.

Obriago.


Spooner

Spooner

Curtidas 0

Respostas

Alexdias

Alexdias

06/02/2004

8) AI VAI CARO COLEGA ... 8)


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!´);
3º) Execute o programa e veja o resultado;

OBS : Insira o codigo no evento onshow e não no on creat nem no onactivete;


GOSTEI 0
Fabio.hc

Fabio.hc

06/02/2004

Tente esta dica:

[url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=30176&start=0&postdays=0&postorder=asc&highlight=[/url]


GOSTEI 0
Adilsond

Adilsond

06/02/2004

Experimente a função abaixo para saber se a internet está OffLine

uses WiniNet


function IsGlobalOffline: boolean;
var
State, Size: DWORD;
begin
Result := False;
State := 0;
Size := SizeOf(DWORD);
if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @State, Size) then
if (State and INTERNET_STATE_DISCONNECTED_BY_USER) <> 0 then
Result := True;
end;


GOSTEI 0
Spooner

Spooner

06/02/2004

Obrigado a Todos que postaram, afim de me ajudar..
Valew Fabio,, mais uma fez deu Certinho... :wink:

Obrigado.


GOSTEI 0
POSTAR