| Mai 2024 | | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
|---|
| | | 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 | 29 | 30 | 31 | | |  Calendrier |
|
| | | Problème avec l'objet WB ou non. |  |
| | | Auteur | Message |
|---|
Pedro
Nombre de messages : 1549
Date d'inscription : 19/01/2014
| | Sujet: Problème avec l'objet WB ou non. Mar 21 Juil 2020 - 20:16 | |
| 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"
| |
| | | | Klaus
Nombre de messages : 12276
Age : 74
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Problème avec l'objet WB ou non. Mar 21 Juil 2020 - 21:14 | |
| 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... | |
| | | | Pedro
Nombre de messages : 1549
Date d'inscription : 19/01/2014
| | Sujet: Problème avec l'objet WB ou non. Mar 21 Juil 2020 - 21:19 | |
| @Klaus.
Je viens de remplacer le second wait 1000, par wait 2000, et le problème persiste à partir du second affichage ! | |
| | | | papydall
Nombre de messages : 6998
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Problème avec l'objet WB ou non. Mar 21 Juil 2020 - 22:55 | |
| @Pedro
Remplace WAIT par PAUSE et vois ce que ça donne. | |
| | | | Klaus
Nombre de messages : 12276
Age : 74
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Problème avec l'objet WB ou non. Mar 21 Juil 2020 - 23:55 | |
| - 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 ? | |
| | | | Klaus
Nombre de messages : 12276
Age : 74
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Problème avec l'objet WB ou non. Mer 22 Juil 2020 - 0:03 | |
| 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
| |
| | | | Pedro
Nombre de messages : 1549
Date d'inscription : 19/01/2014
| | Sujet: Problème avec l'objet WB ou non. Mer 22 Juil 2020 - 14:16 | |
| 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. | |
| | | | Contenu sponsorisé
| | Sujet: Re: Problème avec l'objet WB ou non. | |
| |
| | | | | | Problème avec l'objet WB ou non. | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
