Discussion :

[SkYsO]

Bonjour à tous.

Je suis en train de faire des tests de performance et voici un cas très simple :

une form avec un panel (P_Fond).
Derriere un bouton je vais créer 1000 frames et les affecter à une TObjectList.
Ensuite avec un autre bouton je vais les rendre visible.

Et là, deux méthode : avec le panel toujours visible : ce qui me donne une erreur de type : EOsError code 14 mémoire insuffisante...

Soit en cachant le panel et en affichant qu'a la fin :
Erreur 1400 Handle de fenêtre non valide.

Avez vous une idée ? car là même après mes recherches de ce matin sur le forum, rien ne fonctionne ;(

mon code avec la version panel invisible:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
 
//bouton de création 
procedure TForm1.Button1Click(Sender: TObject);
var
  Frame : TFrame2;
  i : integer;
begin
  P_Fond.Visible := false;
  OL_Conteneur := TObjectList.create;
  i := 0;
  repeat
    Frame := TFrame2.create(P_Fond);
    Frame.Parent := P_Fond;
    Frame.Align := AlNone;
    Frame.Visible := false;
    Frame.Name := 'F' + IntToStr(i);
    OL_Conteneur.Add(Frame);
    Label1.Caption := IntToStr(i) + ' frames créées';
    Application.processMessages;
    i := i + 1
  until i = 999;
  P_Fond.Visible := true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  FreeAndNil(OL_Conteneur);
end;
 
//affichage
procedure TForm1.Button3Click(Sender: TObject);
var
  i : integer;
begin
  try
  i := 0;
  P_Fond.Visible := false;
  repeat
    TFrame2(OL_Conteneur.Items[i]).Align := AlTop;
    TFrame2(OL_Conteneur.Items[i]).Visible := true;
 
    Label1.Caption := IntToStr(i) + ' frames affichées';
    Application.processMessages;
    i := i + 1
  until i = 999;
  P_Fond.visible := true;
  except
    On E : Exception do
      showmessage(E.Message  + ' ' + IntToStr(i));
  end;
end;

et l'erreur

Code :

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

1
2
3
4
5
6
7
8
---------------------------
Notification d'une exception du débogueur
---------------------------
Le projet Project2.exe a provoqué une classe d'exception EOSError avec le message 'Erreur système.  Code : 1400.
Handle de fenêtre non valide'.  Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.
---------------------------
OK   Aide   
---------------------------

[sjrd]

Ben y'a pas 36 explications à mon avis :1000 frames, c'est trop, c'est tout. Un ordi, ça n'a pas une mémoire (vive) infinie. Et les handle, ça fait aussi partie de la mémoire.
Donc quand il ne sait plus en allouer, il te renvoie sans doute 0, ce qui donne un handle invalide évidemment.

[SkYsO]

Salut, merci de ta réponse

Je ne pense pas que que cela vienne du fait que 1000 frames c'est trop pour la mémoire de mon pc car je dispose d' 1 go de ram et quand je regarde la monté en charge de mon processus et bien ça dépasse même pas les 65 Mo.

[Linkin]

Mais il y a un nombre de handles limité...

[Rayek]

Remplace le Application.ProcessMessages par

Code :

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

1
2
3
4
5
6
7
8
9
 
StartTime := GetTickCount();
Delay := 0;
while Delay < 1000 do
begin
   Sleep(1);
   PumpMessages();
   Delay := GetTickCount() - StartTime;
end;

J'ai vu ca sur un site où il explique que le problème vient plus de Application.ProcessMessages que de la création du frame.

Bien sûr c'est à tester, mais bon 1000 frames, je trouve que ca fait quand même un peu beaucoup.

[e-ric]

Sans compter les composants placés sur les Frames...

Cdlt

[ShaiLeTroll]

Aucun programme ne créé 1000 fenêtres, cela semble abhérant, ... à quoi pourrait bien servir un tel programme qu'aucun humain ne pourrait utiliser...

sinon, l'erreur 1400 est souvent provoqué par une manipulation d'une même form entre thread, ou la manipulation en direct du handle de la fenêtre hors dans certains cas, et que le handle aie changé entre son stockage et son utilisation
Pour les Frames Delphi sollicite un nouveau handle, par exemple, lors du changement de parent ...

Ensuite la OL_Conteneur ne sert à rien puisqu'il y a P_Fond.Components qui contient déjà la liste des fenêtres, il suffit de faire "P_Fond.Components[I] is TFrame2"

Enfin, l'utilisation de frame, fut un débat ici et là

EDIT : l'Application.ProcessMessages ne sert à rien sauf pour actualiser le Label ...

[SkYsO]

Aucun programme ne créé 1000 fenêtres, cela semble abhérant, ... à quoi pourrait bien servir un tel programme qu'aucun humain ne pourrait utiliser...

sinon, l'erreur 1400 est souvent provoqué par une manipulation d'une même form entre thread, ou la manipulation en direct du handle de la fenêtre hors dans certains cas, et que le handle aie changé entre son stockage et son utilisation
Pour les Frames Delphi sollicite un nouveau handle, par exemple, lors du changement de parent ...

Ensuite la OL_Conteneur ne sert à rien puisqu'il y a P_Fond.Components qui contient déjà la liste des fenêtres, il suffit de faire "P_Fond.Components[I] is TFrame2"

Enfin, l'utilisation de frame, fut un débat ici et là

EDIT : l'Application.ProcessMessages ne sert à rien sauf pour actualiser le Label ...

Merci pour vos réponses,

Cependant 1000 frames et 1000 fenêtres c'est pas tout à fait la même chose... on parle d'afficher un ensemble de composants regroupés dans un cadre pas d'ouvrir 1000 fenêtres...

Ensuite je tiens à préciser que c'est un test. Ma véritable application plante au bout de 200 frames qui sont répartie dans des Tabsheets pour la création de formulaire. Dans mon cas, les frames ne sont pas détruites au fur et à mesure pour accélerer l'affichage si on retourne dessus (c'est peut être mon erreur donc, il faudrait les détruire)

Pour la OL_Conteneur, elle ne sert à rien pour notre soucis mais elle figure dans cet exemple pour un autre but. On peut en faire abstraction.

Le processMessages sert effectivement à rafraichir le label. Si je l'enlève j'aurais le même problème.

Pour conclure : est ce que le problème vient bien du nombre de Handle qui est limité ? ce nombre n'a rien à voir avec la taille de la mémoire ?
D'autres suggestions ?