Delphi TWebBrowser: Test auf bestehende Verbindung ins Internet?

Thema durchsuchen

Ansicht

Themen-Optionen

TWebBrowser: Test auf bestehende Verbindung ins Internet?

Ein Thema von Windwalker · begonnen am 2. Jun 2009 · letzter Beitrag vom 2. Jun 2009

Vorheriger Beitrag

Nächster Beitrag

egon.kaschuba

Registriert seit: 2. Jun 2006
Ort: Buxtehude
80 Beiträge

Delphi 7 Architect

#12

Re: TWebBrowser: Test auf bestehende Verbindung ins Internet

2. Jun 2009, 14:47

DanielB suchst Du sowas ???

Gruß
Egon

zusammenfalten · markieren

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;