URL checken

[DeddyH]

Bei mir funktioniert der Code, unter Delphi 7 ausprobiert.

[Privateer3000]

Seltsam
selbst wenn ich den größten Blödsinn reinschreibe
meldet es OK. Hauptsache ich schreibe überhaupt was rein.
Ist urltext.text leer kommt unbekannter Fehler, also die else vom case.
Wie kann es bei dir funktionieren?

[DeddyH]

Bist Du mal durchgesteppt? Ich habe unter Windows kein Lazarus zur Verfügung, unter Linux kann ich ja WinInet schlecht benutzen.

[Privateer3000]

Auch wenn bei mir inzwischen FPC/Lazarus steht,
das nutze ich hauptsächlich, habe ich das hier
in meinem alten D7 gemacht. Also unter quasi gleichen Bedingungen.
Hätte ich vllt. dazuschreiben sollen, sry

Aber ich setze mal einen Haltepunkt, mal sehen wo
die Routine hinspringt...

[Privateer3000]

Ich hab mal mittels Haltepunkt geschaut.
Es wird im Case auf die 200 gesprungen und die Ausgabe getätigt.
Also ist der zurückgegebene Statuscode 200.
Aber eben immer, wie gesagt...

ratlos...

[jaenicke]

Hast du es denn mal ohne das Free mit dem ursprünglichen Code versucht?

Delphi-Quellcode:

function Tmain.urlcheck(sUrl: String; bAllowRedirects: Boolean = false): Integer;
begin
   try
     IdHTTP1.HandleRedirects := bAllowRedirects;
     IdHTTP1.Head(sUrl);
     Result := IdHTTP1.Response.ResponseCode;
   except
     Result := GetLastError; // was soll das bringen? bei Indy dürfte GetLastError nichts über den Fehler aussagen...
   end;
end;

[Privateer3000]

Das hatte sich doch schon erledigt,
DeddyH hat ja eine Lösung ohne Indy.
An sich war das klar ein Fehler von mir,
eine zur Laufzeit generierte Kompo wird natürlich freigegeben.
Trotzdem Danke!