Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Вниз
Как отследить подключение к Интернету? Найти похожие ветки
← →
Farpik © (2006-03-06 14:20) [0]Здравствуйте!!!
Подскажите, кто знает, как отследить подключение к Интернету??? (Т.е. если подключение активно, то программа выполняет свои действия).
← →
Сергей М. © (2006-03-06 14:28) [1]Никак.
Можно отследить лишь подключение к компьютеру другой сети, которая может быть (но не обязана быть) сетью Интернет-провайдера.
← →
Новочеркасский Волк © (2006-03-06 14:30) [2]Да сам с такой проблеммой столкнулся. Долго искал. Но вот нашёл. ЛОВИ!!!
function GetConnect(var strKind: string): Boolean;
var
flags: DWORD;
begin
strKind := "";
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and 1) = 1 then strKind := "Modem";
if (flags and 2) = 2 then strKind := "LAN";
if (flags and 4) = 4 then strKind := "Proxy";
if (flags and 8) = 8 then strKind := "Modem Busy";
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
strkind:string;
begin
if GetConnect(strKind)and(strkind="Modem") then
begin
ShowMessage("Есть коннект");
end
else
ShowMessage("Нет коннекта");
end;
← →
Сергей М. © (2006-03-06 14:30) [3]Более того, даже успешное подключение к своей сети, заведомо имеющей выход в сеть инет-провайдера, не может быть фактом подключения к Интернет.
← →
antonn © (2006-03-06 14:31) [4]если подключение из разряда "Удаленных", то через RasApi
← →
Сергей М. © (2006-03-06 14:33) [5]
> Новочеркасский Волк © (06.03.06 14:30) [2]
Глупости все это.
Факт подключения (тем или иным образом) к некоей сети не есть сам по себе факт подключения к Интернет.
← →
dabreezy (2006-03-06 18:32) [6]Легче всего взять и проверить через TidHTTP компонент indy. Например методом get проверить сайты yandex.ru, rambler.ru, google.com и все. Если хотя бы один отвечает значит инет включен :)
← →
Marser © (2006-03-06 18:42) [7]> [6] dabreezy (06.03.06 18:32)
> Легче всего взять и проверить через TidHTTP компонент indy.
> Например методом get проверить сайты yandex.ru, rambler.ru,
> google.com и все. Если хотя бы один отвечает значит инет
> включен :)
А если нет, то юзер наблюдает гламурное окошко диалера :-)
← →
dabreezy (2006-03-06 18:52) [8]
> Marser © (06.03.06 18:42) [7]
Ну а если google.com не работает, значит сегодня не день юзера :)
← →
MaSZ © (2006-03-06 22:40) [9]"function GetConnect(var strKind: string): Boolean;
var
flags: DWORD;
begin
strKind := "";
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and 1) = 1 then strKind := "Modem";
if (flags and 2) = 2 then strKind := "LAN";
if (flags and 4) = 4 then strKind := "Proxy";
if (flags and 8) = 8 then strKind := "Modem Busy";
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
strkind:string;
begin
if GetConnect(strKind)and(strkind="Modem") then
begin
ShowMessage("Есть коннект");
end
else
ShowMessage("Нет коннекта");
end;"
Дельфя кричит, что идентификатор не объявлен(
← →
MaSZ © (2006-03-06 22:46) [10]При этом выделяет InternetGetConnectedState
← →
HF-Trade © (2006-03-07 04:18) [11]пинг на стабильный севак - майкрософт к примеру. Если все ок - инет есть...
По другому имхо никак...
← →
Farpik © (2006-03-07 07:31) [12]Спасибо всем!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.043 c
