OVH Cloud OVH Cloud

Taille en px d'une image ?

2 réponses
Avatar
soli
Bonjour,
Je souhaiterais créer un programme qui redimensionne toutes les images
d'un dossier afin de créer des miniatures ...
Y'a t-il la possibilité de faire ceci avec windev ? je n'ai pas trouvé
les fonctions le permettant ! Impossible par exemple de sortir les
dimensions d'une image !

Merci de votre aide ! Ah pour info j'ai la version 8

2 réponses

Avatar
SP&B
> Je souhaiterais créer un programme qui redimensionne toutes les images
d'un dossier afin de créer des miniatures ...
Y'a t-il la possibilité de faire ceci avec windev ? je n'ai pas trouvé les
fonctions le permettant ! Impossible par exemple de sortir les dimensions
d'une image !



Bonjour,

1ère possibilité :
Vous créez dans une fenêtre 2 champs image, Image1 et Image2 avec l'attribut
homothétique centré et un bouton.
L'image1 de taille 200 x 200 (par exemple) et l'image 2 de taille 32 x 32
(toujours par exemple)
Vous chargez l'image a traiter dans image 1 et dans le bouton, vous mettez
le code suivant :
dCopieImage(Image1, Image2, copieSrcCopie, 0, 0, 200, 200, 0, 0, 32, 32)
dSauveImageJPEG(Image2, "C:Mes ProjetsGereFilmsExeImageCopie0001.jpg",
100)
Lors du clic du bouton l'image 1 réduite ve être copié dans l'image 2 et
sauvée sur disque sous le format réduit sous le nom ImageCopie0001.jpg
A vous d'ajouter les éléments nécessaires pour charger et sauver les images
désirées de manière automatique.

2ième possibilité :
Vous créez un champ image (Image1) de taille réduite (la dimension que vous
désirez pour vos miniatures) avec l'attribut homothétique centré et un
bouton.
Vous chargez l'image grand format dans Image1
Dans le bouton vous mettez le code suivant :
dSauveImageJPEG(Image1, "C:Mes ProjetsGereFilmsExeImageCopie0001.jpg",
100)
La aussi, à vous d'ajouter les éléments nécessaires pour charger et sauver
les images désirées de manière automatique.

Sincères salutations
--
Jean-Claude FLAJOULOT

(otez _no_Spam pour me contacter en privé)
Sécurité Pointage & Biométrie
http://www.sp-et-b.com
Avatar
SP&B
Bonjour,

Concernant la taille en pixels d'une image, voir InfoBitmap dans l'aide

exemple donnant toutes les caractéristiques d'une image :
sInfo est une chaîne
sInfo = InfoBitmap("D:Mes ProjetsGereFilmsExeImageCopie0001.jpg")
Info(sInfo)

Sincères salutations
--
Jean-Claude FLAJOULOT

(otez _no_Spam pour me contacter en privé)
Sécurité Pointage & Biométrie
http://www.sp-et-b.com