1:
2:
3:
4:
5:
6:

try
    IdHTTP1.Get(edit1.text, responseStream);
  except
    on EIdHTTPProtocolException do
      ausgabe:='Fehler!'+#13#10 + IdHTTP1.ResponseText;
  end;//try                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Die Eigenschaft ReadyState gibt den Status der Komponente an.

property ReadyState: TOleEnum;

Beschreibung

Mit ReadyState rufen Sie Statusinformationen über die TWebBrowser-Komponente ab. Dadurch können Sie beispielsweise verhindern, daß die Komponente verwendet wird, wenn sie auf eine Aktion nicht vorbereitet ist.

Die Eigenschaft kann folgende Werte annehmen:

Konstante  Wert  Beschreibung

READYSTATE_UNINITIALIZED  0  Standard-Initialisierungsstatus. Das Steuerelement hat noch nicht mit dem Laden seiner Eigenschaften begonnen.

READYSTATE_LOADING  1  Das Steuerelement lädt seine Eigenschaften.
READYSTATE_LOADED  2  Das Steuerelement hat seine Eigenschaften initialisiert, ist aber noch nicht interaktiv.
READYSTATE_INTERACTIVE  3  Das Steuerelement ist interaktiv. Es sind aber noch nicht alle Daten verfügbar (ein Dokument oder Frame wird gerade geladen).
READYSTATE_COMPLETE  4  Das Steuerelement ist interaktiv, und seine gesamten Daten sind verfügbar (das aktuelle Dokument ist vollständig geladen).                    

1:

WebBrowser1.Navigate('http://irgendwas.com/test.txt');                    

1:

if WebBrowser1.ReadyState = 4 then ShowMessage('File existiert') else ShowMessage('File nicht gefunden');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

try
    IdHTTP1.Head(edit3.text);
  except
    on EIdHTTPProtocolException do
      ausgabe:='Fehler!'+#13#10 + IdHTTP1.ResponseText;
  end;//try
  if (Length(ausgabe)<1) then
    ausgabe:='OK, alles klar'+#13#10 + IdHTTP1.ResponseText;
  ...
  ...