Zitat:
Dir ist bewusst, dass das 'Disconnect' nach dem 'raise
Exception..' nie zur Ausführung kommt?
Habe schon sämtliche Kombinationen durch. Selbst wenn das Disconnect ausgeführt wird muss ich diese 20 Sekunden warten.
Genau hier beim Head muss ich warten. Vollkommen egal welche
URL ich eingebe. Bei Get muss ich ebenfalls warten.
Ich habe glaube ich vergessen zu erwähnen, dass ich nur warten muss wenn keine Internetverbindung besteht.
Delphi-Quellcode:
// Unit 1
aHTTP := THTTPObject.Create(
nil);
try
if UrlCheck(aHTTP, ---) = 200
then
.....
// Unit 2
function UrlCheck(aHTTP: THTTPObject =
nil; sUrl:
string = '
'): Integer;
begin
Result := -1;
try
if sUrl <> '
'
then
begin
aHTTP.Head(sUrl);
Result := aHTTP.Response.ResponseCode;
end;
except
Result := GetLastError;
end;
end;