[WD12] HTTPRequête et téléchargement

**Romanops** · 15/09/2008, 14h56

Bonjour,

J'ai créé un programme qui permet de récupérer des fichiers sur dl.free.fr.
C'est très simple, il suffit d'entrer une URL et de cliquer sur télécharger pour pouvoir lancer ce code :

Code :

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

1
2
3
4
5
v_IdFichier = fOuvre(v_CheminFichier,foCréation)
SI HTTPRequête(v_Lien) ALORS
	fEcrit(v_IdFichier,HTTPDonneRésultat(HTTPRésultat),Taille(HTTPDonneRésultat(HTTPRésultat)))
FIN
fFerme(v_IdFichier)

Le problème c'est qu'au lieu de me donner le contenu réel du fichier, il m'enregistre une page html :

Code :

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

1
2
3
4
5
6
7
8
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<HTML><HEAD>
<TITLE>302 Found</TITLE>
</HEAD><BODY>
<H1>Found</H1>
The document has moved <A HREF="http://dl.free.fr/getfile.pl?file=/XXXXXX/XXXXXXX.XXX">here</A>.<P>
<ADDRESS>Apache/DL [Sep  3 2008 16:27:06] Server at dl.free.fr Port 80</ADDRESS>
</BODY></HTML>

J'ai essayé de faire un code qui récupère donc ce lien, et de lancer le téléchargement, mais toujours le même problème...

Est-ce que vous auriez une idée pour qu'il ne m'affiche plus cette satanée page ?

**Romanops** · 17/09/2008, 14h16

Bonjour,

J'ai créé un petit programme tout simple qui permet de télécharger via la fonction httpRequête. Jusque là tout va bien.

Maintenant, lorsque le fichier est un fichier avi (par exemple), il me fait une erreur inconnue :
Dump de l'erreur de module inconnu.
- Niveau : pas d'erreur (EL_NONE)
- Code erreur : 0
- Code erreur WD55 : 0
- Pas de code d'erreur système
- Pas de message d'erreur système
- Pas de message d'erreur
- Pas d'info de debug
- Pas d'info attachée
- Pas d'identifiant dans le .err

Je ne comprends pas du coup, car ça ne m'indique pas d'où vient l'erreur.
Quand je mets un fichier html derrière, ça fonctionne bien, et il me renvoie bien le résultat attendu.

Est-ce que vous avez déjà eu ce problème et comment le résoudre ??

Merci d'avance ^^

PS: voici le morceau de mon code qui lance la requête http :

Code :

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

1
2
3
4
5
6
HTTPJauge(cas_jauge)
	SI HTTPRequête(v_Lien) ALORS
		v_IdFichier = fOuvre(v_CheminFichier,foCréation)
		fEcrit(v_IdFichier,HTTPDonneRésultat(HTTPRésultat),Taille(HTTPDonneRésultat(HTTPRésultat)))
		fFerme(v_IdFichier)
		HTTPJauge("")

[WD12] HTTPRequête et téléchargement

WinDev

Discussions similaires

Partager

Partager