Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как програмно определить подключён ли компьютер к интернету.

Страницы: < 1 2
Aleks © (2005-01-21 15:01:00)
Как програмно определить подключён ли компьютер к интернету.

Piter (2005-01-21 19:04:00) [21]
Style © (21.01.05 18:02) [9]
Я думаю он не будет прописываит ya.ru в hosts

а я думаю, что он и так знает - в интернете он или нет. Зачем нужна программа?

Style (2005-01-21 18:02:00) [22]

> Например, тупо прописать ya.ru в HOSTS

Я думаю он не будет прописываит ya.ru в hosts :) ИБО СМЫСЛ???

> Aleks (21.01.05 17:26) [7]

Ну, точно нужно инициализировать WSA!!

var
Host: PHostEnt;
Version: integer;
Res: integer;
FWsa: WSADATA;
begin
Version := MakeWord(2,2);

Res := WSAStartup(Version, FWSA);
if ( Res <> 0 ) then raise Exception.Create(SysErrorMessage(GetlastError));

host:=GetHostByName('ya.ru');
if Host = nil then ShowMessage('Access denied!')
else ShowMessage('OK!');

WSACleanup;

end;

Digitman (2005-01-21 17:56:00) [23]

> Aleks (21.01.05 17:26) [7]

> Где я ошибся?????

ты ошибся в том, что считаешь "подключенность к интернету" и "отключенность от интернета" реально существующими фактами.

НЕЛЬЗЯ ни подключиться к Интернету, ни отключиться от Интернета.

пойми - НЕЛЬЗЯ !!!!

Aleks (2005-01-21 17:26:00) [24]
У меня Host всегда равен nil при подключённом нете и отключонном
Где я ошибся?????

Piter (2005-01-21 16:54:00) [25]
Style © (21.01.05 15:17) [2]

ты проверяешь только разрешимость доменного имени. Это может говорить как о нормальной работе DNS сервера.... а может и не говорить об этом :)
Например, тупо прописать ya.ru в HOSTS

Style (2005-01-21 16:28:00) [26]

> PHostEnt; у меня Делфи на это ругаются говорят не декларированна

uses WinSock;

Aleks (2005-01-21 16:25:00) [27]
PHostEnt; у меня Делфи на это ругаются говорят не декларированна

Digitman (2005-01-21 15:17:00) [28]

> Aleks (21.01.05 15:01)
> Как програмно определить подключён ли компьютер к интернету.

никак.

Style (2005-01-21 15:17:00) [29]
Ну я думаю тебе все равно нужен инет для того, что бы обратиться к какому нибудь адресу, ну дык и проверь его:

var Host: PHostEnt; begin host:=GetHostByName('ya.ru'); if Host = nil then ShowMessage('Access denied!') else ShowMessage('OK!')

Separator (2005-01-21 15:10:00) [30]
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621171&n=20
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988620751&n=20

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »