Testen ob Internet-Verbindung besteht

[Delphi-Padawan]

Wie kann ich mein Programm prüfen lassen, ob eine Verbindung mit dem Internet besteht? Es soll dann angezeigt werden, ob eine Verbindung besteht, oder nicht.

[chris01]

Hi!

Hier in der Dp gibt es schon soetwas!

hier

Gruß Chris

[Darty]

Oder Du lässt im Hintergrund eine Seite aufrufen was aber nicht 100% ist da die Seite auch ausfallen kann.

[Delphi-Padawan]

@chris01
das dort gezeigte Beispiel funktioniert überhaupt nicht!

Wenn ich das so in mein Programm übernehme meldet sich der Compiler, dass der Befehl, der dort in der zweiten Zeile steht, nicht definiert ist. Was soll das?

[Matze]

ganz oben bei uses musst du das hier noch hinzufügen:
WinInet dann sollte es klappen.

Edit: Aber bei mir zeigt es immer an, dass ich eine Verbindung habe, ob dies der Fall ist oder nicht.

[Delphi-Padawan]

Tut mir wirklich leid, dass ich mich nochmal melden muss, aber es funktioniert bei mir nicht (Delphi 3 Professionel)

Das ist mein Code und ich kann nicht kompilieren:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, WinInet;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function IsInternetConnected: Boolean;
begin
  if InternetGetConnectedState(nil, 0) then
  begin
    Result := True;
  end
  else
  begin
    Result := False;
  end;
end;

end.

Wo ist der Fehler? Vielen Dank für eure Geduld

[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]

[Jens Schumann]

Hallo,
welche Fehlermeldung erhälst Du denn?

[mlspider]

Wie wär's hiermit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var lpdwFlags :PDWord;
begin
 if IntenetGetConnectedState(lpdwFlags, 0)then begin
  checkbox1.Checked := (lpdwFlags^ and INTERNET_CONNECTION_MODEM) <> 0;
  checkbox2.Checked := (lpdwFlags^ and INTERNET_CONNECTION_LAN) <> 0;
  checkbox3.Checked := (lpdwFlags^ and INTERNET_CONNECTION_PROXY) <> 0;
  showmessage('Internet-Verbindung besteht !');
  end;
end;

nicht vergessen zuerst uses wininet; aufzunehmen.

[edit=Christian Seehase] Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]

[Christian Seehase]

Moin Delphi-Padawan,

falls D3 InternetGetConnectedState nicht kennt, füg' das hier mal im Interface Abschnitt hinzu:

function InternetGetConnectedState(lpdwFlags : LPDWORD;dwReserved : DWORD) : longbool; stdcall; external 'wininet.dll'; (dann kannst Du auch die unit wininet weglassen).

[XeRo]

Versuchs einfach mal so:

Delphi-Quellcode:

uses 
  StdCtrls, registry; 

function IsConnected: Boolean; 
var 
  reg: TRegistry; 
  buff: DWORD; 
begin 
  reg := TRegistry.Create; 
  Reg.RootKey := HKey_local_machine; 
  if reg.OpenKey('\System\CurrentControlSet\Services\RemoteAccess', False) then 
  begin 
    reg.ReadBinaryData('Remote Connection', buff, SizeOf(buff)); 
    Result := buff = 1; 
    reg.CloseKey; 
    reg.Free; 
  end; 
end;

Ist zwar mit registry funktioniert aber gut...

Zweite Möglichkeit:

Delphi-Quellcode:

uses 
  WinInet; 

{...} 

function IsConnectedToInternet: Boolean; 
var 
  dwConnectionTypes: DWORD; 
begin 
  dwConnectionTypes := 
    INTERNET_CONNECTION_MODEM + 
    INTERNET_CONNECTION_LAN + 
    INTERNET_CONNECTION_PROXY; 
  Result := InternetGetConnectedState(@dwConnectionTypes, 0); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if IsConnectedToInternet then 
    ShowMessage('Connected.') 
  else 
    ShowMessage('Not Connected.') 
end;

Dritte Möglichkeit:

Delphi-Quellcode:

function 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;

irgendwas sollte ja von denen deinen erwartungen entsprechen...