Как узнать, есть соединение с инетом, или нет

← →
sergant33 (2002-07-27 11:34) [0]

Мне нужно програмно узнать, юзер сейчас в инете, или нет.У кого какие соображения по этому поводу? Плиз кусок кода.

← →
ZZ © (2002-07-27 16:12) [1]

http://delphi.mastak.ru/articles/connect-inet.html

← →
mga (2002-07-28 20:48) [2]

Привет!
Я для этого использовал такой способ. Выбираешь какой-нибудь общеизвестный веб-узел, который просто обяз быть в Инете постоянно. (www.microsoft.com, www.mail.ru) В общем, на твой вкус. Дальше, узнаёшь какой-нибудь его порт и пробуешь к ниму подключиться с помощью подходящего компонента. Я обычно исползовал прокси наших (местных) провайдеров. Провайдеры свободно говорят и адрес, и порт своего прокси. Ну а дальше просто обрабатываешь события OnConnect и OnFailed или как их там? В OnConnect пишешь то, что нужно сделать, если Инет есть, в OnFailed - то, что, если Инета нет. Причём заметь, этот способ тебе говорит о наличии реального подключение к Инету (точнее к узлу), а не просто о том, что есть контакт с удалённым модемом.

← →
ZZ © (2002-07-28 20:53) [3]

mga
Specially for YOU
http://delphi.mastak.ru/articles/connect-inet.html

Народ! все намного проще!!!
учитесь.....

function tform1.InInternet : boolean; Var i : integer; S : string; WSAData: TWSAData; Host : PHostEnt; begin result:=false; S:="www.microsoft.com"; if WSAStartup($101, WSAData) = 0 then begin Host := GetHostByName(@S[1]); result := Host<>nil; WSACleanUp; end; end;

← →
Cheboor (2002-08-09 19:12) [5]

помоему, это далеко не оптимальные решения, предлагаю другое - на панельке компонентов IndyMisc, на которой лежит IdIpwatch - чудесная весч! (у него есть свойство isonline: boolean, попробуй догадаться для чего =)

Как узнать, есть соединение с инетом, или нет Найти похожие ветки