Verbindung zum Internet herstellen

[sakura]

Hi DP-ler,

die Herstellung einer Verbindung zum Internet ist recht einfach, aber es gibt auch viele verworene Wege. Folgenden Funktion ermöglicht die Herstellung via einer MS Windows API Funktion. Es funktioniert nach dem gleichen Prinzip, welches auch die MS Office Anwendungen oder der Internet Explorer nutzen.

Wenn die Anwendung eine Verbindung ins Internet herstellen möchte, einfach die nachstehende Funktion aufrufen. Ist der Anwender nicht mit dem Internet verbunden, so wird eine kleine Dialogbox angezeigt, wo die Verbindungsherstellung bestätigt/abgewiesen werden kann.

Die Funktion liefert True zurück, wenn eine Verbinung hergestellt werden konnte, ansonsten False.

Vorteil dieser API Funktion gegenüber anderen Methoden, ist der Referenzzähler von Windows. Mit der Verbindungsherstellung wird dieser erhöht. Sind alle Anwendungen geschlossen, welche sich mit dem Internet verbunden haben, fragt Windows automatisch den Nutzer, ob die Verbindung getrennt werden soll, sofern dieser diese Funktion nicht deaktiviert hat. ;)

Delphi-Quellcode:

uses
  WinInet;

// ...

function GoOnline: Boolean;
begin
  Result := InternetGoOnline('http;//www.delphipraxis.net', Application.Handle, 0);
end;

...:cat:...