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