Discussion :

[cincap]

Bonsoir à toutes et à tous,

En révisant un ancien code, j'aimerai utiliser un TOpenDialog pour ouvrir le dossier "Photos" mais vu mes essais je n'y arrive pas.

Code :

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

1
2
3
4
5
6
7
8
9
 
var
Gpath : string;
begin
GPath:= getcurrentdir + '\Photos\';
SL:=TStringList.Create;
ListFileDir(GPath,SL);
Image1.Picture.LoadFromFile(GPath + SL.Strings[ImgIndex] );
end;

Si quelqu'un à une idée, merci d'avance.

@+,

cincap

[Charly910]

Bonjour Cincap,

tu devrais lister les fichiers de ton répertoire comme dans la FAQ pour les mettre dans ta StringList

A+
Charly

[ShaiLeTroll]

OpenDialog faut appeler Execute et la propriété FileName

Sinon, utilise PromptForFileName si ça existe en D6


Cela va retourner une seule image

Explique mieux ton besoin car tu évoques de lister un Dossier

Tu veux peut-être plutôt un SelectDirectory pour selectionner un Dossier et non un fichier

Tu peux aussi créer une action TBrowseForFolder, je te laisse regarder l'API Windows SHBrowseForFolder en D7 par Charly910



un Delphi plus récent proposerait un TFileOpenDialog à partir de Vista avec l'option fdoPickFolders

[cincap]

Bonjour à toutes et à tous,

@ Charly910 et @ ShaiLeTroll, merci pour vos suggestions.

En fait, ce n'est qu'une petite application qui doit sélectionner un dossier photos et de les afficher une par une dans un Timage avec un Tbutton "Next et Preview".

Le code tel quel fonctionne correctement avec un dossier par défaut "Photos".

Ayant D6 depuis qu'il existe, a mon âge je ne veux pas changer c'est compréhensible.

Je continue à tester de mon coté.

@+,

cincap

[cincap]

Je viens de tester ceci :

Code :

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

1
2
3
4
5
6
7
 
 if SelectDirectory(chappli, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then begin
 
//GPath:= chappli ;//'\Photos\';
 
SL:=TStringList.Create;
ListFileDir(Seldir,SL);

Lorsque je sélectionne le dossier Photos il me manque le slach et je dois faire 2 x le ok.

@+,

cincap

[ShaiLeTroll]

IncludeTrailingBackslash t'aidera à gérer le \ manquant

[cincap]

@ tous,

Voila avec mes essais cela ne fonctionne qu'à moitié.

Ce qui fonctionne correctement :

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
 
procedure ListFileDir(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
  if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;
 
***********
 
chappli:= getcurrentdir + '\Photos\';
SL:=TStringList.Create;
ListFileDir(chappli,SL);
Image1.Picture.LoadFromFile(chappli + SL.Strings[ImgIndex] );

Ce qui fonctionne à moitié :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
begin
 if SelectDirectory(chappli, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then begin
 
//chappli:= getcurrentdir +'\Photos\';
SL:=TStringList.Create;
ListFileDir(chappli,SL);
 
end;
end;

Je pensais avec SelectDirectory que le dossier choisis "Photos" s'ouvrirait en autorisant le choix, la fenêtre de droite affiche bien les photos contenues dans ce dossier et pourtant une exception avec index même avec le slache.

Merci d'avance,

@ +,

cincap

[ShaiLeTroll]

Ce n'est pas très clair

Pourquoi autant d'option ?

Code :

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

if SelectDirectory(chappli, [], 0) then begin

Que contient chappli ?
Que retourne DirectoryExists ?

Affiche les choses

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
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir, Path: string;
begin
  Dir := getcurrentdir();
  if FileCtrl.SelectDirectory(Dir, [], 0) then
  begin
    Label1.Caption := Dir;
 
    if DirectoryExists(Dir) then
    begin
      Path := IncludeTrailingBackslash(Dir);
 
      SL := TStringList.Create();
      try
        ListFileDir(Path, SL);
        if SL.Count > ImgIndex then
          Image1.Picture.LoadFromFile(Path + SL.Strings[ImgIndex] )
        else
          raise Exception.CreateFmt('Image N°%d non trouvé dans %s', [ImgIndex, Path]);
      finally
        SL.Free();
      end;
    end;
  end;
end;

[cincap]

Bonjour à toutes et à tous,

@ ShaiLeTroll, merci de ta suggestion que j'ai testée !

Pour répondre à tes questions :

Que contient chappli ?
Que retourne DirectoryExists ?

chappli est le dossier de l'application et DirectoryExists rien.

Après test, le dossier choisis est ok, la photo du dossier s'affiche aussi mais la commande des Tbutton "Preview" et "Next" ne fonctionne pas avec ton code mais bien avec l'ancien.

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
 
procedure TU_Diaporama.BNextClick(Sender: TObject);
begin
ImgIndex:=ImgIndex+1;
 
if ImgIndex=SL.Count  then ImgIndex :=0;
 
Image1.Picture.LoadFromFile(GPath + SL.Strings[ImgIndex] );
 
Ednom.Text := extractfilename(GPath + SL.Strings[ImgIndex]);
end;
 
procedure TU_Diaporama.BPreviewClick(Sender: TObject);
begin
ImgIndex:=ImgIndex-1;
if ImgIndex=-1  then ImgIndex :=SL.Count-1;
 
Image1.Picture.LoadFromFile(GPath + SL.Strings[ImgIndex] );
 
Ednom.Text := extractfilename(GPath + SL.Strings[ImgIndex]);
end;

Bon 1er Mai à tous.

cincap

[cincap]

@ ShaiLeTroll,

Je viens de vérifier tout ton code et la boite de sélection s'affiche bien, lorsque je clique sur le dossier Photos, les photos se trouvent bien dans la liste à droite de la boite mais je dois insister pour dire Ok pour fermer SelectDirectory et voir ma photo.

A ce stade les boutons "Preview" et "Next" fonctionnent.

Pourquoi alors la boite de sélection ne se ferme pas du 1er coup ?

@+,

cincap

[XeGregory]

Pourquoi ne pas utiliser directement le composant TDirectoryListBox & TFileListBox

[cincap]

@ XeGregory, merci de ton intervention mais c'est une question de choix.

@ ShaiLeTroll, Mea Culpa, tout fonctionne, c'était une autre instruction dans le "Oncreate" qui devait être placée après ton code.

C'est pour cela que je n'arrivais pas à fermer la boite du "SelectDirectory".

Je peus donc fermer ce topic et merci à tout ceux qui m'ont aidé.

@+,

cincap

[cincap]

Bonjour à tous,

Question bête, serait t'il possible de forcer l'extension du SelectDirectory au lieu de *.* avoir *.jpg.

J'ai essayé avec la procédure de recherche mais niet.

Merci, je n'ai rien trouvé.

@+,

cincap

[ShaiLeTroll]

Question bête, serait t'il possible de forcer l'extension du SelectDirectory au lieu de *.* avoir *.jpg.

Alors je ne sais plus comment je l'ai fait en D4, c'était une demande mon maitre de stage de l'époque !
J'avais un Delphi Pro donc le code source, j'ai du tout simplement dupliquer la fonction et modifier le code à l'intérieur pour ajouter un Filter, voir un TEdit pour fournir un FileMask

JE pense que je l'ai refait entièrement à base TDirectoryListBox & TFileListBox, après tout c'est une simple form modale
Ainsi qu'un TFilterComboBox et TDriveComboBox

Il n'y a quasiment aucun code à faire car tout se lie directement dans le RAD, tu poses, tu lies, ça fonctionne tout seul

• TDriveComboBox.DirList -> TDirectoryListBox
• TDirectoryListBox.FileList -> TFileListBox
• TFilterComboBox.FileList -> TFileListBox