GetDIB plante sans raison apparante...

GetDIB plante sans raison apparante... - Delphi/Pascal - Programmation

Marsh Posté le 23-08-2005 à 14:21:03    

Bonjour,
 
Quelqu'un saurait-il me dire pourquoi la fonction suivante plante de manière intempestive, me produisant un "GetDib failed" due à mon assert, qui visiblement n'est pas vérifié ?
 

Code :
  1. procedure AddFrame(bmp: TBitmap);
  2. var
  3.   BmpBuf, BmpInfoBuf : array of Byte;
  4.   HeaderSize,ImageSize:Cardinal;
  5.   bRes:Boolean;
  6. begin
  7.   GetDIBSizes(bmp.Handle,HeaderSize,ImageSize);
  8.   SetLength(BmpInfoBuf, HeaderSize);
  9.   SetLength(BmpBuf,ImageSize);
  11.   bRes := GetDIB(bmp.Handle,bmp.Palette,PByte(BmpInfoBuf)^,PByte(BmpBuf)^);
  12.   Assert(bRes, 'GetDIB failed : '+SysErrorMessage(GetLastError));
  14.   // Reste de ma fonction
  15. end;

Reply

Marsh Posté le 23-08-2005 à 14:21:03   

Reply

Marsh Posté le 23-08-2005 à 17:56:05    

Et il met quoi comme syserrormessage ? :??:


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 23-08-2005 à 18:01:39    

"Descripteur non valide..."
 
Mais j'ai tout refait en utilisant un TDIBSection et ça marche impec....

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed