Funktion: IsNetworkConnected ??

[justify]

*..und nochmal nach oben schiebt*

[SirThornberry]

in der Unit "wininet" gibt es die Funktion "InternetGetConnectedState". Die gibt dir den Status der Verbindung zurück.

Delphi-Quellcode:

function ConnectedToLan: Boolean;
var LWord: DWord;
begin
  LWord := INTERNET_CONNECTION_LAN;
  result := InternetGetConnectedState(@LWord, 0);
end;

genauere Hilfe zu der funktion gibts im msdn InternetGetConnectedState

[justify]

Hallo,

hab's getestet, funktioniert kein bißchen.

[SirThornberry]

habs auch getestet und bei mir funktionierts auch nicht, aber laut msdn sollte es funktionieren.

[justify]

Hast Du den Anhang mal runtergeladen und es daran getestet?

Naja, zur Zeit hab' ich echt keine Ahnung, was ich noch machen könnte..

[justify]

*..weiterschiebt*

[justify]

Morgen,

soweit habe ich jetzt alles (also Betriebssystem wird ermittelt, für XP & 2000 läuft die Funktion).

Jetzt bräuchte ich nur noch eine Funktion, die unter NT und niedriger überprüft, ob der Netzwerkstatus aktiv ist oder nicht.

Weiß jemand Rat?

[Tonic1024]

Moin...

(für meinen Geschmack pushst du zu viel/häufig)

Bringt es dich weiter, wenn du deine eigene IP pingst? Hab das grad getestet und bei mir gings. 127.0.0.1 ging und 192.168.x.x ging nicht nachdem ich mein Netzwerkkabel gezogen hatte.

Die eigene IP kannst du ja ermitteln - ich glaube das Stichwort "Neo.pas" hilft da weiter. musst mal hier im Forum suchen und testen.

MfG

Toni

[justify]

Hi,

genau das habe ich ja gemacht, aber diese Variante läuft nur unter XP & 2000.

Unter NT und niedriger funktioniert das noch nicht recht.

Welches OS hast Du denn, wenn man fragen darf?

[Tonic1024]

Sorry, hab ich entweder "überlesen" oder nur halb mitgedacht (Montag Morgen halt) :roll:

Hab ein 2k System.


Schau mal in der 'Hosts-Datei' ob da u.U. deine IP-Eingetragen ist. Wenn ja, mach sie mal raus und versuchs nochmal. Sollte zumindest Aufschluss darüber geben worans liegt, dass es dort anders ist.

Sollte dort zu Finden sein:
WINNT\system32\drivers\etc\SERVICES


MfG

Toni