Discussion :

[bern59]

Bonjour,

Je construis un programme qui m'affiche les images d'un répertoire à partir de la liste des fichiers affichés dans un FileListBox.
Quand je veux changer de réperoire, je reçois, par moments, un message : 'Unable to open file <nom du répertoire>...'.



Le compte d'items est faux, il garde le nombre du répertoire précédent.
Ce n'est pas bloquant mais gênant.

Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.BtnRepClick(Sender: TObject);
begin
  if SelectDirectoryDialog1.Execute() then
     begin
         nb:=0; //nombre d'item
         scr := SelectDirectoryDialog1.FileName;
         FileListBox1.Directory:=scr;
         FileListBox1.Refresh;
         nb := FileListBox1.Count;
         edit1.Text := inttostr(nb);
     end;
end;

Qui connaît ce problème ?

Merci.

[Jipété]

FileListBox1.Refresh;

Le refresh sert à rafraîchir l'affichage de l'objet, mais pas du tout son contenu !

J'ai testé ça, qui a l'air correct :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button2Click(Sender: TObject);
begin
  if sdd.Execute then begin
//    nb:=0; //nombre d'item // inutile
//     scr := SelectDirectoryDialog1.FileName; // inutile
    flb.Clear; // ! \\
    flb.Directory := sdd.FileName;
//     FileListBox1.Refresh; // inutile
//     nb := flb.Count; // inutile
    Caption := inttostr(flb.Count);
  end;
end;

[bern59]

Désolé,
J'ai testé, j'ai toujours le même problème.

[Jipété]

Désolé,
J'ai testé, j'ai toujours le même problème.

Alors sa source est ailleurs.

[mm_71]

S'il y a une espace dans le nom du répertoire Retouches Faites, ça pourrait venir de là.

[naute]

Bonjour .

Si il y-a un espace dans le nom du répertoire Retouches Faites ça pourrait venir de là.

Non, ce n'est pas ça. TFileListBox accepte les espaces dans les noms de dossier, du moins chez moi. Le problème est ailleurs.

Amicalement,
naute.

[mm_71]

Bonjour .



Non, ce n'est pas ça. TFileListBox accepte les espaces dans les noms de dossier, du moins chez moi. Le problème est ailleurs.

Amicalement,
naute.

Mais Windows ou Linux ? Sous Linux je n'ai pas le problème non plus mais d'anciennes versions de Windows ont du mal avec ça.

[jurassic pork]

hello,

Quand je veux changer de répertoire, je reçois, par moment, un message : 'Unable to open file <nom du répertoire>...'.

par moment --> C'est à dire ? de façon aléatoire ? toujours avec les mêmes répertoires ?
Ami calmant, J.P

[naute]

Mais Windows ou Linux ? Sous Linux je n'ai pas le problème non plus mais d'anciennes versions de Windows ont du mal avec ça.

Effectivement, je suis sous GNU-Linux, mais vu la capture d'écran, bern59 semble être sous Windows 10, qui n'est pas à proprement parler une ancienne version.

@ bern59
Au lieu du Refresh, tu peux essayer un UpdateFileList, pour voir.

Amicalement,
naute.

[mm_71]

mais vu la capture d'écran, bern59 semble être sous Windows 10, qui n'est pas à proprement parler une ancienne version.

Comme quoi il faut toujours préciser quel OS et quelle version quand on pose une question.
Pour faire echo à jurassic pork ça aiderait sans doute si bern59 notait tous les répertoires ou ça coince et en poste la liste complète.

Un truc aussi: "Unable to open file" dans le contexte ça devrait plutôt être "Unable to open directory". Message d'erreur mal rédigé à l'origine ou qui nous montre que lazarus veut trouver un fichier là ou il y-a un répertoire.

Et quiz des permissions de lecture des fichiers ? L'utilisateur courant à t-il le droit d'entrer dans le répertoire et d'y lire les fichiers ?

[naute]

Comme quoi il faut toujours préciser quel OS et quelle version quand on pose une question.
Pour faire echo à jurassic pork ça aiderait sans doute si bern59 notait tous les répertoires ou ça coince et en poste la liste complète.

C'est évident.

Et quiz des permissions de lecture des fichiers ? L'utilisateur courant à t-il le droit d'entrer dans le répertoire et d'y lire les fichiers ?

Bonne remarque! Cela dit, toujours d'après la capture d'écran, le chemin du dossier "C:\Users\bernw\..." semble indiquer que bern59 en est le propriétaire. Mais je ne sais pas comment sont gérées les permissions sous Windows 10.

[mm_71]

Cela dit, toujours d'après la capture d'écran, le chemin du dossier "C:\Users\bernw\..." semble indiquer que bern59 en est le propriétaire.

Pas forcément, passe ton répertoire $User en root et il ne changera pas de nom pour autant, de plus il suffit que ce soit le dernier répertoire de la chaîne qui n'aie pas les permissions nécessaires.

Mais je ne sais pas comment sont gérées les permissions sous Windows 10.

Moi non plus.

[mm_71]

Je viens de refaire un autre essai sous Linux Mint 18.3 et la listbox récupère bien les noms de fichiers dans /usr/bin qui a l'utilisateur root en écriture et le groupe root en lecture.
Le seul répertoire non listable est /root et l'erreur de lecture est renvoyée par selectdirectorydialog pas par filelistbox.

A moins que Lazarus ait vraiment un fonctionnement différent sous windows je ne vois aucune raison pour qu'un répertoire trouvé par selectdiretorydialog ne soit pas lisible avec filelistbox.

J'ai le sentiment que ce truc va tous nous faire tourner en bourrique.

[bern59]

Effectivement, je suis sous GNU-Linux, mais vu la capture d'écran, bern59 semble être sous Windows 10, qui n'est pas à proprement parler une ancienne version.
@ bern59
Au lieu du Refresh, tu peux essayer un UpdateFileList, pour voir.

Amicalement,
naute.

A tous je précise :
Que j'utilise Window 10,
Que le problème survient avec n'importe quel répertoire (espace ou non),
que UpdateFileList ne fonctionne pas.

Merci.

[jurassic pork]

hello,

Comme quoi il faut toujours préciser quel OS et quelle version quand on pose une question.

Bern59 Tu ne nous as toujours pas dit sous quelle version de Lazarus, tu travailles.
Et dans ton code on ne voit pas la déclaration des variables scr et nb ce qui voudrait dire qu'elles sont globales ?
Moi je n'ai pas de souci sous Windows 10 avec Lazarus 1.8.2 32 bits, que ce soit en utilisant en utilisant un TSelectDirectoryDialog pour choisir le répertoire ou un TDirectoryEdit.
voici le code pour le bouton qui appelle le TselectDirectoryDialog :

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
procedure TForm1.Bt_SelectDirClick(Sender: TObject);
Var
scr : String;
nb : integer;
begin
   if SelectDirectoryDialog1.Execute() then
     begin
         nb:=0; //nombre d'item
         scr := SelectDirectoryDialog1.FileName;
         FileListBox1.Directory:=scr;
         FileListBox1.UpdateFileList;
         nb := FileListBox1.Count;
         LabeledEdit1.Text := inttostr(nb);
     end;
end;

et le code pour le OnChange du TDirectoryEdit :

Code :

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

1
2
3
4
5
6
procedure TForm1.DirectoryEdit1Change(Sender: TObject);
begin
         FileListBox1.Directory:=DirectoryEdit1.Directory;
         FileListBox1.UpdateFileList;
         LabeledEdit1.Text := inttostr(FileListBox1.Count);
end;

et voici le résultat :


Ami calmant, J.P

[bern59]

Bonjour,
J'ai essayé le TDirectoryEdit, j'ai le même résultat.
Je me demande si le problème ne viendrait pas de la taille des fichiers.
Merci.

[mm_71]

Bonjour,
J'ai essayé le TDirectoryEdit, j'ai le même résultat.
Je me demande si le problème ne viendrait pas de la taille des fichiers.
Merci.

Tests à faire:

Créer un répertoire vide. Si il est lu y copier tous les fichiers du répertoire qui coince et voir ce que ça fait. Si ça coince supprimer progressivement les fichiers et réessayer le filelist à chaque fois. Si ça vient d'un fichier spécifique ça permettra de l'identifier.
Si aucun fichier ne coince ça vient du répertoire. Renommer le dernier répertoire de la chaîne pour voir.

[BeanzMaster]

Salut à tous,

Petit truc bête LazUTF8 et LazFileUtils sont-ils présents dans les Uses ?

Peux-tu nous fournir un exemple complet avec lequel on pourrait tester ?

Merci

Bonne journée

[bern59]

Salut à tous,

Petit truc bête LazUTF8 et LazFileUtils sont-ils présents dans les Uses ?

Peux-tu nous fournir un exemple complet avec lequel on pourrait tester ?

Merci

Bonne journée

Désolé, le problème persiste.
Ci-joint code (en cours de fignolage).

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  FileCtrl, StdCtrls, EditBtn, Buttons, LazUTF8,LazFileUtils;
 
type
 
  { TVisio }
 
  TVisio = class(TForm)
    BitBtn1: TBitBtn;
    Button1: TButton;
    DirectoryEdit1: TDirectoryEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    FileListBox1: TFileListBox;
    Image1: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DirectoryEdit1Change(Sender: TObject);
    procedure FileListBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Visio: TVisio;
  pos, nb : integer;
  nom : string;
implementation
 
{$R *.lfm}
 
{ TVisio }
 
procedure TVisio.FileListBox1Change(Sender: TObject);
begin
nom:=FileListBox1.Directory+'\'+FileListBox1.GetSelectedText;
image1.Picture.LoadFromFile(nom);
pos:=filelistbox1.ItemIndex;
nb := FileListBox1.Count;
edit1.Text := inttostr(filelistbox1.ItemIndex+1)+'/'+inttostr(nb);
end;
 
procedure TVisio.FormCreate(Sender: TObject);
begin
  pos:=-1;
  nb:=filelistbox1.Count;
  edit1.Text:=inttostr(nb);
end;
 
procedure TVisio.Button1Click(Sender: TObject);   // suivant
begin
  pos:=pos+1;
  if pos>nb-1 then pos:=0;
  filelistbox1.ItemIndex:=pos;
  nom:=FileListBox1.Directory+'\'+FileListBox1.Items[FileListBox1.ItemIndex];
  Image1.Picture.LoadFromFile(nom);
  edit1.Text := inttostr(filelistbox1.ItemIndex+1)+'/'+inttostr(nb);
  edit2.Text := inttostr(pos);
end;
 
procedure TVisio.DirectoryEdit1Change(Sender: TObject);
begin
  FileListBox1.Directory:=DirectoryEdit1.Directory;
  FileListBox1.UpdateFileList;
end;
 
procedure TVisio.BitBtn1Click(Sender: TObject);  // précédant
begin
  pos:=pos-1;
  if pos<0 then pos:=nb-1;
  filelistbox1.ItemIndex:=pos;
  nom:=FileListBox1.Directory+'\'+FileListBox1.Items[FileListBox1.ItemIndex];
  Image1.Picture.LoadFromFile(nom);
  edit1.Text := inttostr(filelistbox1.ItemIndex+1)+'/'+inttostr(nb);
end;
 
 
end.

[Jipété]

Désolé, le problème persiste.

Je persiste à dire que si tu as un problème d'ouverture de fichier, c'est plus lié au fichier qu'au code.

Ci-dessous une version améliorée, pour y voir clair j'ai viré le FormCreate qui ne sert à rien et les TEdit, tu les remettras :

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
procedure TVisio.proc_commune;
begin
  filelistbox1.ItemIndex:=pos;
  nom:=FileListBox1.Directory+'\'+FileListBox1.Items[pos];
  Image1.Picture.LoadFromFile(nom);
end;
 
procedure TVisio.DirectoryEdit1Change(Sender: TObject);
begin
  FileListBox1.Directory:=DirectoryEdit1.Directory;
//??  FileListBox1.UpdateFileList;  // sert à rien, fait automatiquement
  nb := FileListBox1.Count; // de FLB.Change, mieux ici
end;
 
procedure TVisio.FileListBox1Change(Sender: TObject);
begin
  nom:=FileListBox1.Directory+'\'+FileListBox1.GetSelectedText;
  image1.Picture.LoadFromFile(nom);
  pos:=filelistbox1.ItemIndex;
//  nb := FileListBox1.Count;  // stupide ici
end;
 
procedure TVisio.Button1Click(Sender: TObject);   // suivant
begin
  inc(pos);
  if pos>nb-1 then pos:=0;
  proc_commune;
end;
 
procedure TVisio.BitBtn1Click(Sender: TObject);  // précédent
begin
  dec(pos);
  if pos<0 then pos:=nb-1;
  proc_commune;
end;

sans oublier

Code :

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

1
2
3
4
  private
    { private declarations }
    procedure proc_commune;
  public

EDIT : et pour y voir bien clair, tu rajouteras un TEdit et dans le FLB.Change tu rajouteras EditX.Text := nom; comme ça tu verras parfaitement le nom du fichier sélectionné, à toi d'analyser ensuite ceux qui partent en erreur. /EDIT