Voici comment modifier le TAG d'une image avec WIA, suite a ce tuto et ce post
http://silkyroad.developpez.com/VBA/...geAcquisition/
http://www.developpez.net/forums/d74...rahie-windows/
Le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
// #include <utilcls.h> // <---------ne pas oublier
 
void __fastcall TForm1::Button13Click(TObject *Sender)
{
// Titre, Commentaire, Auteur, Mots clés
 
// creation TAG TITRE copie Image
Variant vMSWIAVector, vMSWIAImageProcess, vMSWIAImageFile;
 
// Création conteneur pour l'image à manipuler
vMSWIAImageFile = Variant::CreateObject("WIA.ImageFile");
// creation du gestionnaire de filtre
vMSWIAImageProcess = Variant::CreateObject("WIA.ImageProcess");
// création d'un vecteur
// (Un vecteur permet de créer une collection pour des valeurs du même type.)
vMSWIAVector = Variant::CreateObject("WIA.Vector");
 
// chargement de l'image
vMSWIAImageFile.OleFunction("LoadFile", "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Grue_Atelier.jpg");
 
//  définit le filtre pour gérer l'EXIF
vMSWIAImageProcess.OlePropertyGet("Filters").OleProcedure("Add", (vMSWIAImageProcess.OlePropertyGet("FilterInfos", "Exif").OlePropertyGet("FilterID")));
vMSWIAImageProcess.OlePropertyGet("Filters", 1).OlePropertySet("Properties", "ID", 40091);
                                                          // 40091  Titre
                                                                        // 40092  Commentaire
                                                          // 40093  Auteur
                                                          // 40094  Mots clés
// spécifie le type de valeur pour le propriété du filtre:
// constante VectorOfBytesImagePropertyType = 1101 (la valeur est un vecteur)
vMSWIAImageProcess.OlePropertyGet("Filters", 1).OlePropertySet("Properties", "Type", 1101);
// voir le fichier d'aide fourni avec la librairie WIA pour
// obtenir la liste des constantes disponibles
// stocke une chaine de caractères dans le vecteur
vMSWIAVector.OleProcedure("SetFromString", "Test de TAG 'TITRE' : utilisation de WIA v2.0");
// applique au filtre le contenu du vecteur
vMSWIAImageProcess.OlePropertyGet("Filters", 1).OlePropertySet("Properties", "Value", vMSWIAVector);
 
// application du filtre dans l'image
vMSWIAImageFile = vMSWIAImageProcess.OleFunction("Apply", vMSWIAImageFile);
 
// sauvegarde de l'image
vMSWIAImageFile.OleFunction("SaveFile", "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\fourmiz_Test_EXIF.JPG");
}