Comment récupérer le Handle d'un bitmap

Bonjour,

Je dispose d'une fonction DLL qui identifie une bitmap par son handle. Mais avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TMAINFORM.Button1Click(Sender: TObject); var BMP: TBitmap; hBMP: hBitmap; begin BMP:= Tbitmap.Create; try BMP.Assign(Image1.Picture.Bitmap); hBMP:= BMP.ReleaseHandle; Edit1.Text:= IntToStr(SizeFromBitmap(hBmp)); finally BMP.Free; end; end;

---

hBMP est toujours 0 que ce soit BMP.Handle ou BMP.ReleaseHandle

Nota Image1 affiche bien une image

Que se passe-t'il ?

ReleaseHandle libère le Handle, c'est logique !
Pour le Handle, avec Assign, il y a une possiblité d'un partage de Handle entre ton TBitmap et Image1.Picture.Bitmap

Si ton Image1 ne contient pas un BMP mais un JPEG ou PNG, il me semble qu'il y a une conversion par les accesseurs, faut faire attention !
Il faut plutôt faire un Assign du Picture.Graphic !

Si c'est un BMP

Code:

---

1 2 3 4

procedure TMAINFORM.Button1Click(Sender: TObject); begin Edit1.Text = IntToStr(SizeFromBitmap(Image1.Picture.Bitmap.Handle)); end;

---

Si c'est un JPEG

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TMAINFORM.Button1Click(Sender: TObject); var BMP: TBitmap; hBMP: hBitmap; begin BMP:= Tbitmap.Create; try BMP.Assign(Image1.Picture.Graphic); hBMP:= BMP.Handle; Edit1.Text:= IntToStr(SizeFromBitmap(hBmp)); finally BMP.Free; end; end;

---

Code:

---

Edit1.Text := IntToStr(Image1.Picture.Bitmap.Handle);

---

Retourne zéro, et bien entendu si la fonction DLL est appelée avec un zéro je déclenche une erreur.

La fonction est déclarée

Code:

---

1 2 3

//Fonction de recuperation de la taille en pixels (heitgh*width) de l'image par son Handle function SizeFromBitmap(hBMP: hBitmap): Integer; cdecl;external GraphDLLName;

---

L'image1 est une bitmap chargée en dur

La version JPEG :

Code:

---

1 2 3

BMP.Assign(Image1.Picture.Graphic); hBMP:= BMP.Handle; Edit1.Text:= IntToStr(SizeFromBitmap(hBmp));

---

fonctionne parfaitement

Pourquoi ?

Est-il possible que le Bitmap d'un TImage n'ait pas de Handle car il n'a pas la même finalité (ou le même contexte d'affichage) que son Graphic, même si celui-ci est un BitMap ?

Donc : le code suivant fonctionne-t-il pour un Bitmap chargé dans un TImage ?

Code:

---

1 2 3 4

Image1.Picture.LoadFromFile('test.bmp'); BMP.Assign(Image1.Picture.Graphic); hBMP:= BMP.Handle; Edit1.Text:= IntToStr(SizeFromBitmap(hBmp));

---

tourlourou Ton code fonctionne OK