Discussion :

[Papy214]

Bonjour,

Suite au visionnage du webinaire de PP, je cherche une solution pour avoir la liste de toute mes TForm même celles qui ne sont pas auto-créées au démarrage du programme.
Apparemment ça n'est pas aussi simple qu'il y parait.

Une idée de solution ?

[pprem]

Screen.Forms contient toutes les instances de fiches en cours, pas seulement celles qui sont autogérées par le projet.

Les autres fiches n'existent pas tant qu'elles ne font pas l'objet d'une instanciation puisque ce ne sont que des classes. La RTTI devrait y donner accès.

[Papy214]

Je viens de tester avec une tform principale et une secondaire.
Si les 2 sont auto-créées après le Application.Initialize, elles font parties de Screen.Forms.
Celles qui ne sont pas créées au démarrage, elles sont absentes.

J'ai aussi essayer les RTTI mais c'est pareil.

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
uses TypInfo, RTTI;
 
procedure ListAllFormClasses(Target: TStrings);
var
  aClass: TClass;
  context: TRttiContext;
  types: TArray<TRttiType>;
  aType: TRttiType;
begin
  context := TRttiContext.Create;
  types := context.GetTypes;
  for aType in types do
  begin
    if aType.TypeKind = tkClass then
    begin
      aClass := aType.AsInstance.MetaclassType;
      if (aClass <> TForm) and aClass.InheritsFrom(TForm) then
      begin
        Target.Add(aClass.ClassName);
      end;
    end;
  end;
end;
 
procedure TForm7.Button1Click(Sender: TObject);
var
  F: TCustomForm;
  I, J: Integer;
begin
 
  ListAllFormClasses(Memo1.Lines);
 
  for I := 0 to Pred(Screen.CustomFormCount) do
  begin
    F := Screen.CustomForms[I];
    ShowMessage(F.Name);
  end;
end;

Avec

Code :

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

1
2
3
4
5
6
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
 
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.Run;

J'ai bien les 2.

Si j'enlève la ligne de Form8, je ne l'ai plus au démarrage.

Précision: Delphi XE7

[ShaiLeTroll]

Screen.Forms, cela compte les instances, pas le nombre de classe
Ne pas oublier aussi que le compilateur élimine les types non utilisés

[Papy214]

En tous cas, si je fais

Code :

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

1
2
3
 
RegisterClass(TForm8);
ListAllFormClasses(Memo1.Lines);

Là, j'ai bien mes 2 classes affichées.
Mais Screen.Forms ne contient que celle auto-créée

[Papy214]

Pour être plus précis, je cherche un moyen d'obtenir dans un fichier texte la liste de touts les TForm, TFrame de mon application, et pour chacun tous les composants qui s'y trouvent.
Un peu comme ce que fait DKLang, sauf que j'imagine que lui doit fouiller quelque part dans les ressources

[Paul TOTH]

Pour être plus précis, je cherche un moyen d'obtenir dans un fichier texte la liste de touts les TForm, TFrame de mon application, et pour chacun tous les composants qui s'y trouvent.
Un peu comme ce que fait DKLang, sauf que j'imagine que lui doit fouiller quelque part dans les ressources

"de ton application" mais à partir de quoi ? du code compilé, des sources ?

à priori tu as un DFM pour chaque fiche et chaque frame...tu peux donc prendre la liste des ressources par exemple...comme dans ce très vieux code

[Papy214]

Je travaille sur une application qui contient beaucoup de TForm contenant chacune des dizaines et des dizaines de composants.
Il faudrait que je puisse avoir la liste complète de toutes ces TForm et pour chacun les composants avec leur type (en filtrant sur les composants de données).
Je pourrais fouiller chaque DFM mais mes premiers essais rapides pour faire ça n'ont pas été trop réussis.
C'est pour ça que je pensais passer plutôt par du code dans le programme lui-même pour récupérer ça dans l'application.

[ShaiLeTroll]

En tous cas, si je fais

Code :

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

1
2
3
 
RegisterClass(TForm8);
ListAllFormClasses(Memo1.Lines);

Là, j'ai bien mes 2 classes affichées.
Mais Screen.Forms ne contient que celle auto-créée

Oui puis que le type est utilisé donc pas éliminé
La solution de Paul sur l'exploration des ressources, est une l'une des possibilités
J'ai pas utilisé une seule fois la même technique pour l'équivalent d'un translator :
- héritage de TForm, interface implémentation, composition de composant externe depuis un Exe, au final, globalement un bouton ou MainMenu permettait d'accéder à l'éditeur de langue depuis la fenêtre
- gnuGetText/POEdit, MultiLizer, ... depuis les DFM, permet de traduire d'un seul coup et fournir des fichiers Excel aux traducteurs


Screen.Forms ne contient que les instances, toujours cette confusion entre l'instance et la classe
Le CreateFom, j'ai n'en ai toujours qu'un seul, pour le MainForm, tout le reste est crée à la volée et surtout la variable globale, par défaut, supprimée

[Papy214]

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
procedure TForm7.Button1Click(Sender: TObject);
var
  F: TCustomForm;
  I, J: Integer;
  P: TPersistentClass;
begin
  RegisterClass(TForm7);
  RegisterClass(TForm8);
 
  ListAllFormClasses(Memo1.Lines);
 
  for I := 0 to Pred(Memo1.Lines.Count) do
  begin
    P := GetClass(Memo1.Lines[I]);
 
    if Assigned(P) then
    begin
      Application.CreateForm(TComponentClass(P), F);
 
      for J := 0 to Pred(F.ControlCount) do
        ShowMessage(F.Controls[J].ClassName);
    end;
  end;
end;

ça fonctionne ça, mais ça m'oblige à un RegisterClass "manuel" de chaque TForm

Je pensais juste pourvoir obtenir la liste des classes facilement et surtout ne pas être obligé d'ajouter chaque unité à mes uses.

[ShaiLeTroll]

C'est illogique cette histoire
Soit c'est du code utile soit cela ne l'est pas !
N'est-ce pas l'occasion de nettoyer le source des codes inutilisés ?

[Papy214]

Je n'ai pas dû être clair :-(
Faudrait limiter les anesthésies générales dans une vie

Cette application contient beaucoup de TForm mais seules 3 sont créées avant le Application.run.
Les autres sont créées à la volée quand c'est nécessaire.
Mon but n'est pas de lister les instances des TForm actuellement créées à un instant T mais une fois l'application démarrée, d'obtenir une cartographie complète de toutes les TForm et leurs composants.
Je suis d'accord que ça correspond à prendre chaque DFM dans un éditeur de texte et à les parser pour en extraire les éléments qui les composent.
Je cherche juste à faire un truc du style

Clic sur un bouton
Obtenir toutes les classes qui héritent de TForm que je pourrais créer si j'en avais besoin
En créer une instance avec Application.CreateForm
Lister les composants qui s'y trouvent
Passer au suivant.

Ce n'est pas pour le fonctionnement de l'application en elle-même, c'est juste pour sortir une liste des trop nombreux éléments présents et qui font que cette application est devenue impossible à gérer
Montrer les différents écrans au client serait trop fastidieux et ils ne comprendrait pas forcément la problématique.
Mais si je leur sors un listing, il verra mieux les implications de ce qu'il compte nous demander au niveau évolutions et nettoyage de code.

[ShaiLeTroll]

Je confirme que cela fonctionne parfaitement

Code :

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

1
2
3
4
5
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TOffice365MailMainForm, Office365MailMainForm);
  Application.Run;

le résultat dans le Memo

Code :

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

1
2
3
4
TOffice365MailClassesPreASTForm
Tfrm_OAuthWebForm
TOffice365MailClassesTestingForm
TOffice365MailMainForm

C'est votre projet de Test qui ne doit pas être correct, problème de dépendance

Et toutes vos TForm peuvent être instanciés sans problème de façon machinale hors d'un contexte d'utilisation cohérent ?
pas de DataModule, pas de lien entre des objets ?


Vous devriez plutôt partir sur un chargement des DFM en Resources, cela évitera les codes dans le constructor, dans le gestionnaire de OnCreate, ...

[Papy214]

Avec le code qui utilise les RTTI ?

[ShaiLeTroll]

Oui, pour ma part c'est la construction de votre projet qui rend les classes non utilisés donc non compilés donc exclu du RTTI

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
 
procedure TOffice365MailMainForm.Button1Click(Sender: TObject);
 
  procedure ListAllFormClasses(Target: TStrings);
  var
    aClass: TClass;
    context: TRttiContext;
    types: TArray<TRttiType>;
    aType: TRttiType;
  begin
    context := TRttiContext.Create;
    types := context.GetTypes;
    for aType in types do
    begin
      if aType.TypeKind = tkClass then
      begin
        aClass := aType.AsInstance.MetaclassType;
        if (aClass <> TForm) and aClass.InheritsFrom(TForm) then
        begin
          Target.Add(aClass.ClassName);
        end;
      end;
    end;
  end;
 
 
begin
  ListAllFormClasses(Memo1.Lines);
end;

[Papy214]

Alors là je pige pas. :-(

J'ai mis le code du projet ici.

[ShaiLeTroll]

Ce code d'essai n'a aucun intérêt, tout est bidon, cela n'est pas représentatif de votre projet.

Vous oubliez la notion de dépendance entre les unités qui provoque leur liaison, si TForm8 n'est pas utilisé, c'est éliminé par le lieur.
Ajouter le listing (juste le listing, pas l'instanciation et le ControlCount) dans votre MainForm de votre projet
Déjà, cela sera plus intéressant, vous verrez si il manque des classes, si elle manque, c'est parce qu'elles ne sont pas utilisés dans le projet, code mort, malgré tout ce que vous pourriez penser

[Papy214]

évidemment :-(
Si je rajoute

Code :

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

1
2
3
4
5
6
7
8
procedure TForm7.Button2Click(Sender: TObject);
begin
  with TForm8.Create(nil) do
  begin
    ShowModal;
    Free;
  end;
end;

ça me donne bien ce qui est utilisé réellement.
Je pensais que ne pas utiliser l'optimisation dans les options du projet pouvait contourner ce problème.

Mais finalement, ça va aussi me servir pour savoir quelles TForm ne sont pas utilisées.

Merci de m'avoir mis le nez dans ce que je n'avais pas vu

[Papy214]

Comme ça, c'est impec' !

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
procedure ListAllFormClasses(Target: TStrings);
var
  aClass: TClass;
  context: TRttiContext;
  types: TArray<TRttiType>;
  aType: TRttiType;
 
  F: TCustomForm;
  I: Integer;
begin
  context := TRttiContext.Create;
  types := context.GetTypes;
  for aType in types do
  begin
    if aType.TypeKind = tkClass then
    begin
      aClass := aType.AsInstance.MetaclassType;
      if (aClass <> TForm) and aClass.InheritsFrom(TForm) then
      begin
        Target.Add(aClass.ClassName);
 
        Application.CreateForm(TComponentClass(aClass), F);
 
        for I := 0 to F.ComponentCount - 1 do
          Target.Append(#9 + F.Components[I].Name);
 
      end;
    end;
  end;
end;

[Paul TOTH]

personnellement je ne tenterais pas d'instancier chaque fiche, cela déclenche les traitements OnCreate etc...qui potentiellement peuvent avoir un comportement non voulu....

partir des ressources DFM en les lisant me parait une meilleure approche

http://lookinside.free.fr/delphi.php?Delphi+et+les+DFM