Discussion :

[DURVILLE]

Après avoir parcouru le Web (Site Michel etc...) je n'ai pas trouvé un code simple pour récupérer le titre (mis par mes soins - onglet "résumé") sur un fichier jpg. (ça marche aussi avec d'autres fichiers (.doc)...)

J'ai lu que cette propriété semblait être liée à l'installation d'Office.

Le curieux c'est que ça s'applique à des fichiers comme jpg ...
(qui ne sont pas liés à Office)

Bref, lorsque l'on fait afficher les détails dans un répertoire, on obtient pour les fichiers : taille, type, date... et si l'on veut (en cochant) : TITRE.

C'est ce que j'aimerais récupérer avec du code Delphi ...

G.Geyer consulté m'a fait savoir qu'il n'avait pas accès à ces données avec W98. (Plus sûrement lié au format NTFS)

Merci

[tourlourou]

effectivement, ces infos ne sont pas stockées dans le jpeg (on peut en mettre : commentaire ou exif) mais relatives à ntfs ; voici une unité de l'excellent Columbo pour les lire

[DURVILLE]

Merci pour ce lien que je connaissais ...
c'est à lui que je fais allusion quand je parle de code pas simple ...
Ce code fait tout : il peut lire et ECRIRE les Informations /Résumé
d'un fichier sur partition NTFS. Chapeau !

Effectivement le code de Columbo (Site Phidels) marche mais je suis incapable de le simplifier pour
obtenir UNIQUEMENT la lecture du Titre.

[tourlourou]

Titre.Text :=GetFileSummaryInfo(FileName, FMTID_SummaryInformation, PIDSI_TITLE);

doit être la ligne qui t'intéresse dans la fonction TForm1.LireClick

et permet de récupérer le titre mis en résumé

[DURVILLE]

Oui, effectivement cette ligne est facile à trouver et on peut sans problème faire sauter toute la procédure "Modifier" ...
MAIS !
ce qui est de l'hébreu c'est l'unité "storage.pas" jointe.
Elle n'est pas commentée et semble servir à beaucoup de choses qui pour moi sont inutiles ...

[tourlourou]

constantes : ne garde que

Code :

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

1
2
3
4
5
6
7
8
const  
  FMTID_SummaryInformation          : TGUID =  
    '{F29F85E0-4FF9-1068-AB91-08002B27B3D9}'; 
 
  STGFMT_ANY         = 4;
 
  // Summary Information  
  PIDSI_TITLE        = $00000002;     // VT_LPSTR

ce qui ne devrait pas te servir :
types TMultipleArray et TMultipleArrayList
fonctions SetFileSummaryInfo et SetMultipleFileSummaryInfo ;
garde le reste ! et une fois nettoyée, l'unité te paraîtra plus facile, je pense...

en initialisation, elle vérifie la version Windows et appelle la dll qui propose l'accès au stockage de ces infos

[DURVILLE]

Merci d'avoir fait cette recherche pour moi.

Le code va du coup s'alléger !

Tes actions vont monter Tourlourou !
(C'est bon en cette période !)

[DURVILLE]

J'ai retiré résolu !
- ça marche avec les fichiers .txt
- pas avec mes .jpg !!!(pour lesquels on peut pourtant mettre un titre en passant par Propriétés/Résumé/Titre )

Si je renomme mon jpg en txt (hérésie !) ça marche !

Bizarre !

[tourlourou]

FMTID_ImageSummaryInformation : TGUID =
'{6444048f-4c8b-11d1-8b70-080036b11a03}';

essaye avec Titre.Text :=GetFileSummaryInfo(FileName, FMTID_ImageSummaryInformation , PIDSI_TITLE);

[DURVILLE]

Effectivement, ce que tu proposes (Tourlourou) est logique...
Mais ... ça ne marche pas !

En regardant l'unité "Storage" on s'aperçoit que pour les constantes
on a une association pour :
- FMTID_SummaryInformation : en dessous on a une serie de constantes commençant par : PIDSI_Title

- idem pour les doc
- idem pour mediafile, pour audio et vidéo et ...

RIEN pourFMTID_ImageSummaryInformation ...
Là est peut-être le problème ...

Je vais essayer de joindre Columbo ...