Bonjour,
Voici le code :
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;
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+