Comment modifier le TAG (Titre, Commentaire, Auteur, Mots clés) d'une image avec WIA
Voici comment modifier le TAG d'une image avec WIA, suite a ce tuto et ce post
Le code
Code:
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");
} |
