怎样在程序里判断是否机器联入了internet?(20分)

A

achang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #1

thanks

 

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #2

//判断当前是连上Internet的函数（uses WinInet)
function IsOnline:Boolean;
var
ConTypes : Integer;
begin
ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
if (InternetGetConnectedState(@ConTypes, 0) = False)
then Result := False
else Result := True;
end;

 

狼

狼牙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #3

INTERNET_CONNECTION_MODEM 哪的？

 

呆

呆四少

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #4

Uses部分加上WinInet
function CheckOffline: boolean;
var
ConnectState: DWORD;
StateSize: DWORD;
begin
ConnectState:= 0;
StateSize:= SizeOf(ConnectState);
result:= false;
if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState, StateSize) then
begin
if (ConnectState and INTERNET_STATE_DISCONNECTED) <> 2 then
begin
if InternetCheckConnection(nil, 1, 0) then
Result:=True;
end;
end;
end;

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #5

function CheckOffline: boolean;
var
ConnectState: DWORD;
StateSize: DWORD;
begin
ConnectState:= 0;
StateSize:= SizeOf(ConnectState);
result:= false;
if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState, StateSize) then
begin
if (ConnectState and INTERNET_STATE_DISCONNECTED) <> 2 then
begin
if InternetCheckConnection(nil, 1, 0) then
begin
Result:=True;
showmessage('on line!');
end
else
begin
showmessage('not on line!');
end;
end;
end;
end;

 

呆

呆四少

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #6

我倒!呵呵

 

Y

yhm8

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-10

• #7

好像ADSL不支持吧

 

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-10

• #8

to yhm8你试试就知道了！：）

 

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-10

• #9

to achang 下面是修正函数！应该可以判断所以类型了！
//判断当前是连上Internet的函数（uses WinInet)
uses WinInet
……
function IsOnline:Boolean;
var
ConTypes : Integer;
begin
ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY+INTERNET_CONNECTION_MODEM_BUSY;
if (InternetGetConnectedState(@ConTypes, 0) = False)
then Result := False
else Result := True;
end;