Скачать: CL | DM;

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

← →
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

---

← →
keymaster ©   (2002-07-28 23:13) [4]

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


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, попробуй догадаться для чего =)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c