Суббота, 08.02.2025, 19:21 | Приветствую Вас Гость

Жми-форум обо всём

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: RoMkA29

Как проверить соединение с интернетом. (Как проверить соединение с интернетом.)

Как проверить соединение с интернетом.

RoMkA29

Дата: Воскресенье, 19.05.2013, 23:22 | Сообщение # 1

Генералиссимус

Группа: Администраторы

Сообщений: 264

Репутация: 3

Статус: Offline

Как проверить соединение с интернетом.

Автор: Vitaly Zayko

Часто приложению, которое работает в интернете, требуется знать, подключён пользователь к интернету или нет. Предлагаю Вам довольно гибкое решение этого вопроса.

Совместимость: Delphi 3.x (или выше)

Для работы Вам необходимо импортировать функцию InetIsOffline из URL.DLL:

function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';

а затем поместить в программу простой вызов функции для проверки статуса соединения:

Код

if InetIsOffline(0) then
    ShowMessage('This computer is not connected to Internet!')
else
    ShowMessage(You are connected to Internet!');

Эта функция возвращает TRUE если соединение с интернетов отсутствует, или FALSE если соединение установлено.

Замечание:
параметр Flag игнорируется, соответственно используем ноль.
Эта DLL обычно проинсталлирована на большинстве компьютеров. Она также существует в Win98 либо поставляется с Internet Explorer 4 или выше, Office 97 и т.д..
Более подробно можно прочитать в MSDN.
Оригинал
http://msdn.microsoft.com/library....ine.htm

Как проверить соединение с интернетом. (Как проверить соединение с интернетом.)

Страница 1 из 1
1

Навигация

Block title

Тизерная сеть

Форма входа

Старая форма входа

Наш бот

ICQ:636-921-022
Jabber:zhmibot@jabber.ru

Случайные картинки

Случайная музыка

[11.03.2013]	[mp3]
Johnyboy - Я не умею разговаривать с людьми (InDaBattle2 Round5) EFREET PROD (0)

Johnyboy - Я не умею разговаривать с людьми (InDaBattle2 Round5) EFREET PROD

[10.07.2013]	[mp3]
Тонкая Красная Нить - Тёмно-Алая Кровь (0)

Тонкая Красная Нить - Тёмно-Алая Кровь

[12.03.2013]	[mp3]
SendikaT – Играй со мной, кидай меня, размажь, как тряпку по полу. Делайс назло, ехидно мейся, тебе же все по приколу. Режь, убивай меня, де (0)

SendikaT – Играй со мной, кидай меня, размажь, как тряпку по полу. Делайс назло, ехидно мейся, тебе же все по приколу. Режь, убивай меня, де

Опрос

Поиск

Обновление

Куплю, обмен швейцарские франки 8 серии, английские фунты (1)

[Свободное общение]

Раздача Халявы (ICQ Дедиков Wmz Wmr, Steam аккаунты к играм (1)

[Свободное общение]

Мы же русские люди, нам не привыкать привыкать! (1)

[Свободное общение]

Букмекерская контора Betsstore (1)

[Свободное общение]

Полезные советы для пользователей Windows XP (1)

[Защита машины]

Статистика

Статистика