Feststellen, ob Netzwerkkabel gezogen wurde?

[djmasi]

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

Also die Erkennung läuft über IsNetworkAlive.

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

Genauso wollte ich das

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

Danke

[NicoDE]

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]

ach menno

Hast du vielleicht mehr als eine Netwerkkarte?

[NicoDE]

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

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

[NicoDE]

Zitat von djmasi:

außer beim Server das IsDestinationReachable.

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

[djmasi]

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 )? Polling? Was wird gepollt?

Gruß,
Markus

[DaFox]

Zitat von djmasi:

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
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...
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... )

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