Форум: "Сети";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
ВнизКак узнать, есть соединение с инетом, или нет Найти похожие ветки
← →
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 вся ветка
Форум: "Сети";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c