ПроВерка Подключения

[&RiU]

Помогите Пожалуйста!
Как зделать в программе ПроВерку Подключения к интернекту???

[Terran]

Можете сделать так:

Модуль: RASUnit.rar

Uses
 RASUnit,...
-------------------------
Function Connecting: Integer;
Var
Conns: Array[1..10] Of TRasConn;
Size: Integer;
Num: Integer;
Begin
Size:=Sizeof(TRasConn)*10;
Fillchar(Conns, Size, 0);
Conns[1].DwSize:=Sizeof(TRasConn);
RASEnumConnectionsA(@conns[1], Size, Num);
Connecting:=Num;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
If Connecting<>0 Then
Begin
ShowMessage('Интернет подключён');
End
Else
Begin
ShowMessage('Интернет не подключён');
End;
End;

[mihali4]

Чепуха. Пардон.
Вопрос неоднократно обсуждался.
Если вы подключены по локалке, то этот способ не годится. В зависимости от типа подключения будет показывать, что вы либо всегда подключены (у меня так), либо всегда отключены, хотя спокойно серфите в это время (так у сына).
Единственный достоверный метод - пробное открытие какого-либо стабильного адресочка, например, рамблера или яхи...

[Terran]

Сообщение от mihali4

Чепуха. Пардон.
Вопрос неоднократно обсуждался.
Если вы подключены по локалке, то этот способ не годится. В зависимости от типа подключения будет показывать, что вы либо всегда подключены (у меня так), либо всегда отключены, хотя спокойно серфите в это время (так у сына).
Единственный достоверный метод - пробное открытие какого-либо стабильного адресочка, например, рамблера или яхи...

На счёт чепухи не знаю, но я подключён через локалку к ADSL модему и у меня этот код прекрасно работает. Да и у друзей у которых Dial-Up соединение он тоже замечательно работает.

[Квэнди]

этот код показывает наличие установленного соединения, но никак не его работоспособность. На самом деле в общем случае проверить наличие подключения к интернету невозможно, ибо слишком много сторонних факторов. Так как обычно наличие подключения требуется проверить для подключения к некому узлу, то корректней будет просто проверять доступность необходимого узла.

[abakar121]

Terran спасибо тебе огромное !!!

[Человек_Борща]

Уж проще так:

function CheckInetConnention:Boolean;
var
  http:TidHTTP;
begin
 Result:=true;
 http:=TidHTTP.Create(nil);
  try
    try
      http.Get('http://google.com/');
    except
     Result:=False;
    end;
  finally
    FreeAndNil(http);
  end;
end;

но лучше на сокетах попробовать..

[TwiX]

Сообщение от Человек_Борща

Уж проще так:
...
но лучше на сокетах попробовать..

Если стоит левый прокси, то не прокатит такой способ. Я на обычно заливаю куда-нибудь txt файл... Открываю его через инди и смотрю, что в нём лежит...

[Стелс]

а вот так нельзя ???

function GetIP: string;
var
WSAData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';

if (WSAStartup($101, wsaData) = 0) and (GetHostName(@Buf, 128) = 0) then
try
P := GetHostByName(@Buf);

if P <> nil then
Result := inet_ntoa(PInAddr(p^.h_addr_list^)^);
finally
WSACleanup;
end;
end;
procedure TForm1.ButtonClick();
begin
if (GetIP = '192.168.1.3')or
   (GetIP = '127.0.0.1')
  then
   cnt:=False//ежель IP не поменялся то не подключен
        else
           cnt:=true;//ежель IP поменялся то подключен
end;