TWebBrowser: Test auf bestehende Verbindung ins Internet?

[mkinzler]

Wenn man versucht per .Navigate() eine Seite aufzurufen, kann es passieren, das eine Verbindung aufgebaut wird. In diesem Fall kömmt es dann zu keinem Fehler

[egon.kaschuba]

:angel:

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;

[Windwalker]

Zitat:

Zitat von mkinzler

Wenn man versucht per .Navigate() eine Seite aufzurufen, kann es passieren, das eine Verbindung aufgebaut wird. In diesem Fall kömmt es dann zu keinem Fehler

Da das Navigate sowieso schon immer aufgerufen wird, um die Website anzuzeigen, frage ich nun auch das Error-Event ab.
Funktioniert so wunderbar.

Danke für die Hilfe!