Discussion :

[colorid]

Bonjour,

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

Code :

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

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 ?

[ShaiLeTroll]

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 :

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

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 :

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

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;

[colorid]

Code :

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

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 :

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

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

[colorid]

La version JPEG :

Code :

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

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

fonctionne parfaitement

Pourquoi ?

[tourlourou]

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 :

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

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

[colorid]

tourlourou Ton code fonctionne OK