Discussion :

[lohot]

Bonsoir,

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

Code :

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

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 :

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

[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 :

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

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 :

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

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

[Louis Griffont]

Bonjour,

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