Bonjour,
Voici le code :
Cette procedure crée effectivement un fichier bitmap de 416 Mo, parfaitement lisible sous photoshop sans erreur. Seul problème à la ligne
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 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;
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+
Partager