schneller Online Datei-Check

[himitsu]

Was für einen Wert liefert denn URLCheck?
Denn es sollte mit Dateien funktionieren.

[Flodding]

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;
      errorhandler := Response.ResponseText;
    finally
      Free;
    end;
  except
      Result := GetLastError;
  end;
end;

if UrlCheck('http://www.bbned.nl/scripts/speedtest/download/file324654mb.bin', true) = 200 then ShowMessage('!' + errorhandler) else ShowMessage('?' + errorhandler); liefert:

!HTTP/1.1 200 OK

[himitsu]

Delphi-Quellcode:

C := UrlCheck('http://www.bbned.nl/scripts/speedtest/download/file324654mb.bin', true);
ShowMessage(IntToStr(C));

[edit]
OK, das sollte hoffentlich 200 ausgeben.

Zitat:

URLCheck liefert mir bei diesem Code: ... ein "!" obwohl er mir ein "?" liefern sollte...

Wieso sollte es denn "?" liefern?
"!" = Datei existiert.

[Flodding]

200

[H4ndy]

Zitat von Flodding:

200

Mal ehrlich, 200 heißt doch, dass es die Datei gibt. Oder gibt's die etwa nicht?
Zumindest kann ich die Adresse ansurfen, ist nur nix in der Datei drin.

[himitsu]

Ach ja, wenn diese Datei nicht existieren sollte,
die Webseite dieses aber selber auswertet und dann keinen korrekten Statuscode liefert, dann gibt es keine Möglichkeit dieses schnell zu prüfen.

Abgesehn vom vollständigen Runterladen der Datei und anschließendem Prüfen, ob diese Datei "korrekt" ist, bzw. das enthält, was mann will.

[himitsu]

Hab in dem anderem Thread noch eine andere Variante eingetragen, welche bei 404 ohne Exception auskommt.
(aber keine Ahnung, ob sie bei den 1xx- und 3xx-Codes/Fehlern korrekt arbeitet)

[himitsu]

In dem?
http://www.delphipraxis.net/434574-post13.html

Deren Downloadscript ist einfach nur Schott.
Es gibt immer 200 aus, egal ob die gewünschte Datei existiert oder nicht.

[himitsu]

@Luckie:
Der Code war von dort http://www.delphipraxis.net/64518-ex...tml#post434574 und wurde hier in Beitrag #2 verlinkt.

Und ich war schneller, siehe letzter Post da drüben.

[Flodding]

mir scheint als gäbe es die datei tatsache irgendwie nur leer^^... hab ich nicht drauf geachtet... gut andere URL probiert...

C := UrlCheck('http://google.de/DD.txt', true); das gibt mir nen 'Read Tiemout' der schon 5 sekunden dauert...