Как проверить соединение с Интернетом

[hacknet]

Здравствуйте Уважаемые программисты! Есть такая фун-ция netIsOffline из URL.DLL для проверки соединения компа с инетом, создаю обработчик событий онклик на кнопке и пишу

procedure TForm1.Button1Click(Sender: TObject);
if InetIsOffline(0) then
  ShowMessage('This computer is not connected to Internet!')
else
  ShowMessage('You are connected to Internet!');

и если комп соединенён с инетом, то появиться это сообщение 'You are connected to Internet!' и если нет, то 'This computer is not connected to Internet!'...так вот такая проблема, когда Я комп отрубаю от инета, он серовно показывает вот это сообщение 'You are connected to Internet!' не подскажите в чём сдесь дело???

[KORN]

try
idhttp1.head('google.ru');
showmessage('инет есть');
except
showmessage('инета нет');
end;

можно так проверить

[hacknet]

а поточнее можно..т,е полностью код написать

15:39

вот мой код

код:

procedure TForm1.Button3Click(Sender: TObject);
begin
try
idhttp1.head('');
showmessage('инет есть');
except
showmessage('инета нет');
end;
end;
end.

и вылазит такая ошибка



Что, начались проблемы со зрением?
Кнопку "Правка" в упор не видите?
Тэг "Код" тоже не привыкли использовать?
Получите "горчичник".

[Пепел Феникса]

procedure TForm1.Button3Click(Sender: TObject);
begin
try
idhttp1.head('google.ru');
showmessage('инет есть');
except
showmessage('инета нет');
end;
end;
end.

ну написали же тебе четко,что тяжело просто скопировать?

[mihali4]

Ради интереса у себя попробовал - 'инета нет'
Что ни пиши в адресе ('http://www.google.com', 'www.google.com', 'google.com') - 'инета нет'...

[SeRhy]

function InetIsOffline(Flag: Integer): Boolean;
stdcall; external 'URL.DLL';

if InetIsOffline(0) then ShowMessage('Инета нет') else
 ShowMessage('Инет есть');

[KORN]

ввел http://ya.ru и все работает, на гугле действительно спотыкается...

пруфпик
http://slil.ru/27240813

[hacknet]

Сообщение от SeRhy

function InetIsOffline(Flag: Integer): Boolean;
stdcall; external 'URL.DLL';

if InetIsOffline(0) then ShowMessage('Инета нет') else
 ShowMessage('Инет есть');

и так тоже не получается! вылазиет ошибка!
не мог ли бы сделать рабочий проект...чтоб если инета нет, то просто ждал бы подключения, а если инет есть нажалась бы кнока!
мне самому не трудно, просто у меня получается так..когда инет не подключен, то он серовно жмёт кнопку!!

16:51

Сообщение от KORN

ввел http://ya.ru и все работает, на гугле действительно спотыкается...
пруфпик
http://slil.ru/27240813

работает на любом сайте главно написать "http://" а Вы попробуйте отключить инет...и посмотрите что будет написано!!

17:47

вот нашел кому интересно посмотрите! у меня работает!
но есть вопрос, как сделать, если конекта нет...то он просто бы ждал или проверял каждые мин10..как появиться показал сообщение??

{Static linking. }

 uses
   WinInet;

 {...}

 function IsConnectedToInternet: Boolean;
 var
   dwConnectionTypes: DWORD;
 begin
   dwConnectionTypes :=
     INTERNET_CONNECTION_MODEM +
     INTERNET_CONNECTION_LAN +
     INTERNET_CONNECTION_PROXY;
   Result := InternetGetConnectedState(@dwConnectionTypes, 0);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if IsConnectedToInternet then
     ShowMessage('Connected.')
   else
     ShowMessage('Not Connected.')
 end;

[Dj_smart]

Поместите на форму таймер и выставьте инервал в секунду. и код:

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:=Timer1.Tag+1;
  if Timer1.Tag>=600 then begin // 600 - это 10 мин в секундах
    Timer1.Tag:=0;
     if IsConnectedToInternet then
       ShowMessage('Connected.');
  end;
end;

[Пепел Феникса]

наличие соединения не значит что возможно чтото получить с инета
есть такое понятие как висящий канал
так что нужно получать какой-то документ