Discussion :

[houssem-hj]

Bonjour à tous.

J'ai la version 10 de Windev et depuis quelleque jours j'essaie de trouver une solution à mon probleme.

Mon application sert à naviguer sur des pages web à l'aide d'un activex (web browser) et si l'utilisateur s'interesse à une page j'ai ajouté un bouton pour enregistrer la page sur le disque dur afin de naviguer ultérieurement même sans accés à internet (offline).

Tous marche a merveille, voici mon code :

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
19
20
21
22
23
24
25
26
27
28
 
 
// sLelien est un champ de saisie ou l'utilisateur tape l'url voulou
 
HTTPRequête(sLelien)
ActiveX1>>Navigate(sLelien)
 
// récupérer le code source de la page
SAI_Saisie2=HTTPDonneRésultat()
 
//// enlever "http://www."
sLelien=Milieu(sLelien,12,300)
 
Sourcefichier est une chaîne
leFichier est une chaîne = ComplèteRep(fRepExe())+sLelien+".htm"
 
 
Sourcefichier =  SAI_Saisie2
SI Sourcefichier<>"" ALORS
	wwwFic est un entier
	wwwFic = fOuvre(leFichier,foCréation)
	SI wwwFic<>-1 ALORS
		fEcrit(wwwFic,Sourcefichier)
		fFerme(wwwFic)
	FIN
SINON	
	Erreur("La page n'est pas accessible.")
FIN

Aprés avoir sauvegardé le fichier un autre bouton sert à naviguer sur la page enregistré avec le code suivant :

Code :

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

1
2
 
AX_ActiveX1>>navigate(leFichier)

Tout est nickel, sauf que : quand il y'a des images dans une page, il ne seront pas enregistré et donc ne seront pas chargé dans la deuxieme étape.

Y'a t'il un moyen de récupérer les images ?

** L'idée est de sauvegarder la page entiere, comme dans IE ou firefox, quand on clique sur 'enregistrez sous' tous le contenu de la page sera enregistré.

Merci pour votre aide..
Cordialement.

[frenchsting]

Ton code va se compliquer un peut bcp :

il faut que tu analyses le texte dans SAI_Saisie2 et que tu recherches les balises image (<img src=/adresseimage.gif>) et tu les modifies en mettant un chemin local. Ensuite, il faut que tu récupéreres les images pour les enregistrer sur ton disque. Là, j'ai un petit tuyau à te donner. Il y a ce code que j'ai sous windev 7.5 et 8 dans le httprequete, il faut mettre le chemin distant de 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
// 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://www.windev.com/img/decor/bloc-h-g.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

bon courage