Resize and resave images

[jak64]

Good morning,
I want to write a program that allows me to resize images and resave them.

I wrote this little piece of program to test but it doesn't work!

I would also like to know how to recover the wording of the error generated by Purebasic

Thank you for your help

Code: Select all

EnableExplicit
UseJPEGImageDecoder()
UsePNGImageDecoder()

Enumeration
  #Image1
EndEnumeration

Global file$ = "c:\images\toto.jpg"

If LoadImage(#Image1, file$)
      ResizeImage(#Image1, 380, 285)
      If Not SaveImage(#Image1, file$ + ".png", #PB_ImagePlugin_PNG)
        Debug "erreur" + " --> "
      EndIf
EndIf

[r-i-v-e-r]

Code: Select all

      If Not SaveImage(#Image1, file$ + ".png", #PB_ImagePlugin_PNG)

You've attempted to save with the PNG encoder (#PB_ImagePlugin_PNG), however you've only used the decoder:

Code: Select all

UseJPEGImageDecoder()
UsePNGImageDecoder()

If you add a UsePNGImageEncoder() call, it should function just fine.

I would also like to know how to recover the wording of the error generated by Purebasic

AFAIK, discerning a detailed error code/message is not possible in most cases. I believe there was a feature request somewhere on the forum asking for a new function similar to the Win32 GetLastError(), which would definitely be useful here (although an immense task to integrate for the entire PB command set).

[jak64]

Hello r-i-v-e-r

Indeed, I was not using the png encoder.

It's OK, thank you

[boddhi]

Under Windows, you can use GetLastError_() API with error code descriptions here.
Normally, only few error codes should occur : 3, 5, 8, ?

[jak64]

Hello boddhi

Thank you for your answer. I went to look but I didn't understand anything, is there an example with Purebasic?

Sincerely,

[boddhi]

You read my reply too fast... I was writing one.

Code: Select all

String.s=""
CreateImage(0,20,20)
If Not SaveImage(0,"C:\zzz\Example.bmp") ; Be sure than "C:\zzz\" path doesn't exist!
  Select GetLastError_()
   Case 3:String="Path not found"
   Case 5:String="Access denied"
   Case 8:String="Not enough memory to complete the operation"
   Case 39:String="Disk full"
   Case 53:String="Network path not found"
   Default:String="Unknown error"
 EndSelect
 MessageRequester("Save operation",String)
EndIf

Non-exhaustive list

[boddhi]

Aparte

I just saw you are from Ciboure. Je vais assez souvent à Socoa

[jak64]

Thank you boddhi.
Yes Socoa is a very pretty place, I live 600 meters from the beach and the Socoa fort.