Hallöchen,
ich erstelle mal zu diesem Thema einen neuen Thread.
Und zwar geht es um das Beispiel von Marabu:
Code:
function Tmain.urlcheck(sUrl: String; bAllowRedirects: Boolean = false): Integer;
begin
with IdHTTP1 do
try
try
HandleRedirects := bAllowRedirects;
Head(sUrl);
Result := Response.ResponseCode;
finally
Free;
end;
except
Result := GetLastError;
end;
end;
Wenn nun die Funktion mit
Code:
urlcheck('http://www.delphipraxis.net', true) = 200
aufgerufen wird, funktioniert das.
Aber nur einmal. Lässt man einen Timer regelmäßig diese Funktion aufrufen
gibt es eine
Exception beim zweiten Mal.
Warum passiert das?