Discussion :

[simoryl]

Salut,

Je cherche à vérifier si un fichier existe sur un site internet (via http) mais sans pour autant le telecharger. Existe t-il un equivalent de FileExists() pour ce cas là?

J'ai essayé avec IdHTTP1.Get mais il récupère le fichier, chose que je ne veux pas.

Merci

Simo'

[slimjoe]

Salut,

Je cherche à vérifier si un fichier existe sur un site internet (via http) mais sans pour autant le telecharger. Existe t-il un equivalent de FileExists() pour ce cas là?

J'ai essayé avec IdHTTP1.Get mais il récupère le fichier, chose que je ne veux pas.

Merci

Simo'

Salut!

Tu peux utiliser la méthode Head(); de TIdHTTP. Si la ressource recherchée existe, la propriété ResponseCode sera initialisée à 200, sinon à 404.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.Button1Click(Sender: TObject);
const
   MON_FICHIER = 'http://<a href="http://www.developpez.com/template/logo.gif&#39;;" target="_blank">www.developpez.com/template/logo.gif';</a>
 
begin
   try
      IdHTTP1.Head(MON_FICHIER);
   except
      ShowMessage(Format('Erreur %d', [IdHTTP1.ResponseCode]));
   end;
 
   if IdHTTP1.ResponseCode = 200 then
      ShowMessage(Format('Le fichier "%s" existe.', [MON_FICHIER]));
end;

[simoryl]

ok, merci.
J'avais essayé head mais manifestement pas comme il faut. En tous cas, maintenant je sais comment ça marche.
Merci beaucoup pour ta réponse
Simo'