schneller Online Datei-Check

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

[Klaus01]

Hi Flo,

das Netzwerk benötigt auch ein wenig zum Antworten.
Wenn Dir 5 Sekunden zu lang sind - lager es in einen Thread aus.

Grüße
Klaus

[Flodding]

die funktion um ne datei downloaden zu können kanns ja auch schnell machen...

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

[Flodding]

welcher andere Thread?

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

MUSS "!" zurück geben denn die richtige URL ist:

http://www.bbned.nl/scripts/speedtes...d/file32mb.bin

und nicht

http://www.bbned.nl/scripts/speedtes...le324654mb.bin

aber wenn man den unteren link öffnet, dann kommt ne leere datei... war ne doofe datei zum testen...

http://google.de/DD.txt das muss "?" zeigen und http://google.de/index.html sollte "!" zeigen

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

[Flodding]

ahh okay... hatte "einzelnen Beitrag" immer nur deshalb hatte ich deinen Post nicht gesehn :X

[shmia]

Bei einer HTTP-Anfrage mit HEAD bekommt man übrigens auch noch Grösse der Resource (Dateigrösse) und das Datum.

Eine Anfrage auf diese URL http://www.delphipraxis.net/files/av...atar3057_2.gif
liefert z.B.:

Code:

Via: 1.1 MyProxy
Connection: Keep-Alive
Proxy-Connection: Keep-Alive
Content-Length: 9961                          < ******
Expires: Sat, 12 Jun 2010 10:45:46 GMT
Date: Wed, 25 Aug 2010 16:39:58 GMT
Content-Type: image/gif
ETag: "1096bba-26e9-75092245cea80"
Server: Apache/2.2.9 (Debian) DAV/2 mod_ssl/2.2.9 OpenSSL/0.9.8g SVN/1.6.9
Last-Modified: Sat, 05 Jun 2010 10:45:46 GMT  < ******
Cache-Control: max-age=290304000, public

PS: im Anhang ein kleines Testprogramm, mit dem man diese Infos holen kann

[himitsu]

@shmia:
aber nur wenn das mitgesehndet wird.
Versuch mal die Dateigröße der http://www.delphipraxis.net/dp_portal.php zu bestimmen

[Luckie]

Zitat von 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;

Von wem stammt dieser Code? Zum einem müsste der try-except, try-finally Block umgekehrt geschachtelt sein und zum anderen wird bestimmt eine Exception ausgelöst und nicht der letzte Systemfehlercode gesetzt. Also die try-Blöcke umgekehrt schachteln, aus der Funktion eine Prozedur machen und im Fehlerfall eine Exception werfen, damit der Aufrufer mögliche Fehlerbehandeln kann.