link4320 link4321 link4322 link4323 link4324 link4325 link4326 link4327 link4328 link4329 link4330 link4331 link4332 link4333 link4334 link4335 link4336 link4337 link4338 link4339 link4340 link4341 link4342 link4343 link4344 link4345 link4346 link4347 link4348 link4349 link4350 link4351 link4352 link4353 link4354 link4355 link4356 link4357 link4358 link4359 link4360 link4361 link4362 link4363 link4364 link4365 link4366 link4367 link4368 link4369 link4370 link4371 link4372 link4373 link4374 link4375 link4376 link4377 link4378 link4379 link4380 link4381 link4382 link4383 link4384 link4385 link4386 link4387 link4388 link4389 link4390 link4391 link4392 link4393 link4394 link4395 link4396 link4397 link4398 link4399 link4400 link4401 link4402 link4403 link4404 link4405 link4406 link4407 link4408 link4409 link4410 link4411 link4412 link4413 link4414 link4415 link4416 link4417 link4418 link4419 link4420 link4421 link4422 link4423 link4424 link4425 link4426 link4427 link4428 link4429 link4430 link4431 link4432 link4433 link4434 link4435 link4436 link4437 link4438 link4439 link4440 link4441 link4442 link4443 link4444 link4445 link4446 link4447 link4448 link4449 link4450 link4451 link4452 link4453 link4454 link4455 link4456 link4457 link4458 link4459 link4460 link4461 link4462 link4463

Форум — Ответы     (  К темам )
 ?  Иван: И все-таки,кто-нибудь может привести пример как отследить подключение (01-03-2003 14:16:54)
И все-таки,кто-нибудь может привести пример кода(который работает):как
отследить подключение компа к интернету(и отключение)Ф-ия InetIsOffline имеет
недостаток:
возвращает false когда не было попыток подключения.
Помогите,пожалуйста,очень надо!!!
 Al (01-03-2003 17:02:36)
Так заведите переменную, чтобы определить были или нет попытки подключения
к интернету.
bool isInet;
-----


Как проверить соединение с интернетом.
Автор: 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/psdk/shellcc/shell/Functions/InetIsOffline.htm
 Andrew (10-03-2003 11:29:04)
См. в докyментации фyнкцию InternetGetConnectedState.

InternetGetConnectedState
BOOL InternetGetConnectedState(
OUT LPDWORD lpdwFlags,
IN DWORD dwReserved
);

Retrieves the connected state of the local system.
Returns TRUE if there is an Internet connection, FALSE otherwise.

lpdwFlags:
Address of a double-word variable where the connection description should be
returned. Can be a combination of the following values:
INTERNET_CONNECTION_MODEM Local system uses a modem to connect to the
Internet.
INTERNET_CONNECTION_LAN Local system uses a local area network to connect
to the Internet.
INTERNET_CONNECTION_PROXY Local system uses a proxy server to connect to
the Internet.
INTERNET_CONNECTION_MODEM_BUSY Local system's modem is busy with a
non-Internet connection.

dwReserved
Reserved. Must be set to zero.

P.S. Источником этого сообщения являются матеpиалы FAQ по письмам эхоконфеpенции сети FidoNet "RU.CBUILDER".