Saveimage et 24bit

[garfield9992003]

Hi.

Je veut enregistrer bmp et jpg images avec 1 ou 8 bit à la place de 24 bits (avec saveimage = 24 bit)

Est-il possible avec api?

Pourriez-vous m`aider?

Regards

Frank

[Hroudtwolf]

Ce code doit fonctionner si votre format d'écran est plus de 16 bit

Code : Tout sélectionner

;Picture Convert
;2005 Hroudtwolf
;PureBasic-Lounge.de
UseJPEGImageEncoder()
UseJPEGImageDecoder()
File$ = OpenFileRequester("File", "*.jpg", "JPG|*.jpg", 0)
  If File$
    If LoadImage (1,file$) 
      width.l=ImageWidth():height.l =ImageHeight() 
      If CreateImage (2,width.l,height.l) And StartDrawing (ImageOutput())
        DrawImage(UseImage(1),0,0,width.l,height.l)
      StopDrawing ()
      EndIf
    new$=SaveFileRequester ("Save",  "*.jpg", "JPG|*.jpg", 0)
    SaveImage(2,new$,#PB_ImagePlugin_JPEG )
    EndIf 
  EndIf

[garfield9992003]

Merci pour la réponse

Mais saveimage fait 24 bpp. Je voudrais avoir 8 ou 1 bpp pour bmp et jpg images.
Il ne faut pas enregistrer images avec 256 or 2 couleurs avec 24bpp.

Regards.

Frank

OffTopic:
<scherz>Nun ist man noch nicht mal in Frankreich sicher *g* </scherz>
Ich poste aber auch deinem Forum in Hoffnung