GetDIB plante sans raison apparante...

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : GetDIB plante sans raison apparante...

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;

Publicité

antp

Super Administrateur
Champion des excuses bidons

Et il met quoi comme syserrormessage ? :??:

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

Kyle_Katarn

"Descripteur non valide..."

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

FORUM HardWare.fr

Programmation

Delphi/Pascal

GetDIB plante sans raison apparante...

Sujets relatifs
[ VB.NET ] [ Résolu ] Treeview qui plante ...	vo mieux voir le dernier msg de ce topic pour comprendre le 1er ??
[Résolu] Javascript qui plante	VB: Prog qui plante...mais pourquoi?
imagejpeg etc etc qui plante	[C++]Mon programme compile mais plante.
Fonction tri qui plante mon code	[JS] FireFox plante sur mon getElementById('xxx').innerT ext.split('.')
Libxml plante explorer	Aparition d'une scroll bar en bas de la page sans raison
Plus de sujets relatifs à : GetDIB plante sans raison apparante...

Page générée en 0.059 secondes