Existiert Datei?

[Angel4585]

Hallo,

wie kann ich rausfinden ob die Datei http://localhost/test.txt existiert?

MfG

:angel:

[PierreB]

FileExists und deine Delphi-Hilfe.

[Sharky]

Zitat:

Zitat von PierreB

FileExists und deine Delphi-Hilfe.

FileExists funktioniert auch beim Zugriff auf eine URL im Internet :?:

[PierreB]

Hab keinen Apache gerade zur Hand, wenn sich die Datei aber im www-Root des Webservers (also localhost oder 127.0.0.1) befindet warum sollte es nicht gehen ? :?:

[Angel4585]

Heavy.. cool :thumb: danke

[marabu]

Einfach nur FileExists?

Vorher muss die Konfigurationsdatei des HTTP Servers untersucht werden. Das zum URL passende virtuelle Verzeichnis (oder rootdir) muss ausfindig gemacht werden. Apache, Sambar, PWS, IIS? Jeder Server verlangt da eine andere Vorgehensweise. Das wird schon etwas teurer als ein simpler Aufruf von FileExists.

Eine Alternative könnte UrlExists() sein: klick

Grüße vom marabu

[PierreB]

Zitat:

Vorher muss die Konfigurationsdatei des HTTP Servers untersucht werden.

Warum ?

Wenn ich "http://127.0.0.1/test.txt" in den Explorer eingebe zeigt er mir die Datei an. Warum sollte FileExists das nicht auch einfach können bzw. zurückgeben ob die Datei vorhanden ist ?

[mirage228]

Hi,

die Funktion FileExists gibt bei mir für Dateien auf localhost False zurück.
Also der Windows Explorer ist sehr eng mit dem Inernet Explorer verbunden, da wird einem viel Arbeit im Hintergrund abgenommen. Windows erkennt wohl, dass es eine URL ist und handelt dementsprechend.

mfG
mirage228

[PierreB]

Ok, dann hab ich Windows wieder zuviel zugedacht... :oops:

[marabu]

Hi folks,

die function FileExists() ist nicht etwa besonders clever - eher das Gegenteil ist der Fall. Die merkt gar nicht, dass kein UNC-Name sondern ein URL übergeben wird. Wenn der IE den Inhalt der Datei "test.txt" anzeigt, dann deshalb, weil er für bestimmte MIME Typen bereits integrierten Support mitbringt, für andere muss ich eine helper application registrieren.

marabu

[Angel4585]

mist.. also fileexists funzt definitiv nicht... kann erst später die anderen testen.. der HSV hat in München gewonnen und das kann ich mir in der Sportschau nich entgehen lassen...

[SirThornberry]

FileExists kann gar nicht funktionieren weil FileExists intern ein FindFirst macht und das arbeitet nunmal nicht auf HTTP-Basis. Wäre ja auch schlimm wenn jeder den inhalt auflisten könnte der auf meinem webspace liegt.

[Angel4585]

So dieser Code aus dem anderen thread von marabu funktioniert perfekt.

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

begin
  if UrlCheck('http://www.delphipraxis.net', true) = 200
    then ShowMessage('!')
    else ShowMessage('?');
end;

nurnoch eine kleine Frage: Welche Werte kann Request.RespondCode annehmen und wofür stehen die

THX schonmal an alle

[SirThornberry]

Response-Code kann alle Fehlercodes haben die es eben gibt. 404 wenn die Seite nicht gefunden wird und etliche andere wenn zum Beispiel der Zugriff verweigert wird. Das alles ist für das HTTP-Protokoll definiert. Du müsstest also mal eine Liste der Fehlercodes des HTTP-Protokolls suchen.

Hier mal eine Seite mit einem Link zum Protokoll welches nochmehr fehlercodes enthält: http://www.webmeister.ch/server/error_code.htm

[Angel4585]

cool danke :thumb:

[himitsu]

Aufgrund einiger Problemchen hier nocheine Variante:

Delphi-Quellcode:

uses
  IdHeaderList, IdHTTP;

type
  TCheckHeadersAvailable = class
    class procedure Check(Sender: TObject; 
      AHeaders: TIdHeaderList; var VContinue: Boolean);
  end;

class procedure TCheckHeadersAvailable.Check(Sender: TObject; 
  AHeaders: TIdHeaderList; var VContinue: Boolean);
begin
  VContinue := False;
end;

function UrlCheck(sUrl: String; bAllowRedirects: Boolean = false): Integer;
begin
  with TIdHTTP.Create(nil) do
    try
      HandleRedirects := bAllowRedirects;
      OnHeadersAvailable := TCheckHeadersAvailable.Check;
      try
        Head(sUrl);
        Result := Response.ResponseCode;
      except
        if (Response.ResponseCode >= 400) and (Response.ResponseCode < 600) then
          Result := Response.ResponseCode else Result := 503;
      end;
    finally
      Free;
    end;
end;

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var
  C: Integer;
begin
  C := UrlCheck('http://www.google.de/mdklsandksj.txt', True);
  if C = 200 then ShowMessage('OK')
  else ShowMessage(Format('Fehler %d', [C]));
end;

oder

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
begin
  if UrlCheck('http://www.google.de/mdklsandksj.txt', True) = 200 then 
    ShowMessage('OK')
  else 
    ShowMessage('Fehler');
end;

Ach ja, GetLastError (siehe Post 13) als Result ist keine gute Idee.