Discussion :

[bakaneko]

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?

[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

[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.

[sat83]

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

[blondelle]

Quelque chose comme ceci

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
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

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

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

[bakaneko]

@Sat83 : je vais regarder ça

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