Discussion :

[Duan]

Il y a quelques temps, suite à un post que j'ai fait sur ce forum, Sub0 m'a suggéré d'insérer un Try/Exceptdans mon code afin de gérer d'éventuelles erreurs lors de l'affichage de mes images. J'ai effectué quelques test mais je dois faire une erreur quelque part car la procédure appelée, ne s'exécute pas. J'ai renommé un fichier .txt en .bmp pour faire le test pour voir si l'exception était provoqué et géré.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
  begin
    try
      if not OpenPictureDialog1.Execute then exit;
      Image1.Picture.LoadFromFile(OpenPictureDialog1.filename);
    except
      on EInvalidGraphic do VérifieErreur;
    end;
  end;

Je met un showmessage à l'entrée de VérifieErreur mais mon programme plante avant de le lire avec le message d'erreur suivant: ''Project1.exe'' a provoqué une classe d'exception EinvalidGraphic avec le message IMAGE BITMAP INCORRECT.....

Y a t'il quelqu'un qui peut m'aider à comprendre

Merci

Duan

[Jipété]

Salut !

Si si, ça fonctionne très bien, mais pas dans l'IDE (testé) !

Autre chose : mon Delphi pas content du tout avec

VérifieErreur

Avec VerifieErreur ça va beaucoup mieux.

Mes 2 cts,
--
jp

PS : ça sera plus joli comme ça :

Code :

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

1
2
3
4
  begin
    if not OpenPictureDialog1.Execute then exit;
    try
      ...

[tourlourou]

si tu veux donner dans le joli...

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
  begin
      if OpenPictureDialog1.Execute then 
      try
          Image1.Picture.LoadFromFile(OpenPictureDialog1.filename);
      except
          on EInvalidGraphic do VerifieErreur;
      end;
  end;

[ebastien]

Bonjour,

Effectivement, comme dit Jipété, dans l'IDE, Delphi affiche un message d'erreur sur les exceptions. Si tu testes ton prog hors de l'IDE, ça fonctionnera comme tu le veux.
Maintenant, il est possible de désactiver l'arrêt sur les exceptions dans l'IDE en décochant la case 'Arrêter sur exceptions Delphi' dans l'onglet 'Exceptions du langage' des options du débogueur (menu Outils/Options du débogueur).
Eb.

[Duan]

Merci beaucoup, simple mais fallait le savoir (je saurai). J'ai retourné ce code pendant 2 soirées en vain en retournant dans Aide,Faq, Recherche ect.

Pour Jipété, excuse moi, j'avais tout simplement recopié la partie principale du code dans un nouveau projet afin de faire un copier/coller plus net sans lignes inutiles et j'ai mis le é par inadverdance. Mon delphi n'aime pas non plus...

Par ici, on dirait que ce soir, je vais me coucher moins ''niaiseux''.



Merci à tous, vos suggestions sont grandement appréciées.

Duan