Problème dans la création d'un Bitmap 1 bit
Bonjour,
Voici le code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| procedure TForm1.Button1Click(Sender: TObject);
var
BMP: TBitmap;
begin
BMP:= TBitmap.Create;
try
BMP.Free;BMP.PixelFormat:= pf1bit;
BMP.Width:= 59622;
BMP.Height:= 58583;
BMP.SaveToFile('Mega.BMP');
finally
BMP.Free;
end;
end; |
Cette procedure crée effectivement un fichier bitmap de 416 Mo, parfaitement lisible sous photoshop sans erreur. Seul problème à la ligne
BMP.Free une EInvalidPointer se déclanche avec le message 'Opétation de pointeur incorrecte'
Quelqu'un peut-il m'expiquer pourquoi si une opération de pointeur est incorrecte au moment de la libération du bimap pouquoi le fichier créé est lisible sans erreur par Photoshop ? Naturellement l'image est totalement blanche.
Ses dimensions sont rigoureusement celles de la création et l'image a été produite en 72 dpi
Votre avis m'interesse... sutout pour éviter l'erreur EInvalidPointer.
A+
Mille excuses pour la ligne située après try
Il est venu se coller de manière intempestive un bmp.free qui n'a bien sur aucune raison de se situer à cet endroit et qui explique l'origine de l'erreur.
Encore toutes mes excuses
