Feststellen, ob Netzwerkkabel gezogen wurde?

[djmasi]

So, ich hoffe mal dass wir es jetzt geschafft haben. :zwinker:

Also die Erkennung läuft über IsNetworkAlive.

• Kommt ohne Verzögerung.
• Systemlast ist minimal.

Genauso wollte ich das :-D

Projekt ist wieder anbei. Ich bitte wie immer um Berichte von Nicht-XP-Usern :wink:

Danke

[NicoDE]

Zitat:

Zitat von djmasi

• Kommt ohne Verzögerung.
• Systemlast ist minimal.

Windows XP, DNS (und alternative Konfiguration), NAT, transparenter Proxy:
- Kabel drin: IsNetworkAlive True, DestinationAvailable True
- Kabel wech: IsNetworkAlive True, DestinationAvailable False

[djmasi]

:wall: ach menno :cry:

Hast du vielleicht mehr als eine Netwerkkarte?

[NicoDE]

Zitat:

Zitat von djmasi

Hast du vielleicht mehr als eine Netwerkkarte?

Sorry, liegt an VMware (virtuelles Netzwerk)... Windows glaubt deswegen noch 'online' zu sein :)

[djmasi]

Und ich dachte schon es liegt an mir :mrgreen:

Hab jetzt 3 XP Rechner und 1 Server 2003 ausprobiert. Funktioniert tadellos ,außer beim Server das IsDestinationReachable. Warum weiß ich noch nicht.

Ich warte weiter auf Berichte, vor allem nicht-XP-User :hi:

[NicoDE]

Zitat:

Zitat von djmasi

außer beim Server das IsDestinationReachable.

Der wird sich berechtigterweise darüber beschweren, dass TQOCInfo.dwSize nicht initialisiert ist...

[djmasi]

:wall: Mein Fehler

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var QOCInfo: TQOCInfo;
begin
  Memo1.Clear;
  QOCInfo.Size := 16; //Bitte das einfügen
  if CheckBox1.Checked then
    if Edit1.Text <> '' then

[DaFox]

@Nico: Nur rein aus Interesse: Weißt da was hinter den Kulissen passiert, wenn der Balloon-Hint "Das Netzwerkkabel wurde entfernt" erscheint (Stichwort: IDA :mrgreen: )? Polling? Was wird gepollt?

Gruß,
Markus

[DaFox]

Zitat:

Zitat von djmasi

:wall: Mein Fehler

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var QOCInfo: TQOCInfo;
begin
  Memo1.Clear;
  QOCInfo.Size := 16; //Bitte das einfügen
  if CheckBox1.Checked then
    if Edit1.Text <> '' then

Oder besser das hier

Delphi-Quellcode:

QOCInfo.dwSize := SizeOf(TQOCInfo);

einfügen.

Gruß,
Markus

[Tubos]

Der Code mit IsNetworkAlive hat vor 3 Wochen auf WinXP Prof. noch problemlos funktioniert (schnell, liefert praktisch ohne Verzögerung "Netzwerkkabel gezogen").
Jetzt geht er nicht mehr... :pale:
DestinationReachable auf 192.168.0.1 (die Adresse meines Computers) liefert "Keine Netzwerkverbindung" obwohl ein normaler Ping funktioniert.
Die WAN-Verbindung wird aber noch erkannt.
An meinem Programm liegt der Fehler sicher nicht da ich es auch mit dem beigelegten Beispielprogramm ausprobiert habe.
Wären nett wenn das irgendein SP2-User noch testen könnte, ich glaube aber nicht dass es daran liegt weil ich es damals auch schon hatte (glaube ich zumindest... :gruebel: )

Unter Windows 2000 Prof. (SP4), wo ich ein Programm mit dieser Funktion verwenden will, hat der Code nie funktioniert.