Fichiers JPG et métadonnée

Version imprimable

23/10/2008, 08h37
bakaneko

Fichiers JPG et métadonnée

Bonjour,

j'aurais besoin de pouvoir lire et écrire dans les métadonnées d'un fichier JPG. En cherchant sur le net, j'ai trouvé 3 articles Wikipedia (l'un sur les métadonnées, l'autre sur XMP et le dernier sur EXIF) mais je n'ai rien trouvé sur comment faire ceci avec Builder.

Quelqu'un aurait une idée?
05/11/2008, 22h25
blondelle

Salut bakaneko
Si c'est pour modifier un Jpg apparemment tu ne peut pas le faire directement il n'aurait pas de canvas ?, il faut passer par un Bitmap
06/11/2008, 08h08
bakaneko

Ce n'est pas pour modifier l'image en elle-même mais pour intégrer une donnée texte à l'image.
Pour être précis, je récupère via un logiciel d'une société partenaire des images provenant d'un système de relevé routier (image prise sur la route tous les X mètres avec les coordonnées GPS). Pour éviter de devoir me balader avec autres choses que les images, j'aimerais pouvoir intégrer les coordonnées GPS (voir les coordonnées PR) à l'image de telle façon que je pourrais les lire facilement.
06/11/2008, 08h39
sat83

Peut etre avec le composant TExif (freeware sur Torry.net).

Quelque chose comme ceci

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
45
46
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "jpeg.hpp" // doit être inclus dans le fichier source
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        // Creéation de l'objet Image JPEG
TJPEGImage *pJpeg = new TJPEGImage();
        // Chargement de l'image JPEG
pJpeg->LoadFromFile("C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Grue_Atelier.JPG");
Image1->Width = pJpeg->Width;
Image1->Height = pJpeg->Height;
// HandleType permet de connaître ou de modifier le type du bitmap.
// Les DDB se dessinent sans doute plus rapidement à l'écran,
// mais peuvent être stockés en mémoire dans un format propre au périphérique.
// Les DIB sont stockés en mémoire dans un format standard supporté
// par tous les périphériques (y compris les imprimantes).
// apparemment necessaire pour les tres grandes images
Image1->Picture->Bitmap->HandleType = bmDIB;
         // Transfert le jpeg
Image1->Picture->Bitmap->Assign(pJpeg);
Image1->Picture->Bitmap->Canvas->Font->Size = 18;
Image1->Picture->Bitmap->Canvas->Font->Color = clRed;
Image1->Picture->Bitmap->Canvas->TextOutA(0, 0, "texte");
Image1->Picture->Bitmap->SaveToFile("C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Grue_Atelierxx.JPG");
delete pJpeg;
}
//---------------------------------------------------------------------------
/*
j'ai eu le soucis sur des bigs images, et si je mets bitmap.HandleType := bmDIB
juste apres l'avoir créé, alors le problème d'espace insuffisant ne se produit
 plus. Un load d'une image du genre bitmpa.loadfromfile('blank.bmp') resoult
  le pb également.
*/

un lien

Citation:

http://www.developpez.net/forums/d15...randes-images/

Comme support a la place du TImage tu peut utiliser un bitmap ou un TMetafile

07/11/2008, 10h16
bakaneko

@Sat83 : je vais regarder ça ;)

@Blondelle : je ne veux pas écrire/lire sur une image, je veux écrire/lire dans une image :P
Je veux faire un peu comme remplir les informations Titre, Auteur, etc. des fichiers Word mais pour un fichier image.