| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать, есть соединение с инетом, или нет [D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]
sergant33 © (2002-07-27 11:34:00)Мне нужно програмно узнать, юзер сейчас в инете, или нет.У кого какие соображения по этому поводу? Плиз кусок кода.
Cheboor (2002-08-09 19:12:00) [1]помоему, это далеко не оптимальные решения, предлагаю другое - на панельке компонентов IndyMisc, на которой лежит IdIpwatch - чудесная весч! (у него есть свойство isonline: boolean, попробуй догадаться для чего =)
keymaster (2002-07-28 23:13:00) [2]Народ!все намного проще!!!
учитесь.....
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;
ZZ (2002-07-28 20:53:00) [3]mga
Specially for YOU
http://delphi.mastak.ru/articles/connect-inet.html
mga (2002-07-28 20:48:00) [4]Привет!
Я для этого использовал такой способ. Выбираешь какой-нибудь общеизвестный веб-узел, который просто обяз быть в Инете постоянно. (www.microsoft.com, www.mail.ru) В общем, на твой вкус. Дальше, узнаёшь какой-нибудь его порт и пробуешь к ниму подключиться с помощью подходящего компонента. Я обычно исползовал прокси наших (местных) провайдеров. Провайдеры свободно говорят и адрес, и порт своего прокси. Ну а дальше просто обрабатываешь события OnConnect и OnFailed или как их там? В OnConnect пишешь то, что нужно сделать, если Инет есть, в OnFailed - то, что, если Инета нет. Причём заметь, этот способ тебе говорит о наличии реального подключение к Инету (точнее к узлу), а не просто о том, что есть контакт с удалённым модемом.
ZZ (2002-07-27 16:12:00) [5]http://delphi.mastak.ru/articles/connect-inet.html
| |
