Discussion :

[Wilco]

Bonjour à tous,

J'ai développé en Delphi7 une application qui diffuse des pages HTML (stockées sur un serveur local)

Cette appli n'utilise qu'un TWebBrowser et un Timer qui, toutes les 15 secondes charge une nouvelle page HTML.

Tout cela semble fonctionner correctement sauf qu'après quelques heures les PC plantent. Pas de messages d'erreurs, mais écran figé, plus de clavier ni sours. Le phénomène se produit sur tous les postes (12 au total) et en moyenne après 6 ou 7 h de fonctionnement.

Je pense à un problème de mémoire, je l'ai donc augmentée en la passant à 256 Mo (contre 64 auparavant). Le problème persiste.

Le code est extrèmement simple. Un tableau var_HTMLFile[1..10] contient les noms des 10 fichiers HTML à afficher. Un timer qui se déclenche toutes les 15 secondes permet de changer la page HTML à afficher à l'aide de la commande Navigate (web étant le composant TWebBrowser).

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TMAIN.TimerSEQTimer(Sender: TObject);
begin
inc(var_SEQ_Number);
If (var_SEQ_Number > 10)
    then var_SEQ_Number := 1,
 
web.Navigate(Server_Path + '\' + var_HTMLFile[var_SEQ_Number]);
end;

Si quelqu'un a une idée, je suis preneur.

Merci d'avance pour vos réponses,
Wilco

[Droïde Système7]

Bonjour,

As-tu vérifié à l'aide du vumètre ressources de Windows 95 (oupsss s'il existe sur w95) de temps en temps ; ce qui serait très révélateur.

@+

[CapJack]

Ça vient peut-être de la mémoire utilisée par l'historique.

J'ai trouvé un vieux fil : http://www.developpez.net/forums/showthread.php?t=1113

Mettre la propriété Silent à true résoudrait le problème ?

[ShaiLeTroll]

J'ai eu aussi des programmes utilisant massivement le TWebBrowser en fonctionnement nocturne, j'ai souvent aussi des blocages au bout d'un certains temps (fréquence parfois pire que la tienne, entre 1 par minute à 1 page seconde selon le code analysé), ... et comme c'était des traitements qui devait tourné sans interaction humaine (j'aurais du utilisé un composant HTTP non graphique, mais c'était un truc tout pourri ...), et j'avais Silent à True, ce qui ne suffit pas parfois, j'ai été obligé d'avoir un Timer qui tue les fenêtres (ShowMessage) venant de IE, ...

Je n'ai jamais cherché mais je pense que le TWebBrowser doit laisser trainer des Interfaces liés à son Body et qu'au fil du temps, cela sature la mémoire, d'ailleurs les erreurs de pagination se compte en dizaine de millions au bout de quelques heures avec ce composant ... mais le code de mon programme étant une vraie pourriture (bon c'était juste un bot qui jouait à planetium la nuit à ma place, un jeu tout aussi nul mais tellement jouissif pour les failles de sécurité que je me faisais une joie de publier sur le forum des admins, ce qui ne changait vu qu'ils ne maintenant pas le jeu) ...

tu devrais voir si en créant/détruisant le TWebBrowser, à chaque page (pourquoi pas un système d'onglet dynamique un pour chaque item du tableau) et avant de faire le Navigate tu fais

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
procedure TMAIN.TimerSEQTimer(Sender: TObject);
begin
...
 web := var_HTMLBrowser[var_SEQ_Number];
 if Assigned(web) then
   web.Free();
 
  web := TWebBrowser.Create(nil); // à toi de gérer la libération à la fermeture
   web := TWebBrowser.Create(nil);
   var_HTMLPage[var_SEQ_Number].InsertControl(NewNet); // Parent, un TabSheet, à ton de gérer tes tableaux ou faire un tableau de strucutre ...
 
   web .OnDocumentComplete := WebBrowserDocumentComplete;
   web .Navigate2(Url, Flags, TargetFrameName, PostData, Headers);
   var_HTMLBrowser[var_SEQ_Number] := web ;
   PageControl.ActivePage := var_HTMLPage[var_SEQ_Number];
 
   web.Navigate(Server_Path + '\' + var_HTMLFile[var_SEQ_Number]);
end;