Discussion :

[Poulain]

Bonjour,

Bon ben voilà, c'est très simple, je ne demande pas grand chose:

j'ai déjà le code pour télécharger l'image sur le serveur, la redimenssionner, et supprimer la grosse.

J'enregistre mes photos en JPEG, mais elles sont encore assez grosse, qu'est-ce qu'il faut faire pour réduire un peu la qualité?

Cordialement

[zooffy]

Si je comprends bien, ce que tu veux faire c'est réduire les DPI de l'image.

Je suis pas sûr que ça soit possible, mais je chercherais du côté du System.Drawing.Bitmap.
Visiblemnt cette objet te permets pas mal de chose avec l'image dont tu lui envoie l'adresse en paramettre.
Je sais au moins que tu peux modifier la largeur et la hauteur de l'image, mais je n'ai pas approfondi le sujet. C'est mon Stagiaire qui s'en est occupé.

Je sais juste qu'il a été ennuyé car il faut d'abords télécharger l'image avant de pouvoir le modifier ou même d'interroger pas mal de ses propriétés.

Kenavo

[Poulain]

ça je sais qu'il faut d'abord telecharger l'image, mais ce que je voudrais juste, c'est la partie qui permet de réduire la qualité

[zooffy]

Ben comme je t'ai dit : cherche du côté du System.Drawing.Bitmap.

Je ne pourrais t'en dire plus, j'ai regardé le code de mon stagiaire, qui n'est plus là puisque son stage est fini, mais j'ai pas trouvé de chose probante comme ça. Et malheureusement, je n'ai pas le temps d'aller plus loin dans cette recherche.

Kenavo

[Poulain]

ok, je vais chercher de mon coté, merci

[Poulain]

Merci, mais j'ai trouvé la solution, désolé pour le retard...
Les vacances...

Je vous donnerais la solution dès que je pourrais.

[Poulain]

Voilà le code que j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim bm_dest As New Drawing.Bitmap(W, H)'mon image de destination avec hauteur et largeur
            Dim gr_dest As Drawing.Graphics = Drawing.Graphics.FromImage(bm_dest) 'là je sais pas trop, mais je crois qu'on est obligé de passer par un graphique
            gr_dest.DrawImage(bm_source, 0, 0, W, H)'ben là on dessine l'image...
            bm_dest.SetResolution(bm_dest.HorizontalResolution * 2 / 3, bm_dest.VerticalResolution * 2 / 3)'et c'est avec ça que je réduit la qualité
            Dim imagereduite As Drawing.Image = bm_dest'ben là c'est mon image une fois le traitement fait.