EINOUTERROR avec selectDirectory

**fabpan** · 22/01/2010, 12h47

Bonjour à tous,

J'utilise un selectrepertory pour permettre à l'utilisateur de choisir un repertoire.

J'obtiens un bug si l'utilisateur choisi le lecteur cd par exemble

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
 
try
           if SelectDirectory(self.sSelection, [sdAllowCreate, sdPerformCreate,   sdPrompt], SELDIRHELP) then
                 begin
                        self.sEmplacementChoisi:=self.sSelection ;
 
                        // On retourne le chemin vers le répertoire
                        result:=self.sEmplacementChoisi;
                 end
           else
                result:='' ;
 
       except
             on E : Exception do
                     ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
       end;

Donc mon problème c'est que ma gestion de l'exception ne marche pas avec le try/except (EINOUTERROR)

Y-a-t-il moyen de contourner ce problème, svp ?

Merci d'avance pour l'aide que vous pourrez m'apporter.

Fabpan

**Dr.Who** · 22/01/2010, 17h44

cadeaux voir PJ

a utiliser comme un OpenDialog ou SaveDialog, avec pleins d'options en bonus (espace libre, type de support etc) :

Code :

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

1
2
3
4
begin
  if SelectFolderDlg.Execute then
    Edit1.Text := SelectFolderDlg.Directory;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
begin
  // necessite 64Mo sinon refuse le repertoire
  SelectFolderDlg.FreeSpaceNeeded := 64000000;
 
  // sur disque dur, ram disque, ou clef usb/carte memoire
  SelectFolderDlg.ValidDriveTypes := [dtFixed, dtRamDisk, dtRemovable];
 
  if SelectFolderDlg.Execute then
    Edit1.Text := SelectFolderDlg.Directory;
end;

Code :

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

1
2
3
4
5
6
begin
  // ne retente pas de demander à l'utilisateur un répertoire valide
  SelectFolderDlg.TryAgain := false;
  if SelectFolderDlg.Execute then
    Edit1.Text := SelectFolderDlg.Directory;
end;

**Charly910** · 23/01/2010, 18h17

Bonjour,

@ Dr.Who, merci pour ton sélecteur de répertoire , mais j'ai un problème en essayant de l'utiliser :

j'ajoute SelFolderDlg.pas à mon projet - j'ajoute SelFolderDlg dans le uses de ma fenêtre principale + un Edit1 + un bouton pour appeler le sélecteur

J'essaye de compiler et j'ai des erreurs :

Code :

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

1
2
3
4
5
  [Avertissement] SelFolderDlg.pas(14): L'unité 'FileCtrl' est propre à une plate-forme
  [Erreur] SelFolderDlg.pas(35): Identificateur non déclaré : 'TSelectDirExtOpts'
  [Erreur] SelFolderDlg.pas(113): Identificateur non déclaré : 'sdNewUI'
  [Erreur] SelFolderDlg.pas(132): Trop de paramètres originaux
  [Erreur fatale] Unit1.pas(7): Impossible de compiler l'unité utilisée '..\..\Util\SelFolderDlg.pas'

As tu une idée d'ou cela vient ? PS : j'ai Delphi7

Par avance merci

Charly

**Dr.Who** · 23/01/2010, 22h31

hahaha ben oui, forcement, la fonction à un peu changer de déclaration en D2009 et je n'ai pas prevus de directives pour D7.

[Avertissement] SelFolderDlg.pas(14): L'unité 'FileCtrl' est propre à une plate-forme

ça c'est normal, FileCtrl ne fonctionne qu'avec Windows.

[Erreur] SelFolderDlg.pas(35): Identificateur non déclaré : 'TSelectDirExtOpts'

remplacer par TSelectDirOpts (voir déclaration dans FileCtrl.pas)

[Erreur] SelFolderDlg.pas(113): Identificateur non déclaré : 'sdNewUI'

supprimer le paramètre et laisser les options vides : fOptions := [];

[Erreur] SelFolderDlg.pas(132): Trop de paramètres originaux

voir la déclaration de SelectDirectory dans D7 et le paramètre posant probleme.

[Erreur fatale] Unit1.pas(7): Impossible de compiler l'unité utilisée '..\..\Util\SelFolderDlg.pas'

normal vus les erreur au dessus, n'apparaitra plus une fois l'unité corrigée.

correctif en piece jointe.

**Charly910** · 24/01/2010, 10h24

Merci Dr.Who,

j'ai corrigé tout ce que tu m'as indiqué, mais j'ai encore une erreur sur :

Code :

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

1
2
  if SelectFolderDlg.Execute then
    Edit1.Text := SelectFolderDlg.Directory;

Il dit que SelectFolderDlg n'est pas déclaré

(pourtant j'ai mis SelFolderDlg dans le uses de mon unité)

Charly

**Dr.Who** · 25/01/2010, 00h05

tu dois créer un objet TSelectFolderDlg, il n'y a pas d'objet pré-crée dans l'unité.

tu peux appeler comme ceci pour ne pas déclarer de variable :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure Tform1.Button1Click(Sender: TObject);
begin
  with TSelectFolderDlg.Create(nil) do
  try
    if Execute then
      Edit1.Text := Directory;
  finally
    Free;
  end;
end;

end;