Save Image as JPG problem

[cecilcheah]

Hi

I try to save image in jpg file, but i am getting nowhere

My code:

Code: Select all

If FindString(FileName$,"bmp",1) <> 0 
      Ergebnis.l = SaveImage(0, FileName$, #PB_ImagePlugin_BMP)
      MessageRequester("", Str(Ergebnis) , #MB_ICONINFORMATION) 

    Else
      
      Ergebnis.l = SaveImage(0, FileName$, #PB_ImagePlugin_JPEG)
      MessageRequester("", Str(Ergebnis), #MB_ICONINFORMATION) 

    EndIf

For BMP, it is fine, but for jpg, it is returning 0
I have already init. with

Code: Select all

UseJPEGImageDecoder()

Something wrong with my code?

[freak]

Try UseJPEGImageEncoder()

Timo