Upload de photo et réduire la qualité.

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

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

ç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é

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

ok, je vais chercher de mon coté, merci

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

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

Voilà le code que j'utilise:

Code:

---

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.

---