Discussion :

[Unusual]

Bonjour,
Je récupère l'administration d'un vieux site qui référençaient des images sur le net. Je voudrais balayer cette liste pour vérifier l'existence des images référencées afin de supprimer les liens morts.

Comme la programmation web et réseau, ce n'est pas trop mon fort, je viens demander quelques conseils sur la marche à suivre.
J'ai un vieux Delphi 7 à disposition.

De prime abord, je pensais balayer la liste et utiliser un WebBrowser pour tester chaque URL, puis vérifier la présence du '<IMG SRC' qui va bien dans le HTML récupéré afin de valider ou pas chaque lien. D'un côté, je me dis que c'est un peu usine à gaz et que cela risque d'être long (il y a des dizaines de milliers d'url à tester), mais au moins ce n'est pas compliqué.

Quelqu'un préconiserait-il une autre méthode et si oui, laquelle ?

Serait-ce suffisant d'isoler les erreurs 403 et 404 ? (dans ce cas, je fais comment ?)

La complexité ne me dérange pas du moment que cela fait gagner du temps
Merci d'avance pour vos suggestions

[ShaiLeTroll]

Comment télécharger un fichier en Http sans utiliser Indy ?

InternetOpenURL devrait te fournir les codes d'erreur comme FILE_NOT_FOUND en cas de result NULL

[Unusual]

Merci pour la réponse, j'ai essayé déjà deux méthodes : celle que j'avais émise dans le premier post...et une seconde basée sur tes infos (hormis que je ne veux pas télécharger les fichiers)...j'ai donc ajouté un test de page avec HttpQueryInfo et cela semble bien marcher...La seconde solution est bien plus rapide. Je laisse encore le sujet ouvert au cas où il y aurait meilleure proposition, mais il est d'ores et déjà résolu pour ma part. J'attends jusqu'à ce soir, et à défaut de mieux, j'ajoute le flag "Résolu".

Merci encore.

[ShaiLeTroll]

hormis que je ne veux pas télécharger les fichiers)...j'ai donc ajouté un test de page avec HttpQueryInfo

Pour ne pas télécharger, il suffit de ne pas utiliser InternetReadFile

Avant même d'utiliser HttpQueryInfo
Vérifie le retour de InternetOpenURL, si nil, utilise GetLastError

[Unusual]

Pour ne pas télécharger, il suffit de ne pas utiliser InternetReadFile

Avant même d'utiliser HttpQueryInfo
Vérifie le retour de InternetOpenURL, si nil, utilise GetLastError

C'est ce que j'avais fait ! mais merci de la précision