Discussion :

[mecyber25]

Bonjour
Par findfirst('C:\photos\*.jpg',$01,resul) j'accède à la date d'enregistrement d'une photo sur mon disque dur : (resul.time).
Dans tous les cas pour cette année il m'affiche 2011, hors l'explorateur de windows 7 me dit que la photo a été créée en 2010, comment faire par Delphi 6 pour accéder à cette date de création et non à celle de mon enregistrement.
Merci pour vos éventuelles réponses.

[Andnotor]

Regarde GetFileTime.

[tourlourou]

Et pour retrouver la date de prise de vue d'un cliché au format Exif, il existe plusieurs bibliothèques ou unités qui peuvent le faire ; notamment LibExif, celle de XnView, et celle-ci, que j'ai commise.

[mecyber25]

Oui, mais...
je ne peux rien faire de cette fonction, car je cherche une sorte de fonction
inverse
function(nom fichier):datetime;
si tu connais?

[mecyber25]

A vrai dire, j'ai besoin d'une courte fonction pour une photo en jpg à intégrer dans un programme delphi 6

[ShaiLeTroll]

mecyber25, as tu regardé la FAQ Comment récupérer les dates associées à un fichier proposé par Andnotor ?

Il n'est pas difficile de la simplifier pour obtenir ce que tu cherche !

[mecyber25]

J'ai lu sa fonction, mais ne comprenant pas sa structure, je ne peux y réfléchir

D'autre part j'ai utilisé:
resul.FindData.ftCreationTime;
et cela me renvoie invariablement 2011
alors que resul.time fait de même !!!!????
Je ne comprend pas bien toutes ces fonctions ou procédures

[tourlourou]

je ne m'en sers plus depuis longtemps, mais ceci devrait fonctionner : en ajoutant dyExif à la clause uses, tu pourras en utiliser les fonctions comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
function GetExifDateTime(AFileName: TFileName): string;
var
  ExifDatas: TEXIF;
begin
  Result:=EmptyStr;
  ExifDatas:=TEXIF.Create(AFileName);
  Result:=TagToStr(OriginalDateTime, ExifDatas); // au format String[20] = 'YYYY:MM:DD HH:MM:SS'#0 
  ExifDatas.Free;
end;

[Whiler]

Personnellement, j'utilise CCR Exif.

Code :

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

1
2
3
4
5
6
7
8
  jImg := TJPEGImageEx.Create;
  try
    jImg.LoadFromFile('filename');
    jImg.ExifData.DateTimeOriginal;
    jImg.ExifData.DateTimeDigitized;
  finally
    jImg.Free;
  end;

[mecyber25]

TEXIF est sans doute un composant ou un Type non déclaré, il est non reconnu par mon D6
Les unites nécessaires à ces fonctions ne sont pas présentes dans la version de mon logiciel, j'ai rajouté DyExif au projet cela ne change rien....

[Fxg]

Tu as bien téléchargé DyExif.pas + copie dans ton répertoire + rajout de DyExif dans USES ?

[mecyber25]

Oui
et à la compilation:
Identificateur non déclaré: TEXIF

[tourlourou]

En effet, mauvais copier/coller : le nom complet de la classe est TEXIF_Data ! Mille excuses...

[mecyber25]

Mon fichier est au format jpg, je ne sais s'il faut le convertir au format exif, ce serait bien trop compliqué...Si c'est le cas ne pourrait-on convertir la fonction plutôt que le format ?
Dans le cas du jpg , la fonction ne donne rien:

Code :

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

1
2
an:=getexifdatetime(s); //s est le nom excat du fichier depuis la racine
showmessage(an); // le message affiche un blanc

[tourlourou]

pardon, voici un code fonctionnel : je ne me souvenais pas du fonctionnement de l'unité, car je l'ai par la suite encapsulée dans un objet...

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
procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
  Flux: TMemoryStream;
  ExifDatas: TEXIF_Data;
  Coderreur: integer;
begin
  if OpenPictureDialog1.Execute
  then begin
    S:=OpenPictureDialog1.FileName;
    Flux:=TMemoryStream.Create;
    Flux.LoadFromFile(S);
    if GetJpegFormat(Flux)=Ft_EXIF
    then begin
      ExifDatas:=TEXIF_Data.Create(S);
      if GetExifInfos(Flux, ExifDatas, Coderreur)
      then S:='Pris le : ' + TagToStr(OriginalDateTime, ExifDatas) // au format String[20] = 'YYYY:MM:DD HH:MM:SS'#0
      else S:='Erreur n° '+IntToStr(Coderreur);
      ExifDatas.Free;
    end
    else S:='pas de données Exif';
    ShowMessage(S); 
    Flux.Free;
  end;
end;

[mecyber25]

Nouveaux problèmes
1)Mon openpicturedialog,en delphi 6, dans l'inspecteur d'objets affiche bien un filtre contenant jpg ou jpeg mais à l'execution ces deux choix de filtres disparaissent. (malgré tous mes essais de numération dans filterindex).
2)j'ai abandonné openpicturedialog pour un
findfirst('K\Om\Zz\*.jpg',$01,resul);
et là il m'affiche en mettant en surbrillance la ligne
if GetJpegFormat(Flux)=Ft_EXIF
"Impossible d'ouvrir le fichier"...

[Whiler]

findfirst('K\Om\Zz\*.jpg',$01,resul);
et là il m'affiche en mettant en surbrillance la ligne
if GetJpegFormat(Flux)=Ft_EXIF
"Impossible d'ouvrir le fichier"...

Qu'est-ce que Flux ? Comment passes-tu de resul à Flux ?

[Whiler]

1)Mon openpicturedialog,en delphi 6, dans l'inspecteur d'objets affiche bien un filtre contenant jpg ou jpeg mais à l'execution ces deux choix de filtres disparaissent. (malgré tous mes essais de numération dans filterindex).

Avec Filter qui vaut :

Code :

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

All (*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.tif;*.tiff;*.ico;*.emf;*.wmf)|*.gif;*.png;*.jpg;*.jpeg;*.bmp;*.tif;*.tiff;*.ico;*.emf;*.wmf|GIF Image (*.gif)|*.gif|Portable Network Graphics (*.png)|*.png|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp|TIFF Images (*.tif)|*.tif|TIFF Images (*.tiff)|*.tiff|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf

et
FilterIndex := 4

j'ai par défaut JPEG Image File (*.jpg) lorsque la fenêtre de dialogue s'ouvre...

[mecyber25]

1)avec la methode de Tourlourou et openpicturedialog, on n'obtient rien car j'ai des images *.jpg et il me dit qu'il n'y a pas de format exif....

2)quand j'ai essayé findfirst j'ai écrit:
Flux.LoadFromFile(resul.name);

[tourlourou]

l'explorateur de windows 7 me dit que la photo a été créée en 2010

resul.FindData.ftCreationTime; et cela me renvoie invariablement 2011 alors que resul.time fait de même !!!!????

Tu as donc des clichés jpeg dont Windows sait trouver la date de prise, semble-t-il.
Comme il ne dispose pas de boule de cristal, c'est que l'information est dedans.
Pour des clichés issus d'APN, le format le plus fréquent est celui Exif, qui permet de loger des infos dans un fichier .jpg.
Ce n'est pas le seul format, cependant.
Il faudrait que tu nous donnes l'en-tête du fichier en hexadécimal : une douzaine d'octets devrait suffire pour savoir son type.
Par exemple, un fichier jpeg avec données Exif commence par :
FF D8 FF E1 XX XX 45 78 69 66 00 00
XX XX = longueur de la zone des données Exif
et en ASCII, 45 78 69 66 = Exif