FileExist sur internet (HTTP) [Résolu]

Signaler
Messages postés
33
Date d'inscription
dimanche 6 juillet 2003
Statut
Membre
Dernière intervention
12 septembre 2007
-
Messages postés
15
Date d'inscription
vendredi 10 janvier 2003
Statut
Membre
Dernière intervention
9 novembre 2009
-
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

Messages postés
1023
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
17 août 2008
2
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.
Messages postés
15
Date d'inscription
vendredi 10 janvier 2003
Statut
Membre
Dernière intervention
9 novembre 2009

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