Thema: Delphi file exist indy 9

Einzelnen Beitrag anzeigen

hinnack

Registriert seit: 18. Nov 2004
22 Beiträge
 
#5

Re: file exist indy 9

  Alt 21. Nov 2007, 14:39
Du rufst die Head Procedure auf und prüfst danach auf ResponseCode=200
Du kannst auch noch auf xxx.Response.xxx z.B ContentType zugreifen
Jedoch das Dokument selbst wird nicht heruntergeladen - das geht nur mit GET.

Delphi-Quellcode:
function LinkExists(link: string) : boolean;
begin
// IdHTTP Object erstellen etc. FollowRedirect, Cookies etc. einstellen
  try
     IdHTTP.Head(Link);
  except
  end;
  Result := (IdHTTP.ResponseCode = 200)
end;

Mit Ethereal kann man sich den Unterschied sehr gut anschauen (http://www.ethereal.com)

Gruss

Hinnack
  Mit Zitat antworten Zitat