Discussion :

[vibine]

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 :

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

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

[SergioMaster]

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

[Charly910]

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

[SergioMaster]

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

[sgmsg]

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

Code :

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

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

[ShaiLeTroll]

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

[vibine]

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

[Bicop]

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 :

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
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