Actualisation d'une FileListBox

Version imprimable

Voir 40 message(s) de cette discussion en une page

12/06/2018, 11h18
tourlourou

Que donne une boucle FindFirst/FindNext sur les fichiers du répertoire ?
12/06/2018, 13h10
Jipété

1 pièce(s) jointe(s)

Salut, Y. !

Citation:

Envoyé par tourlourou

Que donne une boucle FindFirst/FindNext sur les fichiers du répertoire ?

Oh lala, tu vas nous l'embrouiller, là, :mouarf:

Et sinon, en regardant attentivement le message d'erreur, on constate que le nom de fichier est vide :
Pièce jointe 388084

Pourquoi ? That's the good question, :P
D'où mon idée, d'ailleurs, de rajouter un TEdit pour faire un suivi visuel du nom du fichier sélectionné dans le FLB.

4 pièce(s) jointe(s)

Salut
bon ton exemple marche très bien, j'ai pu reproduire le bug. C'est très aléatoires et le j'ai eu le même genre de message que toi

par exemple j'ouvre le dossier :

Pièce jointe 388156
qui est en fait le dossier :
Pièce jointe 388159

j'ouvre un autre dossier

Pièce jointe 388160

c'est assez déconcertant comme bug

J'ai donc cherché ce message "unable to open file" il est présent dans :

LazUTF8Classes :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 constructor TFileStreamUTF8.Create(const AFileName: string; Mode: Word; Rights: Cardinal); var lHandle: THandle; begin FFileName:=AFileName; if (Mode and fmCreate) > 0 then lHandle:=FileCreateUTF8(AFileName,Mode,Rights) else lHandle:=FileOpenUTF8(AFileName,Mode); if (THandle(lHandle)=feInvalidHandle) then begin if Mode=fmcreate then raise EFCreateError.createfmt({SFCreateError}'Unable to create file "%s"',[AFileName]) else raise EFOpenError.Createfmt({SFOpenError}'Unable to open file "%s"',[AFilename]); end else THandleStream(Self).Create(lHandle); end;
Qui nous renvoi sur FileOpenUTF8
Code:

1 2 3 4 5 6 7 8 function FileOpenUtf8(Const FileName : string; Mode : Integer) : THandle; begin Result := CreateFileW(PWideChar(UTF8Decode(FileName)), dword(AccessModes[Mode and 3]), dword(ShareModes[(Mode and $F0) shr 4]), nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); //if fail api return feInvalidHandle (INVALIDE_HANDLE=feInvalidHandle=-1) end;
Je parie qu'il y a une erreur avec la fonction UTF8Decode

En effet (je n'ai pas le temps d'aller voir sous Linux") mais Naute, Jipete et Jurrasik sont tous les trois sous cet environnement et il ne semble pas y avoir de bug
L'idée de Toulourou est bonne cela permettrai d'être certain que cela vient de là.

Juste pour tester j'ai supprimer UTF8Decode
Après recomplitation voila le résultat quand je clique sur le fichier dans la FileListBox

Pièce jointe 388171

Bref après tout ce bazard, une petite lumière c'est allumée dans ma tête, nous avions déja rencontré ce genre de problème (avec Naute si je me souviens bien et un comboxbox)

Solution n'utilises pas l'évènement OnChange de la FileListBox, mais utilises OnSelectionChange
PS : J'ai bien sur remis FileOpenUTF8 dans sont état d'origine ;)

Je n'ai pas réussi à avoir ce comportement farfelu après ce changement

A+

Citation:

Envoyé par BeanzMaster

Solution n'utilises pas l'évènement OnChange de la FileListBox, mais utilises OnSelectionChange

Je voulais le proposer en début d'aprème mais je n'ai pas eu le temps.

Version définitive parfaitement fonctionnelle sous Linux, et plus besoin de proc commune :

Code:

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
    // ... autres procs au-dessus
    procedure FileListBox1SelectionChange(Sender: TObject; User: boolean);
//    procedure FileListBox1Change(Sender: TObject);
  private
    { private declarations }
    pos: integer;
  public
    { public declarations }
  end;
 
var
  Visio: TVisio;
 
implementation
 
{$R *.lfm}
 
{ TVisio }
 
{procedure TVisio.FileListBox1Change(Sender: TObject);
begin
  // réagit au clic de la souris mais PAS au changement d'ItemIndex des boutons
end;  }
 
procedure TVisio.DirectoryEdit1Change(Sender: TObject);
begin
  FileListBox1.Directory:=DirectoryEdit1.Directory;
  EditFileCount.Text := inttostr(FileListBox1.Count);
end;
 
procedure TVisio.FileListBox1SelectionChange(Sender: TObject; User: boolean);
begin // fonctionne avec les boutons, au clic dans la liste et avec les flèches haut-bas du clavier quand la liste a le focus
  pos:=filelistbox1.ItemIndex;
  Image1.Picture.LoadFromFile(FileListBox1.Directory
                              + DirectorySeparator // multi-plateforme : plus cool
                              + FileListBox1.Items[pos]);
  EditFileName.Text:=FileListBox1.Directory
                     + DirectorySeparator
                     + FileListBox1.GetSelectedText;
end;
 
procedure TVisio.BitBtn1Click(Sender: TObject);// précédent
begin
  dec(pos);
  if pos<0 then pos:=FileListBox1.Count-1;
  FileListBox1.ItemIndex:=pos;
end;
 
procedure TVisio.Button1Click(Sender: TObject);// suivant
begin
  inc(pos);
  if pos>FileListBox1.Count-1 then pos:=0;
  FileListBox1.ItemIndex:=pos;
end;

12/06/2018, 19h41
naute

Bonjour :D .

Citation:

Envoyé par BeanzMaster

Solution n'utilises pas l'évènement OnChange de la FileListBox, mais utilises OnSelectionChange

Bien vu! :ccool:

Amicalement,
naute.

rafraichissement

Citation:

Envoyé par Jipété

Je voulais le proposer en début d'aprème mais je n'ai pas eu le temps.

Version définitive parfaitement fonctionnelle sous Linux, et plus besoin de proc commune :

Code:

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
    // ... autres procs au-dessus
    procedure FileListBox1SelectionChange(Sender: TObject; User: boolean);
//    procedure FileListBox1Change(Sender: TObject);
  private
    { private declarations }
    pos: integer;
  public
    { public declarations }
  end;
 
var
  Visio: TVisio;
 
implementation
 
{$R *.lfm}
 
{ TVisio }
 
{procedure TVisio.FileListBox1Change(Sender: TObject);
begin
  // réagit au clic de la souris mais PAS au changement d'ItemIndex des boutons
end;  }
 
procedure TVisio.DirectoryEdit1Change(Sender: TObject);
begin
  FileListBox1.Directory:=DirectoryEdit1.Directory;
  EditFileCount.Text := inttostr(FileListBox1.Count);
end;
 
procedure TVisio.FileListBox1SelectionChange(Sender: TObject; User: boolean);
begin // fonctionne avec les boutons, au clic dans la liste et avec les flèches haut-bas du clavier quand la liste a le focus
  pos:=filelistbox1.ItemIndex;
  Image1.Picture.LoadFromFile(FileListBox1.Directory
                              + DirectorySeparator // multi-plateforme : plus cool
                              + FileListBox1.Items[pos]);
  EditFileName.Text:=FileListBox1.Directory
                     + DirectorySeparator
                     + FileListBox1.GetSelectedText;
end;
 
procedure TVisio.BitBtn1Click(Sender: TObject);// précédent
begin
  dec(pos);
  if pos<0 then pos:=FileListBox1.Count-1;
  FileListBox1.ItemIndex:=pos;
end;
 
procedure TVisio.Button1Click(Sender: TObject);// suivant
begin
  inc(pos);
  if pos>FileListBox1.Count-1 then pos:=0;
  FileListBox1.ItemIndex:=pos;
end;

Impécable, ça fonctionne parfaitement.
Cependant, dans mes composants, je ne trouve pas trace d'un EditFileName !

Merci à tous.

13/06/2018, 10h12
naute

Bonjour :D .

Citation:

Envoyé par bern59

Impécable, ça fonctionne parfaitement.
Cependant, dans mes composants, je ne trouve pas trace d'un EditFileName !
Merci à tous.

Citation:

Envoyé par jipété

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.

Tu rajoutes un TEdit, tu le nommes EditFileName (jipété a changé le nom) et tu l'utilises dans FileListeBox1.SelectionChange.

Amicalement,
naute.

PS : Pense à marquer ton fil résolu.
13/06/2018, 11h27
bern59

rafraichissement

Tout simplement.
Merci.

Voir 40 message(s) de cette discussion en une page