Feststellen, ob Netzwerkkabel gezogen wurde?

[justify]

Hallo,

es funktioniert. Hab's gerade ausprobiert.

Vielen herzlichen Dank für die Mühe, die Du mir gemacht hast! :-D

Nee, aber mal echt: Ist echt lieb von Dir, danke!

[toyoman]

Zitat:

Zitat von justify

Hallo,

es funktioniert. Hab's gerade ausprobiert.

Vielen herzlichen Dank für die Mühe, die Du mir gemacht hast! :-D

Nee, aber mal echt: Ist echt lieb von Dir, danke!

kein Problem, wenn man den Code grad so rumliegen hat :)

[justify]

Guten Abend!

Vorfreude ist doch die schönste Freude! :)

Es klappt jetzt nicht mehr, hatte gestern das Netzwerk nicht aktiviert und er zeigt einfach nur an, daß es nicht verbunden ist, egal, ob es aktiv ist oder nicht.

Was nun?

[justify]

Hallo nochmal,

sag' mal, toyoman: Könnte es sein, daß die Funktion nur überprüft, ob der Netzwerkstecker eingesteckt ist und nicht, ob auch eine aktive Netzwerkverbindung besteht?

Weil ich brauche 'ne Funktion, die testet, ob eine Netzwerkverbindung hergestellt mit einem anderen Rechner ist, oder nicht.

[toyoman]

Zitat:

Zitat von justify

Hallo nochmal,

sag' mal, toyoman: Könnte es sein, daß die Funktion nur überprüft, ob der Netzwerkstecker eingesteckt ist und nicht, ob auch eine aktive Netzwerkverbindung besteht?

Weil ich brauche 'ne Funktion, die testet, ob eine Netzwerkverbindung hergestellt mit einem anderen Rechner ist, oder nicht.

hi!

diese Funktion prüft wirklich nur ob das Netzwerkkabel gesteckt ist oder nicht.
Ob eine Netzwerkverbindung hergestellt ist oder nicht ist recht kompliziert zu prüfen vorallem weil in heutigen Laptops mehrere Netzwerkadapter fest drin sind. Z.b. Netzwerkadapter, Wireless LAN Adapter etc.
Da wirst du um eine komplexe Prozedur nicht herumkommen, welche di einzelnen Adapter aus der Registry ausliest und abcheckt ob eine Verbindung besteht bzw. einen Ping ausführt.

Gruss

[justify]

Gut zu wissen.

Aber selbst da ist ein Fehler, denn mein Stecker ist drinne und trotzdem zeigt er an, daß er nicht eingesteckt ist.

[toyoman]

Zitat:

Zitat von justify

Gut zu wissen.

Aber selbst da ist ein Fehler, denn mein Stecker ist drinne und trotzdem zeigt er an, daß er nicht eingesteckt ist.

Bei mir in der Firma funktioniert das einwandfrei. Was für eine Netzwerkverbindung ist das? DHCP oder fixe IP?
Wieviele Netzwerkadapter und welche sind aktiviert?

[MexDelphi]

Hallo zusammen :)

eine kleine Abwandlung des Codes von toyoman ..

Code:

function NetworkConnect(AdapterNr : Integer) : Boolean;
var
  reg : TRegistry;
  i : Integer;
  NetworkCards : String;
begin
result := false;
reg := TRegistry.Create(KEY_READ);
reg.RootKey := HKEY_LOCAL_MACHINE;

if reg.KeyExists('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\' +inttostr(AdapterNr)) = true then
  begin
  reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\' +inttostr(AdapterNr),false);
  NetworkCards := reg.ReadString('ServiceName');
  // break;
  if NetworkCards <> '' then
    begin
    reg.OpenKey('\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\'+NetworkCards,false);
    if reg.ValueExists('DHCPRetryStatus') then
      begin
      result := true;
      end;
    end;
  end;
reg.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  AdptNr : Integer;
begin
for AdptNr := 0 to 5 do
  begin
  if networkconnect(AdptNr) = true
    then showmessage('Netwerkkarte Nr.: '+ IntToStr(AdptNr) + ' hat Kontakt :)')
    else showmessage('Netwerkkarte Nr.: '+ IntToStr(AdptNr) + ' ist entfernt :(');
  end;
end;

sollte auf allen XP laufen :)

[justify]

Hallo!

Ja, unter XP Professional läuft's auch einwandfrei, aber unter allen anderen Betriebssystemen gibt's Probleme.

Wir haben nun eine andere Variante angewendet.

Allerdings funktioniert nocht nicht alles so, wie es soll.

Als nächstes muß das OS ermittelt werden, um dann eine entsprechende Prozedur od. Funktion aufzurufen.

Wer kann helfen?

[fkerber]

Hi!

Hast du mal hier im Forum gesucht?
Ich glaube, da mal was dazu gefunden gehabt zu haben ;)

Ciao Frederic