Kyle_Katarn | 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 :
- procedure AddFrame(bmp: TBitmap);
- var
- BmpBuf, BmpInfoBuf : array of Byte;
- HeaderSize,ImageSize:Cardinal;
- bRes:Boolean;
- begin
- GetDIBSizes(bmp.Handle,HeaderSize,ImageSize);
- SetLength(BmpInfoBuf, HeaderSize);
- SetLength(BmpBuf,ImageSize);
- bRes := GetDIB(bmp.Handle,bmp.Palette,PByte(BmpInfoBuf)^,PByte(BmpBuf)^);
- Assert(bRes, 'GetDIB failed : '+SysErrorMessage(GetLastError));
- // Reste de ma fonction
- end;
|
|