schneller Online Datei-Check

[Klaus01]

.. schau dir mal URLCheck an.

Grüße
Klaus

[H4ndy]

Gab's nicht dieses idAntiFreeze zum Draufklicken, damit die Anwendung bei Anfragen nicht mehr einfriert?

[Flodding]

idAntifreeze funzt nicht wirklich... das hab ich auch schon probiert...

URLCheck liefert mir bei diesem Code:

if UrlCheck('http://www.bbned.nl/scripts/speedtest/download/file324654mb.bin', true) = 200 then ShowMessage('!') else ShowMessage('?'); ein "!" obwohl er mir ein "?" liefern sollte...

probier ich es so:

if UrlCheck('http://www.bbned.nl[B]llllllllll[/B]', true) = 200 then ShowMessage('!') else ShowMessage('?'); liefert er mir "?" zurück... kann also nur URLs finden und keine Dateien?

[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

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