TWebBrowser: Test auf bestehende Verbindung ins Internet?

[egon.kaschuba]

DanielB suchst Du sowas ???

Gruß
Egon

Delphi-Quellcode:

uses
  IdBaseComponent, IdComponent, IdIPWatch
  
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.caption := 'Aktuelle IP: '+ IdIPWatch1.CurrentIP;
  if IdIPWatch1.IsOnline then
    label2.caption := 'Sie sind online'
  else
    label2.caption:='Sie sind offline';
  label3.caption := 'Lokale IP: '+ IdIPWatch1.LocalIP;
end;