Discussion :

[tunizar]

Bonjour,
Quelle est le meilleur moyen de réduire la taille d'une image sans la rendre pixélisée
Exemple : je reçois un fichier de 2 Mo je veux la rendre 512Ko
Merci !

[Invité]

Bonjour,
C'est pour convertir une image BMP en PNG, par exemple?
Dans ce cas, il y a la fonction dSauveImagePNG

[R&B]

Bonjour

Outre le redimenstionnement dans un champ image (rognage), avez-vous essayé dSauveImageJPEG en abaissant la qualité (<100) ? ou bien en png.

[tunizar]

Bonjour

Outre le redimenstionnement dans un champ image (rognage), avez-vous essayé dSauveImageJPEG en abaissant la qualité (<100) ? ou bien en png.

En fait j'ai oublié de dire que je n'ai pas d'interface , pas de fenêtre, alors c'est faisable ?

[Invité]

En fait j'ai oublié de dire que je n'ai pas d'interface , pas de fenêtre, alors c'est faisable ?

Vous avez quoi dans ce cas?

[Patrice Terrier]

c'est possible avec la flat API Windows GdipSaveImageToFile qui est gratuite, sinon avec une librairie graphique commerciale.

...

[jurassic pork]

hello,
peut-être en utilisant une variable de type image un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// Chargement d'une image photo de 2018 Ko 
MonImage est une Image = dChargeImage("C:\temp\DSC00001.jpg")
// Avec un facteur de qualité à 80% la taille du fichier passe à 488 Ko
dSauveImageJPEG(MonImage,"F:\temp\images\MonImageReducQualité.jpg",80)
// En sauvegardant en PNG la taille de l'image passe à 10182 ko ! 
dSauveImagePNG(MonImage,"F:\temp\images\MonImage.png")
dRedimensionne(MonImage,MonImage..Largeur/2,MonImage..Hauteur/2,drHauteQualité)
// avec une Réduction de taille de 50% et un facteur de qualite à 100%
// la taille du fichier passe à 865 Ko
dSauveImageJPEG(MonImage,"F:\temp\images\MonImageDiv4THQ.jpg",100)
// avec une Réduction de taille de 50% et un facteur de qualite à 90%
// la taille du fichier passe à 241 Ko
dSauveImageJPEG(MonImage,"F:\temp\images\MonImageDiv4HQ.jpg",90)

conseil :

/Si les images sont des photos utiliser du jpeg
Si les images sont des captures d'écran ou des images avec de larges plages à couleurs fixes utiliser du png

Ami calmant, J.P

[tunizar]

hello,
peut-être en utilisant une variable de type image un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// Chargement d'une image photo de 2018 Ko 
MonImage est une Image = dChargeImage("C:\temp\DSC00001.jpg")
// Avec un facteur de qualité à 80% la taille du fichier passe à 488 Ko
dSauveImageJPEG(MonImage,"F:\temp\images\MonImageReducQualité.jpg",80)
// En sauvegardant en PNG la taille de l'image passe à 10182 ko ! 
dSauveImagePNG(MonImage,"F:\temp\images\MonImage.png")
dRedimensionne(MonImage,MonImage..Largeur/2,MonImage..Hauteur/2,drHauteQualité)
// avec une Réduction de taille de 50% et un facteur de qualite à 100%
// la taille du fichier passe à 865 Ko
dSauveImageJPEG(MonImage,"F:\temp\images\MonImageDiv4THQ.jpg",100)
// avec une Réduction de taille de 50% et un facteur de qualite à 90%
// la taille du fichier passe à 241 Ko
dSauveImageJPEG(MonImage,"F:\temp\images\MonImageDiv4HQ.jpg",90)

conseil :


Ami calmant, J.P

Bonjour,
Bonne solution !! Merci !!! j'apprécie

[Invité]

Bonjour,
si tu as la LST 86, tu vas trouver le projet WD OptimiseurImages