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

[hacknet]

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

Поместите на форму таймер и выставьте инервал в секунду. и код:

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:=Timer1.Tag+1;
  if Timer1.Tag>=600 then begin // 600 - это 10 мин в секундах
    Timer1.Tag:=0;
     if IsConnectedToInternet then
       ShowMessage('Connected.');
  end;
end;

спасибо! вот еще вопросик, а если просто ничего не ставить вот сюда
код:

  else
     ShowMessage('Not Connected.') //точнее эту строчку убрать
 end;

и весь код будет выглядит так

код:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
   if IsConnectedToInternet then
 ShowMessage('Connected.')
   else

end;

то он просто(таймер) будет ждать конекта??

[Пепел Феникса]

когда появится соединение он покажет сообщение
иначе нет

[hacknet]

Сообщение от Пепел Феникса

когда появится соединение он покажет сообщение
иначе нет

т,е в таком ввиде код можно оставить??

[AquaKlaster]

Как можно разорвать АДСЛ соединение и сразу его востановить? Можно исходник? Спасибо за понимание!

[Terran]

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

Как можно разорвать АДСЛ соединение и сразу его востановить? Можно исходник? Спасибо за понимание!

Посмотрите здесь. Я вам написал ответ: http://programmersforum.ru/showthread.php?t=44628

[sergiucz]

Dynamic linking. }

function IsConnectedToInternet(lpdwFlags: LPDWORD): Boolean;
 const
   WininetDLL = 'wininet.dll';
 var
   hWininetDLL: THandle;
   dwReserved: DWORD;
   fn_InternetGetConnectedState: function(lpdwFlags: LPDWORD; dwReserved: DWORD): BOOL; stdcall;
 begin
   Result := False;
   dwReserved := 0;
   hWininetDLL := LoadLibrary(WininetDLL);
   if hWininetDLL > 0 then
   begin
     @fn_InternetGetConnectedState := GetProcAddress(hWininetDLL,'InternetGetConnectedState');
     if Assigned(fn_InternetGetConnectedState) then
     begin
       Result := fn_InternetGetConnectedState(lpdwFlags, dwReserved);
     end;
     FreeLibrary(hWininetDLL);
   end else
    raise Exception.Create('Unable to locate function InternetGetConnectedState in library ' + WininetDLL);

 end;

 procedure TForm1.Button1Click(Sender: TObject);
 const
   INTERNET_CONNECTION_MODEM = 1;
   INTERNET_CONNECTION_LAN = 2;
   INTERNET_CONNECTION_PROXY = 4;
   INTERNET_CONNECTION_MODEM_BUSY = 8;
 var
   dwConnectionTypes: DWORD;
 begin
   dwConnectionTypes :=
     INTERNET_CONNECTION_MODEM +
     INTERNET_CONNECTION_LAN +
     INTERNET_CONNECTION_PROXY;
   if IsConnectedToInternet(@dwConnectionTypes) then
     ShowMessage('Connected.')
   else
     ShowMessage('Not Connected.')
 end;

[AquaKlaster]

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;

[Илья01]

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

URL.DLL

А что в uses прописать, подскажхите пожалуйста?

[SKS]

еще как вариант, на форму кидаете компонент TcpClient из вкалдки Internet
кидаете например таймер и прописываете в него:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.enabled:=false;
if tcpClient1.LocalHostAddr <>'127.0.0.1'
then
else showmessage('Соединение с интернетом отсутствует.');
end;

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

А если я в локальной сети и мой LocalHostAddr = 10.1.xx.xx, но интернета нет?

По этому банальный запрос http://google.com/ по прежнему рулит.