Problème avec la procédure Application.ProcessMessages

Bonjour,
Je sais que l'on en a parlé beaucoup de fois de cette procédure.
Mais je reviens dessus parce que je n'arrive pas à avancer.
Je suis sur Delphi 7.
Je désire récupérer les données d'une page web et pour attendre que la page finisse de se charger, je fais appel à cette fonction :

Code:

---

while Web.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages;

---

Ça marche très bien... Sauf que ça alloue énormément de mémoire (environ 40 Mo !) et ça à chaque fois que je charge une page !
Personne ne parle de ce problème. Est-ce parce que Delphi 7 est trop vieux et que je suis sur Windows 10 (du coup il gère différemment les messages ?)
Du coup, y a-t-il un autre moyen ?
Merci, Vincent

Bonjour,

je ne suis pas très calé dans le domaine des threads, surtout D7, mais je pense que c'est tout à fait le genre de piste à suivre.
https://delphi.developpez.com/cours/...langage-thread

Bonjour,
ce n'est pas un peu "dangereux" de faire un While qui peux boucler à l'infini si la page ne se charge pas ?

As tu contrôlé combien de fois tu appelles Application.ProcessMessages ?

A+
Charly

C'est vrai que ça manque un peu de délai tout ça, mais peut être que le code présenté est-il quelque peu "simplifié"

pendant que je reviens sur la discussion, je signale une superbe intervention, très pédagogique, de Olaf Monien lors des BootCamp CE 2018
qui peut se retrouver (gratuitement) sur Delphi Academy même si c'est bien sûr avec les nouvelles possibilités de Delphi le contenu reste très instructif sur le pourquoi des threads

Et pourquoi ne pas se servir d'un de ces deux évènements:

Code:

---

1 2 3

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);   procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);

---

?

En mettant le webbrowser.silent:=true

C'est encore plus rapide (sans garantie) si la page n'est pas visible (webbrowser.visible:=false): windows ne perdra pas de ressources à l'afficher

c'est une boucle qui va consommer 100% d'un CPU
Pour la mémoire, pense qu'un WebBrowser c'est un Internet Explorer embarqué, rien de surprenant que cela consomme 40Mo

Ajoute un simple sleep(0) qui va rendre ton thread moins gourmand et permettra une attente tranquille de l'autre thread

Il y a bien longtemps, j'avais écrit ceci WaitWebAssigned car j'avais eu des problèmes avec OnDocumentComplete et OnDownloadComplete, je m'assurais avec WaitWebAssigned que les évènements n'avait pas été un peu précoce

Excusez moi pour cette absence de réponse.
Je vous avoue que je n'ai pas été chercher plus loin.
Du coup, je teste la mémoire alloué à mon programme et lorsqu'elle dépasse un certain seuil, je le relance!
Je sais, c'est de la bidouille... Mais bon, ça fonctionne!
Merci pour vos réponses

Bonjour,

Je pense qu'il y a en plus un problème avec Windows 10.

En effet, si on exécute le code suivant :

Code:

---

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

var Form1: TForm1;     quit : boolean;     implementation   {$R *.dfm}   procedure TForm1.FormActivate(Sender: TObject); begin quit:=FALSE;   repeat application.ProcessMessages; until quit; Close; end;   procedure TForm1.Button1Click(Sender: TObject); begin quit:=true; end;

---

Cela fonctionne très bien tant qu'on ne sort de la fenêtre du programme.

Par contre, si on clique sur un autre programme (même sur delphi pour exécuter le pas à pas), la fenêtre ne reprend pas la main. (obligé de faire ctrl F2)
Le problème ne se pose pas si ce n'est pas windows 10.

Quelqu'un a-t-il une idée pour contourner le problème pour permettre à un programme d'attendre sans être bloquant.

Merci d'avance