Feststellen, ob Netzwerkkabel gezogen wurde?

[DaFox]

Hi,

die ultimative Lösung habe auch ich nicht. Aber hast Du schon mal folgende Funktionen angeschaut?
IsNetworkAlive, IsDestinationReachable

Gruß,
Markus

[djmasi]

@DafOx: hast du schonmal damit gearbeitet? Wollte gerade die Sensapi.dll einbinden, aber Delphi brachte mir eine Fehlermeldung, dass es nicht ginge ("Fehler beim Laden der Typbibliothek/DLL").
Hab ich vielleicht was übersehen?

[NicoDE]

Zitat von djmasi:

Ich muss dich leider enttäuchen , aber nachdem ich deine Typenbibliothek installiert habe bekomme ich immer noch alle Informationen von XP. Durch die importierte TLB stelle ich ja eine Verbindung zu der DLL dar, über Funktionen. Also eine Schnittstelle. Diese sind im allgemeinen gleich geblieben (die von mir benötigten haben sich nicht geändert).

Ich weiss nicht mit welcher Version Du arbeitest, aber ich konnte mit der importierten Version 1.0 der TLB *nicht* mehr kompilieren (unbekannte Konstante - das war auch der Grund warum schon das Connect zu WMI unter Win9x fehlschlug ($80041008))...
Zudem gibt es die NetworkConnectionID ubd NetworkConnectionStatus unter WinSE nicht...

[djmasi]

Also ich hab deine genommen

Aber vielleicht liegt es ja noch an der DLL? Kannst du deine mal noch mit posten?

[NicoDE]

Zitat von djmasi:

Kannst du deine mal noch mit posten?

http://www.bendlins.de/temp/wbem-1.0_winse.zip
( ps: befinden sich unter WIn9x in %windir%\system\WBEM )


Zum Beitrag oben, IsNetworkAlive() liefert immer noch LAN zurück wenn das Kabel längst gezogen wurde...

Delphi-Quellcode:

const
  NETWORK_ALIVE_LAN = $00000001;
  NETWORK_ALIVE_WAN = $00000002;
  NETWORK_ALIVE_AOL = $00000004;

function IsNetworkAlive(out Flags: DWORD): BOOL; stdcall;
  external 'sensapi.dll' name 'IsNetworkAlive';

procedure TForm1.Button1Click(Sender: TObject);
var
  Flags: DWORD;
  Text: string;
begin
  Text := 'IsNetworkAlive: ';
  if not IsNetworkAlive(Flags) then
    Text := Text + '<offline>'
  else
  begin
    if (Flags and NETWORK_ALIVE_LAN) = NETWORK_ALIVE_LAN then
      Text := Text + 'LAN, ';
    if (Flags and NETWORK_ALIVE_WAN) = NETWORK_ALIVE_WAN then
      Text := Text + 'WAN, ';
    if (Flags and NETWORK_ALIVE_AOL) = NETWORK_ALIVE_AOL then
      Text := Text + 'Looser, ';
    Text := Text + '...';
  end;
  ShowMessage(Text);
end;

[djmasi]

Zitat von NicoDE:

Zum Beitrag oben, IsNetworkAlive() liefert immer noch LAN zurück wenn das Kabel längst gezogen wurde...

Warum? Bei mir funktionierts

Reaktionszeit < 1 Sekunde

PS: Danke nochmal für die Dateien und den Code

[djmasi]

Ähm, hab ich jetzt 'nen Denkfehler? Weil wenn ich

Delphi-Quellcode:

function IsDestinationReachable(Destination: String): BOOL; stdcall;
  external 'sensapi.dll' name 'IsDestinationReachable';

einbinde, sagt mir Delphi, "der Prozedureinstiegspunkt wurde nicht gefunden". Aber laut MSDN heißt die Funktion doch so.

Ich dreh hier gleich durch

[DaFox]

Hi.

Delphi-Quellcode:

PQOCInfo = ^TQOCInfo;
TQOCInfo = record
  dwSize: Integer;
  dwFlags: Integer;
  dwInSpeed: Integer;
  dwOutSpeed: Integer;
end;

function IsDestinationReachable(Destination: PChar; QOCInfo: pQOCInfo): BOOL; stdcall;
  external 'sensapi.dll' name 'IsDestinationReachableA';

Gruß,
Markus

[djmasi]

Na auf das A muss man erstmal kommen. Danke

[p0w3r5tr34m3r]

ne ganz einfache möglichkeit is (die supermuckl und ich eben herrausgefunden haben), ping einfach alle netzwerkkarten von dir an.. wenn das kabel gezogen ist, deaktiviert sich die karte und die ip existiert somit nicht mehr!

das klappt auf allen 5 rechnern hier, also warum nicht auch bei dir / euch !?


MfG Powerstreamer