Discussion :

[JP CASSOU]

Bjr à vous,

Je vous fais part d'un bug inacceptable de la LCL, s'agissant d'un fondamental censé être testé et validé.
Environnement:
Un Linux Mint 32 bit tout neuf et mis à jour

Lazarus 2.0.6 et fpc 3.0.4 tout frais
Window manager: xfce
Soit une fiche principale avec un menu Fichier -> Ouvrir.
L'item de menu est associé à un TAction nommé acOpen

Je crée un TOpenDialog d'ouverture de fichier, à la volée, tel que je le pratique depuis 15 ans

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 TRPIMainWnd.acOpenExecute(Sender: TObject);  
begin
 with TOpenDialog.Create(Application) do
  begin
    try
      InitialDir := ExtractFilePath(ParamStr(0)); // dossier de l'exécutable
      Filter := 'GHTopo XTB|*.xtb';
      if (Execute) then // <-- crash !!!
      begin
        // traitement
        ShowMessage(FileName);
      end;
    finally
      Release;
    end;
  end;    
end;

et j'obtiens un crash au droit du Execute, avec les messages suivants:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
The program 'GHTopoRPI' received an X Window System error.
This probably reflects a bug in the program.
The error was 'BadWindow (invalid Window parameter)'.
  (Details: serial 5414 error_code 3 request_code 12 minor_code 0)
  (Note to programmers: normally, X errors are reported asynchronously;
   that is, you will receive the error a while after causing it.
   To debug your program, run it with the --sync command line
   option to change this behavior. You can then get a meaningful
   backtrace from your debugger if you break on the gdk_x_error() function.)

ce qui est parfaitement inacceptable, s'agissant quand même d'un fondamental !!!

La seule parade est de lancer l'application avec le paramètre --sync

Comment peut-on accepter de tels dysfonctionnements entraînant crises de nerfs, pertes de temps ???

[Jipété]

Bonsoir,

Je ne sais pas si ça va te rassurer/faire plaisir, mais avec ma vieille 1.4.0 / fpc 2.6.2 sous Linux Debian 7.0 / 32bits et Lxde, ça fonctionne : me suis contenté à la va-vite de rajouter un bouton sur un projet en cours d'étude et d'y coller ton code avec une microscopique modif au niveau du filtre :

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
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TOpenDialog.Create(Application) do
   begin
     try
       InitialDir := ExtractFilePath(ParamStr(0)); // dossier de l'exécutable
       Filter := 'Fichier jpeg|*.jpg';
       if (Execute) then // <-- crash !!!
       begin
         // traitement
         ShowMessage(FileName);
       end;
     finally
       Release;
     end;
   end;
end;

Enfin, je croyais que ça fonctionnait… En fait, que je clique sur le ShowMessage ou que j'annule la boîte de dialogue, dans les deux cas ça tue la fenêtre du prog mais celui-ci continue à tourner en arrière-plan !

Bref :

Code :

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

1
2
3
4
     finally
//       Release; l'IHM disparaît mais le prog continue à tourner en mémoire
       Free; // pb ci-dessus réglé avec Free
     end;

[JP CASSOU]

Bonsoir,


Enfin, je croyais que ça fonctionnait… En fait, que je clique sur le ShowMessage ou que j'annule la boîte de dialogue, dans les deux cas ça tue la fenêtre du prog mais celui-ci continue à tourner en arrière-plan !

J'ai bêtement copié/coller un exemple de Delphi 7 pour l'illustration.
D'habitude, je passe par une variable pour éviter un conflit de noms avec le with (.Free / .Release du TOpenDialog ou de TForm1), et j'utilise quasi systématiquement FreeAndNil() pour libérer.
De plus, le crash ne survient qu'aléatoirement (aucun pb avec d'autres forms créées avec le même patron ...) et pas du tout avec un autre PC ... sous la même version de Linux Mint

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  TD: TOpenDialog;
begin
  TD := TOpenDialog.Create(Application) ;
     try
       TD.InitialDir := ExtractFilePath(ParamStr(0)); // dossier de l'exécutable
       TD.Filter := 'Fichier jpeg|*.jpg';
       if (TD.Execute) then // <-- crash !!!
       begin
         // traitement
         ShowMessage(TD.FileName);
       end;
     finally
       FreeAndNil(TD);
     end;
   end;
end;

Vu que çà fonctionne en spécifiant --sync dans les paramètres de lancement ou en argv[0], mets provisoirement en RESOLU

[Jipété]

D'habitude, je passe par une variable pour éviter un conflit de noms avec le with (.Free / .Release du TOpenDialog ou de TForm1)

Tiens tiens tiens...
Comme si ce que j'ai observé (disparition de la form mais sans clôture du programme) se produisait avec le Release, genre Form1.Release alors que le Free dans le même contexte s'appliquerait au TOpenDialog ?
Un truc de malade psychopathe, non ?

De plus, le crash ne survient qu'aléatoirement (aucun pb avec d'autres forms créées avec le même patron ...) et pas du tout avec un autre PC ... sous la même version de Linux Mint

avec un autre PC où tu fais tourner juste le binaire ou tout le bazar laz/fpc ?

EDIT
Et comme tout ça me turlupinait, j'ai fait l'essai 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
procedure TForm1.Button1Click(Sender: TObject);
var
  TD: TOpenDialog;
begin
  TD := TOpenDialog.Create(Application);
  with TD do
    try
      InitialDir := ExtractFilePath(ParamStr(0)); // dossier de l'exécutable
      Filter := 'Fichier jpeg|*.jpg';
      if (Execute) then // <-- crash !!!
      begin
        // traitement
        ShowMessage(FileName);
      end;
    finally
      Release;
    end;
end;

avec le même résultat : l'IHM disparaît mais le prog tourne, simplement en cliquant sur Annuler du TD.
Alors, pour en avoir le cœur net, j'ai fait ça :

Code :

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

1
2
3
    finally
      TD.Release;
    end;

et là, bingo !

unit1.pas(62,7) Error: identifier idents no member "Release"

en me soulignant Release, hé hé hé !

Conclusion : c'était bien ça : le with masquait silencieusement le fait que le Release va s'appliquer à la form, puisque le TOpenDialog ne le propose pas.

[BeanzMaster]

Salut question bête mais pourquoi faire :

TD := TOpenDialog.Create(Application); ?


et non pas TD := TOpenDialog.Create(Self);

Vu que tu dois rajouter --Sync à mon avis le problème vient de là (les processus sont executés dans 2 threads différents, je pense )
De plus le propriétaire de ta boite de dialogue c'est ta fenêtre et non pas TApplication

A+

[JP CASSOU]

Salut question bête mais pourquoi faire :

TD := TOpenDialog.Create(Application); ?


et non pas TD := TOpenDialog.Create(Self);Vu que tu dois rajouter --Sync à mon avis le problème vient de là (les processus sont executés dans 2 threads différents, je pense )
De plus le propriétaire de ta boite de dialogue c'est ta fenêtre et non pas TApplication

A+

Bjr,

1. Le problème est identique quelque soit le demandeur (Application, self ou nil)
2. Il n'est pas systématique
3. Beaucoup de fenêtres de mon application sont wrappées dans des fonctions de la forme:

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
 
// affichage de la distance entre deux stations
function DispDistanceEntreStations(const FD: TToporobotStructure2012;
                                   const FE: TBDDEntites;
                                   var   S1, S2: TBaseStation;
                                   const DescriptionAction: string;
                                   const CaptionAdditionalAction: string): integer;
var
  TD: TdlgDistanceBetweenTwoStations; // descendant de TForm créé dynamiquement
begin
  result := 0;
  TD := TdlgDistanceBetweenTwoStations.Create(Application);
  try
    if (TD.Initialiser(FD, FE, S1, S2, DescriptionAction, CaptionAdditionalAction)) then
    begin
      TD.ShowModal;
      if (TD.ModalResult = mrOK) then
      begin
        Result += 1;
        S1 := TD.GetStation1();
        S2 := TD.GetStation2();
        if (TD.DoAllowAdditionalAction()) then Result += 1;
      end;
    end;
  finally
    TD.Release;
  end;
end;

[Jipété]

3. Beaucoup de fenêtres de mon application sont wrappées dans des fonctions de la forme:

Code :

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

1
2
3
4
5
6
7
8
9
10
// affichage de la distance entre deux stations
function DispDistanceEntreStations(const FD: TToporobotStructure2012;
                                   const FE: TBDDEntites;
                                   var   S1, S2: TBaseStation;
                                   const DescriptionAction: string;
                                   const CaptionAdditionalAction: string): integer;
var
  TD: TdlgDistanceBetweenTwoStations; // descendant de TForm créé dynamiquement
...

Et donc ce n'est plus un TOpenDialog et donc TD.Release; fonctionnera ici.

[BeanzMaster]

Salut

Bjr,

1. Le problème est identique quelque soit le demandeur (Application, self ou nil)

Bizarre ce truc tu as marqué le sujet comme résolu. Qu'as tu fais pour corriger le problème ?

2. Il n'est pas systématique

Quoi ? le problème ?

3. Beaucoup de fenêtres de mon application sont wrappées dans des fonctions de la forme:

Pourquoi utilises tu Release au lieu de FreeAndNil pour libérer tes fenêtre ?
Release laisse finir la fenêtre de traiter les messages, et FreeAndNil détruit la fenêtre de suite, ne serait pas une cause de problème avec TOpenDialog ?

A+

[BeanzMaster]

Je viens de regarder ton "wrapper" et j'ai vu que tu utilises Showmodal utiliser Release n'est pas très recommandé dans le cas d'une fenêtre "modal" qui attend un résultat comme c'est le cas ici. Pour une fenêtre "non-modal" Release (c'est l'utilisateur qui ferme la fenêtre) c'est plus sûre, mais si tu contrôle bien ton code "FreeAndNil" suffit. Sinon il faut passer par l'évènement "FormClose" avec l'utilisation de "CloseAction"

[Jipété]

Salut, J.,

Release laisse finir la fenêtre de traiter les messages, et FreeAndNil détruit la fenêtre de suite, ne serait pas une cause de problème avec TOpenDialog ?

Non, puisque dans le post d'origine de cette discussion,

le with masquait silencieusement le fait que Release va s'appliquer à la form, puisque le TOpenDialog ne le propose pas.

Une adaptation discrète qui met une joyeuse pagaille…

[BeanzMaster]

Hello J.,

Salut, J.,


Non, puisque dans le post d'origine de cette discussion,
Une adaptation discrète qui met une joyeuse pagaille…

Je parlais du code de cette fonction function DispDistanceEntreStations et non de la précédente avec "OpenDialog", d'ailleurs, c'est pour cela que je n'aime pas trop utiliser le With TObject do dans des cas comme celui-ci