Test d'un TImage

Bonsoir,

En cherchant sur le forum, j'ai trouvé une discussion traitant de ce sujet. Il est conseillé d'utiliser ce code :

Code:

---

1 2 3 4

If Image1.Picture.Graphic.Empty then //Image vide else //Image pleine

---

Mais si Image1 est vide et que je lance le teste, l'application me renvoye cette erreur :

Citation:

---

Le projet Project1.exe a déclenché la classe d'exception EAccessViolation avec le message 'Violation d'accès à l'adresse 0045B8FE dans le module 'Project1.exe'. Lecture de l'adresse 00000000'.

---

Quelqu'un connaîtrait-il une méthode pour tester une Timage fonctionnant correctement ?

Merci d'avance.

Lohot

Je viens de trouver la solution à mon problème. En fin de compte, en remplaçant le code précédent par celui qui suit, tout fonctionne correctement :

Code:

---

1 2 3 4

if Image1.Picture.Bitmap.Empty then // Image vide else // Image pleine

---

Pour que ce teste fonctionne avec n'importe quel type d'image, il suffit d'écrire le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var bmp: TBitMap; Begin bmp := TBitMap.Create; bmp.Assign(Image1.Picture.Graphic); If bmp.Empty then // Image vide Else // Image pleine; bmp.Free; End;

---

A+

Lohot

Bonjour,

Tu pouvais egalement sécuriser ton test en placant dans un bloc Try Except :lol: