Discussion :

[titi34]

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 :

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

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:


Mais si j'écris un tag:

Code :

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

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 :

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

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:


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

[unparia]

Bonjour

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.

[titi34]

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.