So dieser Code aus dem anderen thread von marabu funktioniert perfekt.
Delphi-Quellcode:
function UrlCheck(sUrl: String; bAllowRedirects: Boolean = false): Integer;
begin
with TidHTTP.Create(nil) do
try
try
HandleRedirects := bAllowRedirects;
Head(sUrl);
Result := Response.ResponseCode;
finally
Free;
end;
except
Result := GetLastError;
end;
end;
begin
if UrlCheck('http://www.delphipraxis.net', true) = 200
then ShowMessage('!')
else ShowMessage('?');
end;
nurnoch eine kleine Frage: Welche Werte kann Request.RespondCode annehmen und wofür stehen die
THX schonmal an alle