TWebBrowser: Test auf bestehende Verbindung ins Internet?

[Windwalker]

Hallo!

Ich möchte in meinem Programm eine Internetseite mit News anzeigen lassen.

Nun kann es aber sein, dass der PC, auf welches das Programm ausgeführt wird, keine Verbindung ins Netz hat.
In diesem Falls soll eine Standard-HTML-Seite von der Festplatte angezeigt werden.

Habt Ihr Vorschläge, wie ich auf eine bestehende Internetverbindung testen kann?
Gibt das TWebBrowser-Objekt evtl. solche Informationen zurück?

Danke!

[mkinzler]

http://www.delphipraxis.net/internal...ect.php?t=6540

[Windwalker]

Danke.

Gibt es Erfahrungen, zum Aufruf der Funktion "InternetGetConnectedStateEx" aus der wininet.dll in Delphi?

[mjustin]

Zitat:

Zitat von Windwalker

Hallo!

Ich möchte in meinem Programm eine Internetseite mit News anzeigen lassen.

Nun kann es aber sein, dass der PC, auf welches das Programm ausgeführt wird, keine Verbindung ins Netz hat.
In diesem Falls soll eine Standard-HTML-Seite von der Festplatte angezeigt werden.

Habt Ihr Vorschläge, wie ich auf eine bestehende Internetverbindung testen kann?
Gibt das TWebBrowser-Objekt evtl. solche Informationen zurück?

Danke!

Auch wenn eine Internetverbindung besteht, könnte die Internetseite unerreichbar sein. Mit TIdHTTP (oder Synapse, oder sogar direkt mit TWebBrowser) könnte man prüfen, ob die angegebenen Adresse (URL) erreichbar ist.

Viele Grüße,

[toms]

Wenn eine Verbindung zum Internet besteht heisst es jedoch nicht, dass deine Seite auch erreichbar ist.

Das Webbrowser Control besitzt ein OnNavigateError Ereingis. (Control neu importieren falls das Ereignis nicht vorhanden ist)
Setze dort Cancel := True; und navigiere zu deiner Standard-HTML-Seite.

[mkinzler]

Es kommt darauf an, was er genau will. Dies führt je nach Konfiguration dazu, dass eine Internetverbindung aufgebaut wird.

[BUG]

Darf ich den Link diesmal posten? :mrgreen:


MfG,
Bug

[mkinzler]

Zitat:

Zitat von BUG

Darf ich den Link diesmal posten? :mrgreen:


MfG,
Bug

Hast du hiermit doch schon

War auch (indirekt) von mir verlinkt. war auch das 1. an was ich gedacht habe, als ich diese Frage gelesen habe

[Windwalker]

Danke für die zahlreichen Antworten.

Über das OnNavigateError-Ereignis eine Verbindung aufzubauen möchte ich vermeiden.

Aber der Vorschlag über IDHttp bzw. Synapse hört sich gut an.
Jedoch habe ich diese Komponenten bisher nicht benutzt.
Über die Indy verfüge ich, ich habe mir auch eine Instanz von IDHttp erstellt, weiß jedoch nicht, über welche Methoden des Objekts ich die Verbindung testen könnte.

Könnt Ihr mir nochmals helfen?

[toms]

Zitat:

Zitat von mkinzler

Dies führt je nach Konfiguration dazu, dass eine Internetverbindung aufgebaut wird.

Welche Aussage beziehst du dies?

[mkinzler]

Wenn man versucht per .Navigate() eine Seite aufzurufen, kann es passieren, das eine Verbindung aufgebaut wird. In diesem Fall kömmt es dann zu keinem Fehler

[egon.kaschuba]

:angel:

DanielB suchst Du sowas ???

Gruß
Egon

Delphi-Quellcode:

uses
  IdBaseComponent, IdComponent, IdIPWatch
  
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.caption := 'Aktuelle IP: '+ IdIPWatch1.CurrentIP;
  if IdIPWatch1.IsOnline then
    label2.caption := 'Sie sind online'
  else
    label2.caption:='Sie sind offline';
  label3.caption := 'Lokale IP: '+ IdIPWatch1.LocalIP;
end;

[Windwalker]

Zitat:

Zitat von mkinzler

Wenn man versucht per .Navigate() eine Seite aufzurufen, kann es passieren, das eine Verbindung aufgebaut wird. In diesem Fall kömmt es dann zu keinem Fehler

Da das Navigate sowieso schon immer aufgerufen wird, um die Website anzuzeigen, frage ich nun auch das Error-Event ab.
Funktioniert so wunderbar.

Danke für die Hilfe!