SaveImage qui me fait devenir fou

wolfjeremy · Message par **wolfjeremy** » mer. 30/août/2006 21:41

Salut,

J'ai récement revue mon xhtml/css/php/sql, aujourd'hui je me remet sur mon cher PureBasic et voila que j'ai des problème avec saveimage... surement une bêtise, mais je ne trouve pas. (La fatigue ? le trop plein de langage en quelques jours ? mdr)

Voila mon code :

Procedure resize()

   If GetGadgetState ( #gadget_type_normal ) = 1
    sizex = 130
    sizey = 90
   Else
    sizex = 512
    sizey = 288
   EndIf

   ExamineDirectory (0, "images" , "*.jpg" )

   While NextDirectoryEntry(0) > 0

    name$ = "images\" + DirectoryEntryName (0)
    copyname$ = RemoveString (name$, ".jpg" , 1)
     Debug copyname$
    destination$ = "images\small_" +copyname$

     LoadImage (0, name$)

     ResizeImage (0, sizex, sizey)

     SaveImage (0, destination$, #PB_ImagePlugin_JPEG , 10)

     FreeImage (0)

   Wend

  FinishDirectory(0)

EndProcedure

Alors tout se passe bien sauf le saveimage... j'ai esseyer plein de possibilité, rien a faire, je ne vois pas les image dans le dossier "images"

Pouvez vous m'aider ?

Merci d'avance pour votre réponse.

djes · Message par **djes** » mer. 30/août/2006 22:20

Truc bête mais que j'oublie tout le temps, le UseJPEGImageEncoder() en début de programme... ?

wolfjeremy · Message par **wolfjeremy** » jeu. 31/août/2006 9:03

Non je l'ai mis au debut du programme

(j'ai oublier de le dire désolé)

Dr. Dri · Message par **Dr. Dri** » jeu. 31/août/2006 9:06

pourquoi avoir mis "NextDirectoryEntry() > 0" ?

Dri

wolfjeremy · Message par **wolfjeremy** » jeu. 31/août/2006 9:15

Ben j'en sais rien mdr si il n'y a plus de fichier a trouver dans le directory sa renvoye zero alors j'ai mis sa et sa a l'air de marcher apparement...
Y a juste le saveimage qui foire.

Dr. Dri · Message par **Dr. Dri** » jeu. 31/août/2006 9:22

le résultat peut etres bien être négatif s'il existe un "dossier suivant". Regarde dans la doc, pas de "> 0" dans l'exemple.

A la rigueur tu peux mettres "<> 0"

Maintenant j'ai trouvé la partie de ton code qui ne vas pas

Code : Tout sélectionner

name$ =   "images\"   +   "monimage.jpg"
copyname$ = RemoveString (name$, ".jpg" , 1)
Debug copyname$
destination$ = "images\small_" +copyname$ 
Debug destination$

Et voila comment la corriger

Code : Tout sélectionner

name$ =   "images\"   +   "monimage.jpg"
destination$ = "images\small_" + GetFilePart(name$)
Debug destination$

Dri

wolfjeremy · Message par **wolfjeremy** » jeu. 31/août/2006 10:15

Merci pour ton aide, mais sa ne marche toujours pas

Flype · Message par **Flype** » jeu. 31/août/2006 10:22

et avec GetCurrentDirectory() + destination$ ?

djes · Message par **djes** » jeu. 31/août/2006 10:26

Pas de problème de droits sur le dossier de destination?

wolfjeremy · Message par **wolfjeremy** » sam. 02/sept./2006 10:37

Salut,

excusez pour ma réponse tartive, non sa ne marche toujour pas...

djes a écrit :Pas de problème de droits sur le dossier de destination?

Non tout est bien réglé.

Anonyme · Message par **Anonyme** » sam. 02/sept./2006 10:48

Tu as un code plus complet? car le problème ne viens pas de save image.
ne confond tu pas UseJPEGImageDecoder() et UseJPEGImageEncoder() ?
si non il y a surement un problème de destination. si c'est ni l'un ni l'autre , je ne vois vraiment pas :s

@++

wolfjeremy · Message par **wolfjeremy** » sam. 02/sept./2006 10:59

Salut,

Oui justement je vien de trouver le problème j'ai oublier de mettre UseJPEGImageEncoder() pour le saveimage....

Merci pour votre aide a tous !

P.S.: Excuse djes j'avais lu decoder dans ton premier message