reduction image jpeg

Bonjour
Mon appareil numérique prend des photos a 6.3 million de pixels
résolution que je souhaite garder pour pouvoir faire des agrandissemnt et pour les tirages papier

Mais pour les envoyés par le net elle sont un peu trop volumineuse
Je souhaiterez pouvoir les reduires a environ 30% de leurs taille
comme on peut le faire avec paint (dans image> etirer /incliner)
l'interet et de pouvoir traité tout un dossier entier a la fois

Si vous avez si vous avait une API qui s'occupe de la réduction(elle sont au format jpeg)

ou alors un prgramme qui fait ca sur le net

MSN,MAIL:Benoit_com@hotmail.com

Utilise la fonction PaintPicture du picturebox, ou alors la fonction de l'API Windows StretchBlt.
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

La fonction PaintPicture du picturebox me semble etre une bonne solution.Il te faut alors utiliser 2 PictureBox dont une sera en visible = true, elle te permettra de charger la photo a sa taille réelle et la 2ème te servira pour la charger a la taille voulu.

Voici le code:

largeur = Picture1.Width hauteur = Picture1.Height coeff_x = largeur / TailleReel.Width coeff_y = hauteur / TailleReel.Height If coeff_x > coeff_y Then Coeff = coeff_y Else: Coeff = coeff_x End If NewLargeur = TailleReel.Width * Coeff NewHauteur = TailleReel.Height * Coeff x = (largeur - NewLargeur) / 2 y = (hauteur - NewHauteur) / 2 Picture1.PaintPicture TailleReel.Picture, x, y, NewLargeur, NewHauteur

merci faut que je regarde
mais je suis pas sur que vous aiyé compris que je souhaitai faire un traitement automatique des image
merci

MSN,MAIL:Benoit_com@hotmail.com

Ben tu peux très bien automatisé l'opération en faisant un programme !
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Tu peut faire un traitement automatique avec le code que je viens de te donner, il te suffit de le mettre sous forme de fonction dans un module et de faire appel a celle-ci a chaque chargement d'image.

oui merci ca doit pouvoir le faire
ya pu ka si remette

MSN,MAIL:Benoit_com@hotmail.com

Tiens je l'ai fais :
Voici le module:

Option Explicit Dim largeur, hauteur As Single Dim NewLargeur As Single Dim NewHauteur As Single Dim Coeff, coeff_x, coeff_y As Single Dim x As Single Dim y As Single Public Sub Resize(nom As String, Form As Form, pict As PictureBox) largeur = pict.Width hauteur = pict.Height pict.AutoRedraw = True pict.Cls Form.TailleReel.Visible = False Form.TailleReel.Picture = LoadPicture(nom) 'Si la taille réelle est plus petite que la picturebox sur les 2 axes : If Form.TailleReel.Width < largeur And Form.TailleReel.Height < hauteur Then x = (largeur - Form.TailleReel.Width) / 2 y = (hauteur - Form.TailleReel.Height) / 2 NewLargeur = Form.TailleReel.Width NewHauteur = Form.TailleReel.Height pict.PaintPicture Form.TailleReel.Picture, x, y, NewLargeur, NewHauteur 'Sinon pour les autres cas : Else: coeff_x = largeur / Form.TailleReel.Width coeff_y = hauteur / Form.TailleReel.Height If coeff_x > coeff_y Then Coeff = coeff_y Else: Coeff = coeff_x End If NewLargeur = Form.TailleReel.Width * Coeff NewHauteur = Form.TailleReel.Height * Coeff x = (largeur - NewLargeur) / 2 y = (hauteur - NewHauteur) / 2 pict.PaintPicture Form.TailleReel.Picture, x, y, NewLargeur, NewHauteur End If End Sub

La 1ère partie du IF n'est pas obligatoire, mais le code qui est dans le else lui l'ai. A toi de voir le code qui est dans le if permet de ne pas agrandir la taille de la phto réelle si ta pictureBox d'arrivée est plus grande (pour éviter d'agrandir les images qui ne sont pas de bonnes qualité). C'est un choix tu le met ou non.

Et voici un exemple de code pour appeler ta fonction:

Resize nom_photo, Form1, Picture1