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