Discussion :

[hlmhv]

Bonjour à toutes et à tous!

Je tombe systématiquement sur un blocage du fichier compilé ET de Lazarus lorsque j'utilise un TOpenDialog du menu "Dialogs".
Lorsque je réalise en mode "débogage" un OpenDialog.Execute, la fenêtre habituelle de cet objet commence à s'ouvrir, puis stoppe, et Lazarus s'avère incapable de stopper la procédure en cours (je dois arrêter Lazarus via le gestionnaire de tâches. Il m'est arrivé aussi que celui-ci refuse mon ordre, voire se bloque).

Je précise que j'utilise un antivirus sérieux (Eset) et que j'ai vérifié la bécane: aucun virus détecté..


Pour tester au plus facile j'ai réalisé ce code ultra-banal:

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
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    OD: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    private
    public
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  Temp: String;
begin
  If OD.Execute Then Begin
    Temp:=OD.FileName;
    Edit1.Text:=Temp;
    Edit1.Repaint;
  end;
end;
 
end.

Vous avouerez qu'il n'y a guère plus basique..

Je propose ici une copie d'écran de ce qui se passe lorsque je clique sur le bouton "Button1":





J'utilise Windows 10 (22H2) & la dernière version de Lazarus (2.2.6, FPC 3.2.2) et ma foi ce genre d'erreur ne m'arrivais pas auparavant.

C'est énervant car je n'ose plus toucher à mes anciens codes utilisant un Opendialog..

PS: j'ai exactement la même erreur si j'utilise un TSaveDialog. : bogue dans la routine de fenêtrage qui doit être commune?

Merci à vous et bon dimanche!

[Jipété]

Salut,

j'ai utilisé ton code mais sans la dernière ligne de Button1Click, qui ne sert strictement à rien (à part mettre la pagaille ?)¹, et tout fonctionne très bien.

Mais je suis sous Linux,ça fait peut-être une différence ?

¹ : c'est peut-être sa présence qui fait tourner en boucle ? Pas testé.

[thierrybo]

Je suis en même version de Windows, j'ai la version
Lazarus 2.2.7 (rev lazarus_2_2_6-1-gada7a90f86) FPC 3.2.3 i386-win32-win32/win64
qui est la dernière version stable avec ses correctifs , installé avec fpcupdeluxe et je n'ai pas le problème avec exactement le même code. Soit c'est lié à un correctif, soit au debugger (essaye fpdebug si tu es sur GDB ou l'inverse).

[Guesset]

Bonjour,

Même si je ne pense pas que ce soit la cause du problème, dans la gestion de l'événement onclick du bouton :

• Temp ne sert à rien
• Le repaint non plus (ne faisant rien, le programme à tout le temps de traiter les rafraichissements que la modification de Edit1 entraîne.

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
   If OD.Execute Then Edit1.Text := OD.FileName;
end;

Il faudrait voir les propriétés de OD.

Salutations

[hlmhv]

Je suis en même version de Windows, j'ai la version
Lazarus 2.2.7 (rev lazarus_2_2_6-1-gada7a90f86) FPC 3.2.3 i386-win32-win32/win64
qui est la dernière version stable avec ses correctifs , installé avec fpcupdeluxe et je n'ai pas le problème avec exactement le même code. Soit c'est lié à un correctif, soit au debugger (essaye fpdebug si tu es sur GDB ou l'inverse).

Oufti!
Où diable as-tu trouvé cette dernière version?? Sur la page Lazarus/Download je ne puis que charger la 2.2.6 avec FPC 3.2.2, ou alors je dois changer de cerveau ou de lunettes.
Sinon je note tes infos..

[thierrybo]

C'est ici : https://jerome-delauney.developpez.c...s-fpcupdeluxe/

[hlmhv]

C'est ici : https://jerome-delauney.developpez.c...s-fpcupdeluxe/

Merci beaucoup pour FPCDeluxe, mais la version corrigée de Lazarus dont tu parles?

[hlmhv]

Salut,

j'ai utilisé ton code mais sans la dernière ligne de Button1Click, qui ne sert strictement à rien (à part mettre la pagaille ?)¹, et tout fonctionne très bien.

Mais je suis sous Linux,ça fait peut-être une différence ?

¹ : c'est peut-être sa présence qui fait tourner en boucle ? Pas testé.

Si tu parles du Repaint, je sais que théoriquement il est inutile, mais en pratique je remarque que si je ne le mets pas et que l'ordi est "chargé" Windows - car c'est bien ce sacripant que j'utilise - l'affichage se fait quand l'ordi a le temps..
Alors je pense bien que Linux, ce serait mieux. Et j'y penses..
De toute façon si je retire cette ligne c'est la même chose.

[thierrybo]

Dans le guide il faut suivfre "fixes", ca installera la branche des correctifs de la version stable. Attention omme indiqué dàns le guide ça installe une version complètement indépendante de celle déjà installée.

[hlmhv]

Ok merci! :-)