Registriert seit: 2. Jun 2006
Ort: Buxtehude
80 Beiträge
Delphi 7 Architect
|
Re: TWebBrowser: Test auf bestehende Verbindung ins Internet
2. Jun 2009, 14:47
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;
Glück ist das einzige was sich verdoppelt,wenn man es teilt.
|