Bonjour à tous,
je suppose l'existance d'une astuce pour sauver un TBitmap dans un fichier manuelement ; par "manuellement", j'entand sans passer par la procedure TBitmap.SaveToFile. Si je ne veux pas l'employer, c'esst parceque je dois sauver un type record contenant un TBitmap.
Voici comment je m'y suis pris, sans succespuis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 BitmapSize := SizeOf(pointer(Map^.bitmap)^); BlockWrite(F, BitmapSize, SizeOf(BitmapSize)); BlockWrite(F, Map^.bitmap, BitmapSize);Map est un pointeur vers un type record contenant un TBitmap qui a ete initialisé et chargé a partir d'un bitmap valide (possibilité de l'afficher grace a un TImage).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 BitmapSize := Map^.bitmap.Height*Map^.bitmap.Width; BlockWrite(F, BitmapSize, SizeOf(BitmapSize)); BlockWrite(F, Map^.bitmap, BitmapSize);
J'espere que vous pourrez m'aider, et je vous en remercie.
Partager