URL checken

[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!

[haentschman]

Moin...8-)
[mein Senf]

Zitat:

DeddyH hat ja eine Lösung ohne Indy.

Persönlich würde ich die Indy Lösung bevorzugen. Ist einkompiliert und nicht von externen Voraussetzungen abhängig. Wenn dein Programm nicht funktioniert, weil der IE nicht will, bist du Schuld und nicht der Admin der das Dingens falsch eingestellt hat. (mögliches Szenario :zwinker:)
[/mein Senf]

[jaenicke]

Solange man das nicht auf einem Server oder in einem Dienst einsetzt funktioniert es in der Regel schon (auch wenn es so ca. meine letzte Wahl wäre). Die Warnung wegen Servern und einem Einsatz im Dienst sollte man aber schon bedenken, denn wenn man den Code später mal dort einsetzen will, muss man es umschreiben...

Zitat:

Zitat von Doku

WinINet does not support server implementations. In addition, it should not be used from a service. For server implementations or services use Microsoft Windows HTTP Services (WinHTTP).

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx