Проверка коннекта

← →
X-Disa © (2005-04-15 11:36) [0]

Привет всем! Подскажите, как проверить, подключен ли юзер к интернету или нет?

← →
yaJohn (2005-04-15 11:41) [1]

Проверяй, торчит ли из него (или нее) модемный шнур.

← →
Digitman © (2005-04-15 12:00) [2]

> как проверить, подключен ли юзер к интернету или нет?

никак.
ибо "подключиться к тырнэту" нельзя.

← →
X-Disa © (2005-04-16 13:47) [3]

В смысле проверить состояние. Вот IE когда не подключен к инету, спрашивает, работать ли автономно? А когда подключен - нет. Как он определяет? И звонилка, SP Dialer - тоже умеет определять. Как?

← →
Anatoly Podgoretsky © (2005-04-16 13:48) [4]

А что такое Интернет?

http://delphiworld.narod.ru/base/is_online.html

← →
lock95 (2005-04-16 22:47) [6]

Посмотри мой исходник может поможет ...
unit POTOK1;

interface

uses
Classes,Windows;

const
INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 4;
INTERNET_CONNECTION_MODEM_BUSY = 8;

const
winetdll = "wininet.dll";
function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved:DWORD):BOOL; stdcall; external winetdll name "InternetGetConnectedState";

type
TMyThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

type
Connect= class
end;

var
T:TMyThread;

implementation

uses Pass, unit4;

{******************************************************************************}

{ TMyThread }
procedure TMyThread.Execute;
var
dwConnectionTypes: DWORD;
bb: boolean;
begin

bb:=false;

while bb = false do begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM+
INTERNET_CONNECTION_LAN+
INTERNET_CONNECTION_PROXY;
bb:= InternetGetConnectedState(@dwConnectionTypes, 0);

// Sleep(2*60*1000); {Ждем три мин} Если выпал из цикла то есть конект

end;

Проверка коннекта Найти похожие ветки