Windows10 et GDI+

Bonjour
j'utilisais GDI+ avec Excel 2007 pour gérer des marqueurs EXIF de fichiers images JPEG, et je ne me souviens pas avoir eu de problème jusqu'à maintenant, mais depuis que j'ai Windows10 (64b) j'ai quelques soucis.

Ce code basé sur le module de classe de Thierry GASPERMENT marche sans problème:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

' Déclaration de la classe Dim clGdip As New ClGdiPlus   Sub MsgBoxTailleImage() Tfichier = "C:\Photos\scan\imgtst.jpg" lFichier = "C:\Photos\scan\imgtst1.jpg" ' Ouverture du fichier clGdip.OpenFile Tfichier ' Taille de l'image MsgBox clGdip.GetExifData(TagImageWidth) & " x " & clGdip.GetExifData(TagImageHeight) End Sub

---

on obtient bien la taille:
Pièce jointe 224705

Mais si j'écris un tag:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub EcrireUserComment() Tfichier = "C:\Photos\scan\imgtst.jpg" lFichier = "C:\Photos\scan\imgtst1.jpg" ' Ouverture dU fichier clGdip.OpenFile Tfichier ' UserComment clGdip.SetExifData TagUserComment, "---exemple de commentaire---" ' Sauvegarde les modifs dans un nouveau fichier clGdip.SaveJpegLossLess lFichier End Sub

---

quand je le lis avec ce code:

Code:

---

1 2 3 4 5 6 7 8

Sub MsgBoxUserComment() Tfichier = "C:\Photos\scan\imgtst.jpg" lFichier = "C:\Photos\scan\imgtst1.jpg" ' Ouverture du nouveau fichier clGdip.OpenFile lFichier ' UserComment MsgBox clGdip.GetExifData(TagUserComment) End Sub

---

j'obtiens:
Pièce jointe 224704

Etrange, mais j'ai essayé avec WIA au lieu de GDI+ et ça donne encore un autre résultat tout aussi problématique.
Avez-vous eu ce genre de soucis ?
Une idée de ce qui peut avoir changé avec W10 ?
Merci

Bonjour

Citation:

---

Une idée de ce qui peut avoir changé avec W10 ?

---

rien, si ce n'est le typage, en 64 bits, des paramètres de la ou des fonction(s) utilisée(s) d'une librairie de l'Api de Windows.
Ce sont les déclarations de ces fonctions qui sont concernées, pas le code qui les utilise.

Merci unparia,
la gestion des API dépasse mes compétences, mais en lisant tout ce que j'ai pu trouver, en particulier des tutos d'Arkan, j'avais compris sans doute à tort que le problème se posait pour le passage d' Office 32bits à 64bits. Jusqu'à maintenant j'utilise Office 2003 donc 32 bits, mon OS étant 64bits.

Je sens bien qu'il y a un léger problème là!
Merci encore de la remarque.