Discussion :

[mnssylvain]

bonjour,

Je galère depuis quelques temps à essayer d'exporter les données d'une page Web.

J'ai réussi à exporter le texte mais je plante toujours sur la photo.

J'ai trouvé sur le forum ce code qui marche bien sur un de mes sites avec l'image qui est bien placée etc.....

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
16
17
// Définition des variables
ResAppel est un booléen
IdFichier est un entier
 
// Ouverture du fichier "C:\MesImages\Images.GIF" 
IdFichier = fOuvre("C:\MesImages\Images.GIF", foCréation)
SI IdFichier <> -1 ALORS
   // Récupération de l'image
   ResAppel = HTTPRequête("http://athomepc84.free.fr/atome.gif")
   SI ResAppel = Vrai ALORS
      // Enregistrement de l'image récupérée dans le fichier
      fEcrit(IdFichier, HTTPDonneRésultat(), Taille(HTTPDonneRésultat()))
   FIN
 
   // Fermeture du fichier
   fFerme(IdFichier)
FIN

Je n'arrive pas à le faire fonctionner sur cette page par exemple:
http://www.books-by-isbn.com/2-266/2...6-02312-8.html

Le pb c'est que l'adresse de l'image est bizarre....
http://www.books-by-isbn.com/rpix/ec...BXFV51L-Camara

Comme vous pouvez le voir, il n'y a pas d'extention au nom de fichier.

Si je fais enregistrer l'image avec le clic droit il me l'enregistre au format BMP
J'ai bien essayer de changer le format mais bon rien pour le moment

Merci pour votre aide

[mnssylvain]

en relisant mon message et en cliquant sur les liens je m'aperçois que l'adresse de l'image me renvoie sur une autre adresse.....

Les lettres composant le nom de l'image ne sont pas dans le même ordre....
serai ce un moyen de protéger l'image???
quelqu'un peut-il m'expliquer ça???

Edit: J'ai donc ressui à mettre cette nouvelle page dans un champ HTML mais omment récupérer l'adresse de ce champ????

[mnssylvain]

J'ai trouvé, il fallait le faire une deuxième fois avec l'adresse récupérée la première fois

Code :

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

1
2
3
4
5
6
7
8
9
10
11
//image
pos1 est un entier=Position(variable1,"src=")+5
Pos2 est un entier=Position(variable1,"width",pos1)-3
longueur est un entier = pos2-pos1
cheminimagedist est une chaîne ="http://www.books-by-isbn.com"+Milieu(variable1,pos1,longueur)
HTTPRequête(cheminimagedist)
vimage est une chaîne= HTTPDonneRésultat()
pos1 =Position(vimage,"http://")
Pos2 =Position(vimage,">",pos1)-1
longueur = pos2-pos1
cheminimagedist =Milieu(vimage,pos1,longueur)

puis on récupère l'image....

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
16
17
18
//code pour copier l'image sur le disque dur en automatique
cheminimagelocal est une chaîne="C:\Images.jpeg"
 
ResAppel est un booléen
//IdFichier est un entier déjà défini plus haut
// Ouverture du fichier "C:\Images.jpeg" 
IdFichier = fOuvre(cheminimagelocal, foCréation)
SI IdFichier <> -1 ALORS
	// Récupération de l'image
	ResAppel = HTTPRequête(cheminimagedist)
	SI ResAppel = Vrai ALORS
		// Enregistrement de l'image récupérée dans le fichier
		fEcrit(IdFichier, HTTPDonneRésultat(), Taille(HTTPDonneRésultat()))
	FIN
	// Fermeture du fichier
	fFerme(IdFichier)
FIN
IMG_couverture=cheminimagelocal

Et voilou....

Enjoy