Problème avec l'objet WB ou non.

Nombre de messages : 1594 Date d'inscription : 19/01/2014

Bonsoir.

@Klaus.

Ce post fait suite au problème avec RemoveStringBetweenDelimiters.

Je rencontre maintenant un petit problème avec l'objet WB.
Il arrive que les informations n'apparaissent pas dans l'objet memo !
Je ne comprends pas pourquoi !
Il semblerait que ce problème ne se produise pas lorsque le memo est créé une seule fois avant la boucle.

Merci de ton aide.

Code:: dim fic$, url1$, url2$, k%, res%

dll_on "kgf"

maximize 0

' Récupération du fichier html.
url1$="https://www.larousse.fr/dictionnaires/francais-anglais/chien"
fic$="chien.htm"
res%=dll_call2("DownloadFileUrlISO",adr(url1$),adr(fic$))
wait 200

url2$=url1$+"/"

for k%=1 to 10
   caption 0,str$(k%)+"/10."

   memo 1
   left 1,550:width 1,500:height 1,500
   bar_both 1
   font_size 1,12:font_bold 1:font_color 1,0,0,255

   res%=dll_call1("WBCreate",handle(0))
   res%=dll_call4("WBLocate",0,0,500,500)
   res%=dll_call1("WBUrl",adr(url2$))
   res%=dll_call1("WBCopyToMemo",handle(1))
   wait 500

   if k%<10 then res%=dll_call0("WBDelete"):delete 1
next k%

' message "ok"

Essaie comme ceci:

Code:: dim fic$, url1$, url2$, k%, res%

dll_on "kgf"

maximize 0

' Récupération du fichier html.
url1$="https://www.larousse.fr/dictionnaires/francais-anglais/chien"
fic$="chien.htm"
res%=dll_call2("DownloadFileUrlISO",adr(url1$),adr(fic$))
wait 200

url2$=url1$+"/"

for k%=1 to 10
caption 0,str$(k%)+"/10."

memo 1
left 1,550:width 1,500:height 1,500
bar_both 1
font_size 1,12:font_bold 1:font_color 1,0,0,255

res%=dll_call1("WBCreate",handle(0))
res%=dll_call4("WBLocate",0,0,500,500)
res%=dll_call1("WBUrl",adr(url2$))
' le délai ici sert à assurer que la page internet est bien chargée.
' Cela dépend entre autres éléments de la charge d'internet et de la charge du site ciblé.
' Cette durée peut
wait 1000
res%=dll_call1("WBCopyToMemo",handle(1))
' le délai ici sert à assurer la fon de l'affichage dans le mémo, pour qu'on ait le temps de le voir...
wait 1000

if k%<10 then res%=dll_call0("WBDelete"):delete 1
next k%

' message "ok"

end

C'était une smple question de délais - tu étais trop impatient...

Nombre de messages : 1594 Date d'inscription : 19/01/2014

@Klaus.

Je viens de remplacer le second wait 1000, par wait 2000, et le problème persiste à partir du second affichage !

@Pedro
Remplace WAIT par PAUSE et vois ce que ça donne.

Citation :: Je viens de remplacer le second wait 1000, par wait 2000, et le problème persiste à partir du second affichage !

Chez moi,, à chaque itération, il y a bien des données qui s'affichent, et elles sont identiques. Quel est vraiment le problème ?

D'ailleurs, je vous vraiment pas pourquoi tu supprimes et recrées le mémo à chaque itération. Ce serait sûrement mieux de le créer une fois pour toutes, au début du programme, puis faire un "CLEAR 1" après chaque chargement d'une URL, non ? Comme ça - et ça marche:

Code:: dim fic$, url1$, url2$, k%, res%

dll_on "kgf"

maximize 0

' Récupération du fichier html.
url1$="https://www.larousse.fr/dictionnaires/francais-anglais/chien"
fic$="chien.htm"
res%=dll_call2("DownloadFileUrlISO",adr(url1$),adr(fic$))
wait 200

url2$=url1$+"/"

memo 1
for k%=1 to 10
caption 0,str$(k%)+"/10."

' memo 1
left 1,550:width 1,500:height 1,500
bar_both 1
font_size 1,12:font_bold 1:font_color 1,0,0,255

res%=dll_call1("WBCreate",handle(0))
res%=dll_call4("WBLocate",0,0,500,500)
res%=dll_call1("WBUrl",adr(url2$))
clear 1
' le délai ici sert à assurer que la page internet est bien chargée.
' Cela dépend entre autres éléments de la charge d'internet et de la charge du site ciblé.
' Cette durée peut
wait 1000
res%=dll_call1("WBCopyToMemo",handle(1))
' le délai ici sert à assurer la fon de l'affichage dans le mémo, pour qu'on ait le temps de le voir...
wait 1000

if k%<10 then res%=dll_call0("WBDelete") : ' delete 1
next k%

' message "ok"

end

Nombre de messages : 1594 Date d'inscription : 19/01/2014

Bonjour.

Oui, effectivement Klaus, j'avais bien remarqué que le problème était résolu dans le cas où le memo était créé une seule fois avant la boucle.
Je vais donc procéder ainsi.

Merci.

» Problème avec select case Probleme réglé merci
» problème avec edit ou bien avec combo?
» Y-a-t'il un problème avec END?
» Problème avec GenerateMaskFragments.
» Problème avec SendStringAsText.