Internetverbindung Prüfen

[KarYn-To]

Also, meines Erachtens wird es ziemlich schwer die Internetkonnektivität zu überprüfen, wenn der Router nichts tun soll. Wenn der Router nichts tut, dann hat man kein Internet. Der Sinn eines Routers ist das Routing zwischen mehreren Leuten, also wird es so ziemlich unmöglich ohne, dass Packets zum Router versendet werden, die Konnektivität im Internet zu prüfen.

Wenn ich mich irre, dann berichtigt mich ^^ aber ich denke, dass hört sich irgendwo logisch an.

[pilic]

Hi,

ich denke, du willst nichts an den Router senden, weil du befürchtest er würde eine Verbindung aufbauen wollen. Zum Beispiel bei dem SE515 von Siemens gibt es aber auf der Startseite einen Vermerk, ob er jetzt mit dem Internet verbunden ist. Das könnte ma ja mit TWebBrowser auslesen, ohne dass eine Verbindung ins Web aufgebaut wird, wenn ich mich nicht irre.

Cheerio

[smiththinger_007]

Hallo,
also mir wäre des egal, das der immer ne Verbindung aufbaut.
Da wo ich mitm meinem Rechner sitze is des immer egal.

Aber"pingen" oder diese WinSock geschichte verursacht bei mir immer voll den durchhängerer :-(

Hab mir einen Bildschirmschoner geschrieben der eine Liste WebCams durchgeht. Und da is so ein "freeze" ganz ungünstig.

Habt ihr da vielleicht eine idee?

Vielen Dank


Ulli

[SaFu]

hab da mal was gefunden

Delphi-Quellcode:

//=============Internetseite aufrufen===========================================
procedure TForm2.Label2Click(Sender: TObject);
const
  INTERNET_CONNECTION_MODEM = 1;
  INTERNET_CONNECTION_LAN = 2;
  INTERNET_CONNECTION_PROXY = 4;
  INTERNET_CONNECTION_MODEM_BUSY = 8;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if IsConnectedToInternet(@dwConnectionTypes) then
    ShellExecute(Handle,'Open',PChar(TLabel(Sender).Caption),nil,nil,SW_SHOW)
  else
    MessageDlgPos('Es besteht keine Verbindung zum Internet',mtInformation,[mbOk],0,320,180);
end;


function TForm2.IsConnectedToInternet(lpdwFlags: LPDWORD): Boolean;
const
  WininetDLL = 'wininet.dll';
var
  hWininetDLL: THandle;
  dwReserved: DWORD;
  fn_InternetGetConnectedState: function(lpdwFlags: LPDWORD; dwReserved: DWORD): BOOL; stdcall;
begin
  Result := False;
  dwReserved := 0;
  hWininetDLL := LoadLibrary(WininetDLL);
  if hWininetDLL > 0 then
  begin
    @fn_InternetGetConnectedState := GetProcAddress(hWininetDLL,'InternetGetConnectedState');
    if Assigned(fn_InternetGetConnectedState) then
    begin
      Result := fn_InternetGetConnectedState(lpdwFlags, dwReserved);
    end;
    FreeLibrary(hWininetDLL);
  end
 else
   raise Exception.Create('Unable to locate function InternetGetConnectedState in library ' + WininetDLL);
end;

[smiththinger_007]

@fuknersascha

Hey sau geil!!! FUX!!!

genau so soll es sein!!!
Hab grad viel Zeit damit verbracht da rum zu "tüffteln"
freu mich grad voll :-D

Hab auf verschiedenste weise versucht einen Ping an googel zu senden, hab aber immer so ne "stockende" Sekunde drin gehabt.
Aber so is perfektoooo!!!! :-D

tausend Dank

Viele Grüße

Ulli

[SaFu]

Naja nachteil ist Wenn du eine WLA´N verbindung hast geht es nicht zumindestens bei mir nicht

Schön das ich auch mal helfen konnte und nicht immer nur fragen stelle


Gruss Sascha

[Mokuba01]

Also bei mir geht das zwar mit DSL, aber er versucht dann trotzdem eine Internetverbindung aufzubauen.

[Die Muhkuh]

Es geht nun mal einfach nicht zu Überprüfen, ohne das es entweder stimmt oder das eine Verbindung aufgebaut wird.