Discussion :

[Simlock]

Bonjour,

J'ai un petit soucis étonnant. Je veux ouvrir un TOpenDialog pour sélectionner une image et la charger dans mon programme...

Le problème c'est qu'une fois le TOpenDialog fermé, l'image se charge mais mon programme ne fonctionne plus correctement. Je n'arrive plus à charger d'autres images ou à lire/écrire dans un fichier. Je crois que je peux tout simplement plus interagir avec d'autres fichier.

Tout fonctionne jusqu'à la fermeture du TOpenDialog SAUF si je ferme la TOpenDialog avec la croix et que je ne charge rien.

Voilà mon bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TFormConfigTache.ChoosePicture(Sender: TObject);
var
  str     : string;
begin
 
  //Ouvre directory
  if (Dialog_PictureFile.Execute)then
  begin
    P_Apercu.Picture.LoadFromFile(Dialog_PictureFile.FileName);
  end;
 
end;

Vous avez une idée ?

[Moez.B]

Bonjour,
il faut tester si le FileName est renseigné

Code :

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

1
2
3
 
  if (Dialog_PictureFile.FileName<>'') Then
    P_Apercu.Picture.LoadFromFile(Dialog_PictureFile.FileName);

[Simlock]

C'est vrai que je ne le test pas mais ce n'est pas le soucis. Le FileName est bien renseigné puisqu'il charge l'image. Et j'ai vérifié en debug ^^

[Moez.B]

Dialog_PictureFile est un composant posé sur la fiche TFormConfigTache ou bien créé quelque part en code ?

[Simlock]

Posé sur la fiche. :/

[SergioMaster]

Bonjour,

et si, déjà, on avait connaissance de la version de Delphi et de l'OS ?

[Simlock]

Dac. Delphi 5 sur Windows 7 x64

[SergioMaster]

Re,

c'est déjà mieux de le savoir, hélas je n'ai pas de D5 installé. Tout ce que je peux dire c'est que j'ai déjà fait ce genre de code (utilisation de opendialog pour charger une image) en D3 et que je n'ai jamais eu de problème (ni de remontée sur cette fonctionnalité, depuis 10 ans au moins )

AMHA le problème vient d'ailleurs . Dans la procédure probablement , mais comme on a seulement un "bout de code", selon tes propres termes, on ne voit ni l'initialisation de Dialog_PictureFile , ni à quoi sert la variable str, je ne m'avancerai pas plus

[Cirec]

Bonjour à tous,

histoire d'avancer un peu je mettrais cette ligne en commentaire:

Code :

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

//P_Apercu.Picture.LoadFromFile(Dialog_PictureFile.FileName);

ce qui permettrait de savoir si c'est le TImage ou le TOpenDialog qui pose problème

@++ Cirec

[Simlock]

C'est le TOpenDialog qui pose problème. Même si je ne charge pas d'image sauf si je clique sur la croix de la fenêtre...

La variable "str" me sert à avoir le répertoire du fichier sélectionné mais comme je fais des tests elle n'est pas utilisé en ce moment. Le problème à l'air d'être entre l'ouverture du TOpenDialog et ça fermeture...

[tourlourou]

Je n'ai aucun problème (D5 Pro, Win 7 64 bits) avec ce code (composants tous sur la fiche principale) :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenDialog1.FileName);
  end;
  if FileExists(OpenDialog1.FileName) then ShowMessage('existe');
end;

Sauf si format d'image non supporté... mais dans ce cas, c'est signalé par une exception.

[Simlock]

C'est surprenant... Moi par exemple j'ai cette fonction :

Code :

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

ButtonNext.Glyph.LoadFromFile('images\icones\flecheDroite.bmp');

que j'utilise dans ma Form qui s’exécute plusieurs fois mais dès que j'ouvre mon TOpenDialog et que je ferme cette fenêtre autrement qu'avec la croix rouge j'ai une classe d’exception EFOpenError sur cette ligne (ou les autres aussi).

Pour remédier au problème je suis donc passé par les TBitMap et la fonction Assign() mais ducoup j'ai le reste qui fonctionne plus (lecture/ecriture dans les fichiers).

Et le problème n'est pas que dans la Form où j'utilise mon TOpenDialog... il est dans tout mon programme !

[Linkin]

Après l'appel à TOpenDialog, tu changes le répertoire courant de l'application (par défaut celui où est l'exécutable), donc tu vas chercher les images là où était positionné le TOpenDialog.

Répertoire courant: C:\MonAppli\
Appel à OpenDialog, tu vas chercher une image dans D:\MesImages, le répertoire courant devient D:\MesImages

Du coup, il essaie de charger cette image D:\MesImages\images\icones\flecheDroite.bmp

Je ferais quelque chose du genre:

Code :

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

1
2
3
4
5
6
 
function GetApplicationPath:string;
begin
  Result := ExtractFilePath(ParamStr(0));
end;
ButtonNext.Glyph.LoadFromFile(getApplicationPath+'images\icones\flecheDroite.bmp');

[Simlock]

ah ok ! J'ignorais qu'il ferait ça !

J'ai testé et ça fonctionne !

Merci beaucoup pour votre aide !