Discussion :

[WOLO Laurent]

Comme mon message l'indique, je souhaite convertir une image d'un format .bmp vers le format .jpg
Car j'en ai des milliers et je ne peux pas le faire manuellement.

Merci.

[ridan]

Salut

Il y a une dll qui pourrait t'intéresser : IntelJPEGLibrary ( ijl.dll )

Plus d'infos ici

[WOLO Laurent]

Je vais tester et te tenir informé.
Apparemment l'information a été déplacée.
Merci.

[WOLO Laurent]

Intel ne fourni plus cette library.
Si vous avez une autre idée !!!

[DarkVader]

Et tu as fait l'effort de faire une recherche avec google et ijl11.dll

[Mandalar]

ben je dirais tu ouvres l'image avec un LoadPicture lorsque que c'est au format bmp et tu fais un SavePicture du genre :

Code :

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

SavePicture Image1, Chemin_Image + ".jpeg"

[DarkVader]

Sauf que tu peux toujours appeler ton fichier gif ou jpeg
il sera toujours enregistré comme un bmp

[Mandalar]

Ah je savais pas désolé

[WOLO Laurent]

Et tu as fait l'effort de faire une recherche avec google et ijl11.dll

Bien sur, en fait je vais voir si avec GDI+ je ne pourrais pas le faire.

[ThierryAIM]

Et tu as fait l'effort de faire une recherche avec google et ijl11.dll

Bien sur, en fait je vais voir si avec GDI+ je ne pourrais pas le faire.

Ah bon

http://visual.basic.free.fr/visual/Teleocx.php3

[WOLO Laurent]

5/5 Monsieur.

[WOLO Laurent]

Une grande surprise !

J'ai trouvé la dll mais il ne réponds à mes attentes.
En fait cette Dll travaille seulement avec les fichiers .jpg.
Elle permet de definir plusieurs niveau de compression mais elle ne convertit pas l'image d'un format vers un autre.

Je veux convertir les bmp en jpg.
Nous sommes déjà sur la piste mais qui dit mieux ?

[ridan]

salut

Code :

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

1
2
3
4
Dim Trans As aDIBSection
Set Trans = New aDIBSection
Trans.CreateFromPicture LoadPicture("C:\MyImage.bmp")
SaveJPG Trans, "C:\MyImage.jpg", 100

[Mat1974]

Ouah Maginifique

Ridan, je crois que tu as scotché tout le monde avec tes 4 lignes de codes ... Adieux les dll et classes trop lourdes ... vive la simplicité !

Merci...

[riemp]

Bonjour, je suis interessé par ce code, mais je ne trouve pas quelle référence
ajouter au projet, si quelqu'un pouvait me renseigner svp, merci

[OhMonBato]

Sauf erreur de ma part, malgré le post de Mat1974 qui n'a pas dû trop essayer avant de faire son commentaire (...), il te faut la dll ijl11.dll que tu peux trouver grâce au lien de ThierryAIM au dessus.

[riemp]

Bonjour HoMonBato,

Merci de ta réponse. J'avais déjà essayé de charger la dll, je n'arrive pas
à l'ajouter au projet, il y a certainement quelque chose que je ne fais pas bien : projet/references -> ijl11 n'est pas dans la liste et si je fais parcourir,
vb ne veut pas la rajouter au composant selectionné et il n'y a pas moyen de ne pas en selectionner. , pas moyen non plus en essayant de rajouter un composant. J'ai copié aussi la dll dans /system32. Saurais tu nme dire si c'est ma manip qui foire stp? @+ et merci d'avance

[DarkVader]

Bonjour HoMonBato,

Merci de ta réponse. J'avais déjà essayé de charger la dll, je n'arrive pas
à l'ajouter au projet, il y a certainement quelque chose que je ne fais pas bien : projet/references -> ijl11 n'est pas dans la liste et si je fais parcourir,
vb ne veut pas la rajouter au composant selectionné et il n'y a pas moyen de ne pas en selectionner. , pas moyen non plus en essayant de rajouter un composant. J'ai copié aussi la dll dans /system32. Saurais tu nme dire si c'est ma manip qui foire stp? @+ et merci d'avance

Ijl11 n'a jamais été une dll automation - relis le sujet de ce thread depuis le début.

[riemp]

est-ce que j'ai bien compris? MAT1974 a t'il réussi à faire fonctionner le code de RIDAN? SI oui comment? car à l'exécution de celui-ci avec la compilation, sur 'aDIBSection' -> Err("le type n'est pas défini par l'utilisateur"). Je n'ai pas réussi à comprendre ce qui changeait si la .dll était automation OU pas. Merci à celui OU celle qui m'apportera la lumière....OU pas....

[DarkVader]

"le type n'est pas défini par l'utilisateur"

signifie que la portée d'une variable de type(udt)
ne correspond pas à sa déclaration ou qu'un object est manquant.
Exécute le code en pas à pas pour en trouver l'origine.