Zitat von
sakura:
Benutze mal anstatt von
IdHTTP1.Get die Anweisung
IdHTTP1.Head. Damit werden nur die Header geholt, Get holt auch den Inhalt, aber den wolltest Du doch nicht.
...
...
Stimmt.
Ok, ich hab das so gemacht:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
ausgabe:String;
begin
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;
ShowMessage(ausgabe);
end;
Das funktioniert auch. Aber leider passiert hier bei Eingabe einer nicht existierender
URL das selbe. Ich bekomme ein Eine Fehlermeldung vom System.
Hmmm.. vielleicht sollte ich mal die Anwendung ausserhalb der Entwicklungsumgebung starten.