Überprüfen ob Rechner eine Netzwerkverbindung hat.

technotoolz · Beiträge: 47 Win98;Win2k;WinXP D7 Ente

Wollte wissen wie man den Netzwerkstatus abfragen kann? connected / nicht connected

Diese Funktion sollte es sein aber sie geht nicht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function IsNetworkConnected: Boolean; 
begin 
  if GetSystemMetrics(SM_NETWORK) and $01 = $01 then 
  begin 
    Result := True; 
  end 
  else 
  begin 
    Result := False; 
  end; 
end;

Vieleicht habe ich was vergessen.

Moderiert von Peter Lustig (14:58, 19.04.2004): Topic verschoben

daPimP · Beiträge: 54 Erhaltene Danke: 1 Win XP D6, D7

Wenn dir die DFÜ - Verbindung reicht, nimm das. Hab das selbst als Abfrage in meinem W-Lan Netzwerk verwendet. Funzt.

procedure TForm1.Button1Click(Sender: TObject);
begin
If InternetGetConnectedState(nil, 0) then
Button1.Caption := 'DFÜ *ONline*'
else
Button1.Caption:='DFÜ *OFFline*';
end;

_________________
watch out ... SySSnapper... coming soon

technotoolz · Beiträge: 47 Win98;Win2k;WinXP D7 Ente

Soll schon normales LAN sein, aber ist auch gut zu wissen.
Könnte mal wichtig sein.

Danke

Heiming · Beiträge: 31 WIN XP D7 EE

Check einfach ob die lokale IP 127.0.0.1 ist - wenn ja dann bist du nicht im Netzwerk

_________________
Nur weil du nicht paranoid bist, heißt das nicht dass sie nicht hinter dir her sind !

Karlson · Beiträge: 2088

Hmm, das versteh ich jetzt nicht ganz?!
Die lokale kann auch 10.10.192.4 oder sonst was sein.
Oder erkläre mal was du meinst?

maze2k · Verfasst: Mi 05.05.04 16:45

127.0.0.1 ist der localhost.
der funktioniert aber auch, wenn du ne Internetverbindung hast.

_________________
Wer das Konzept der Unendlichkeit verstehen will, muss nur das Ausmaß menschlicher Dummheit betrachten. (Voltaire)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme