FileExist sur internet (HTTP)

Résolu
cs_intik Messages postés 33 Date d'inscription dimanche 6 juillet 2003 Statut Membre Dernière intervention 12 septembre 2007 - 27 avril 2007 à 18:43
cs_fadiese Messages postés 15 Date d'inscription vendredi 10 janvier 2003 Statut Membre Dernière intervention 9 novembre 2009 - 30 juin 2007 à 10:47
Bonjour

Dans mon programme je regarde si un fichier existe (en réseau et si oui j'ouvre son contenu texte dans un showmessage)
j'aimerai faire la meme chose mais en allant chercher le fichier sur internet par ex http://intika.free.fr/nottes

Comment puis-je faire cela svp

Je suis débutant...

Merci

Voila mon code...

//Verification que le fichier existe
if fileExists('\\Ordi2\notes') then
begin
  ListeTxt:=TStringList.Create;
  ListeTxt.LoadFromFile('\\Ordi2\notes');
  tmp := ListeTxt[0];
   // si le fichier est vide ne rien faire et continuer l'exécution du programme si non afficher son contenu
  if tmp<>'' then
  showmessage(tmp);
  ListeTxt.Free;
end
else
   // Si le fichier n'existe pas on arrete le programme
  application.Terminate;

2 réponses

florenth Messages postés 1023 Date d'inscription dimanche 1 août 2004 Statut Membre Dernière intervention 17 août 2008 3
27 avril 2007 à 19:02
Héhé, il faut utiliser Indy (ou autre compos du genre) pour faire une requette HTTP et récupérer l'erreur 404 si le fichier n'existe pas.

Pour tout cela, je te laisse te renseigner sur Indy et sur son utilisation.
3
cs_fadiese Messages postés 15 Date d'inscription vendredi 10 janvier 2003 Statut Membre Dernière intervention 9 novembre 2009
30 juin 2007 à 10:47
Ou encore en utilisant Wininet...
Voici une source détaillée :

http://www.koders.com/delphi/fid3086FB9013670CBBB65E0F41F9CBEA6533BCE111.aspx




En espérant que cela te soit utile

fa
0
Rejoignez-nous