Page 1 sur 1
SaveImage qui me fait devenir fou
Publié : mer. 30/août/2006 21:41
par wolfjeremy
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.
Publié : mer. 30/août/2006 22:20
par djes
Truc bête mais que j'oublie tout le temps, le UseJPEGImageEncoder() en début de programme... ?
Publié : jeu. 31/août/2006 9:03
par wolfjeremy
Non je l'ai mis au debut du programme
(j'ai oublier de le dire désolé)
Publié : jeu. 31/août/2006 9:06
par Dr. Dri
pourquoi avoir mis "NextDirectoryEntry() > 0" ?
Dri
Publié : jeu. 31/août/2006 9:15
par wolfjeremy
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.
Publié : jeu. 31/août/2006 9:22
par Dr. Dri
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
Publié : jeu. 31/août/2006 10:15
par wolfjeremy
Merci pour ton aide, mais sa ne marche toujours pas
Publié : jeu. 31/août/2006 10:22
par Flype
et avec GetCurrentDirectory() + destination$ ?
Publié : jeu. 31/août/2006 10:26
par djes
Pas de problème de droits sur le dossier de destination?
Publié : sam. 02/sept./2006 10:37
par wolfjeremy
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é.
Publié : sam. 02/sept./2006 10:48
par Anonyme
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
@++
Publié : sam. 02/sept./2006 10:59
par wolfjeremy
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
