Wie komme ich an die verschiedenen Datumswerte einer Datei?

[Woodman]

Hallo Wissende,
tja, die Frage ist sicher schon hundertmal beantwortet worden, aber für mein Problem habe ich noch keine Lösung gefunden.
Folgendes: Bekannt ist mir diese Routine:

Delphi-Quellcode:

// Hier gefunden: https://www.delphipraxis.net/6594-letzten-zugriff-auf-datei-auslesen.html
function GetFileTimes(const FileName: string; var Created: TDateTime;
var Accessed: TDateTime; var Modified: TDateTime): Boolean;
var
  h: THandle;
  Info1, Info2, Info3: TFileTime;
  SysTimeStruct: SYSTEMTIME;
  TimeZoneInfo: TTimeZoneInformation;
  Bias: Double;
begin
  Result := False;
  Bias := 0;
  h := FileOpen(FileName, fmOpenRead or fmShareDenyNone);
  if h > 0 then
  begin
    try
      if GetTimeZoneInformation(TimeZoneInfo) <> $FFFFFFFF then
        Bias := TimeZoneInfo.Bias / 1440 * 2; // 60x24
      GetFileTime(h, @Info1, @Info2, @Info3);
      if FileTimeToSystemTime(Info1, SysTimeStruct) then
        Created := SystemTimeToDateTime(SysTimeStruct) - Bias;
      if FileTimeToSystemTime(Info2, SysTimeStruct) then
        Accessed := SystemTimeToDateTime(SysTimeStruct) - Bias;
      if FileTimeToSystemTime(Info3, SysTimeStruct) then
        Modified := SystemTimeToDateTime(SysTimeStruct) - Bias;
      Result := True;
    finally
      FileClose(h);
    end;
  end;
end;

Diese Routine gibt mir das Creation Date, Last access date und das Modified date zurück. Soweit, so gut...
Mein Explorer zeigt aber 4 Datumswerte an:
Explorer-Auszug-Datumjpg.jpg
In meinem Falle such ich das tatsächliche Erstell- bzw. Scan-Datum. Da die Dateien schon mal umkopiert wurden, zeigt das Erstell-Datum nur das Kopierdatum an. Das eigentliche Erstelldatum wird hier unter "Datum" angezeigt.
Wie komme ich an dieses Datum heran??

[Delphi.Narium]

Eventuell EXIF-Daten aus dem JPeg?

https://www.google.com/search?q=delp...utf-8&oe=utf-8

https://sno.phy.queensu.ca/~phil/exi...ames/EXIF.html

https://www.get-metadata.com/

[Woodman]

Zitat von Delphi.Narium:

Eventuell EXIF-Daten aus dem JPeg?

...

Nee, leider nicht. Die Dateien sind - wie ich oben schon angedeutet habe - die Ergebnisse eines Dia-Scanners. Und der schreibt leider keine Exifdaten rein. Das ist aber genau das, was ich machen möchte.

[philipp.hofmann]

Das Datum mit dem letzten Update findest Du folgendermaßen heraus und dies ist auf allen OS kompilierbar (ich kann jetzt aber nicht die Hand in's Feuer legen, dass es auch auf allen OS einen brauchbaren Wert zurückliefert, das müsste ich erst testen):

Delphi-Quellcode:

class function TFileUtils.getFileChangeDate(filename:String):TDateTime;
var sr: TSearchRec;
begin
  Result := 0;
  try
    if FindFirst(filename, faNormal, sr) = 0 then
      Result := sr.TimeStamp;
  finally
    FindClose(sr);
  end;
end;

[Woodman]

Zitat von philipp.hofmann:

Das Datum mit dem letzten Update findest Du folgendermaßen heraus ....

Vielen Dank, das funktioniert... Ist aber leider nicht das was ich gesucht habe. S.o.
Tatsächlich gibt Deine Routine das gleiche zurück wie SysUtils.FileAge(Filename), also das Änderungsdatum.

[Luckie]

Ich sehe auf dem Screenshort nur drei Datumswerte.

[jaenicke]

Zitat von Woodman:

Nee, leider nicht. Die Dateien sind - wie ich oben schon angedeutet habe - die Ergebnisse eines Dia-Scanners. Und der schreibt leider keine Exifdaten rein. Das ist aber genau das, was ich machen möchte.

Die EXIF-Daten werden manchmal in etwas unterschiedlichen Formaten hineingeschrieben, was dazu führt, dass nicht alle Tools diese lesen können. Der Windows Explorer ist dort sehr universell und kann die meisten dieser Formate lesen.

Eine andere Möglichkeit für ein Datum im Dateiystem gibt es dort nicht, es wird nur aus der Datei ausgelesen und bei Misserfolg das Änderungsdatum aus dem Dateisystem angezeigt.

[Woodman]

Hallo Leute,
vielen Dank für Eure Beiträge. Ich glaube, ich muss das mal in einem Microsoft-Forum anfragen.
Tatsächlich sind in den JPEGs keine Exif-Infos drin. Es gibt zwar diverse andere Infos drin. XnView zeigt mir z.B. diese Datei-Eigenschaften an:
XnView-Ansicht1.jpg
Da stehen tatsächlich auch drin, welche Software den Scan durchgeführt hat - aber eben nicht als Exif und auch nicht als IPTC.
Auch bei "normalen" Dateien sind dies 4 Datumswerte vorhanden:
Explorer-Auszug-Datum2.jpg
Wie man sieht, hat das "Datum" nicht immer das entsprechende Pendant eines anderen Datumwertes. Bei der Datei "termine2019.xls" im oberen Bild z.B. weicht der Wert von "Datum" von den anderen Datumswerten ab.

Ich werde weiter forschen...

[Delphi.Narium]

Schonmal in die Spezifikation für JPegs geschaut?

https://www.w3.org/Graphics/JPEG/jfif3.pdf

http://www.aboutvb.de/bas/formate/pdf/jpg.pdf

Da steht so etliches von dem drin, was XNView (und andere Progranmme) anzeigen können.

EXIF ist "nur" ein AddOn, damit man in Bildern auch solche Daten speichern kann, die für die Darstellung der Bilder eigentlich nicht erforderlich sind. Also quasi eine "Kommentarfunktion nach definierten Regeln"

[peterbelow]

Zitat von Woodman:

Hallo Wissende,
tja, die Frage ist sicher schon hundertmal beantwortet worden, aber für mein Problem habe ich noch keine Lösung gefunden.
Folgendes: Bekannt ist mir diese Routine:

Delphi-Quellcode:

// Hier gefunden: https://www.delphipraxis.net/6594-letzten-zugriff-auf-datei-auslesen.html
function GetFileTimes(const FileName: string; var Created: TDateTime;
var Accessed: TDateTime; var Modified: TDateTime): Boolean;
var
  h: THandle;
  Info1, Info2, Info3: TFileTime;
  SysTimeStruct: SYSTEMTIME;
  TimeZoneInfo: TTimeZoneInformation;
  Bias: Double;
begin
  Result := False;
  Bias := 0;
  h := FileOpen(FileName, fmOpenRead or fmShareDenyNone);
  if h > 0 then
  begin
    try
      if GetTimeZoneInformation(TimeZoneInfo) <> $FFFFFFFF then
        Bias := TimeZoneInfo.Bias / 1440 * 2; // 60x24
      GetFileTime(h, @Info1, @Info2, @Info3);
      if FileTimeToSystemTime(Info1, SysTimeStruct) then
        Created := SystemTimeToDateTime(SysTimeStruct) - Bias;
      if FileTimeToSystemTime(Info2, SysTimeStruct) then
        Accessed := SystemTimeToDateTime(SysTimeStruct) - Bias;
      if FileTimeToSystemTime(Info3, SysTimeStruct) then
        Modified := SystemTimeToDateTime(SysTimeStruct) - Bias;
      Result := True;
    finally
      FileClose(h);
    end;
  end;
end;

Diese Routine gibt mir das Creation Date, Last access date und das Modified date zurück. Soweit, so gut...
Mein Explorer zeigt aber 4 Datumswerte an:
Anhang 51162
In meinem Falle such ich das tatsächliche Erstell- bzw. Scan-Datum. Da die Dateien schon mal umkopiert wurden, zeigt das Erstell-Datum nur das Kopierdatum an. Das eigentliche Erstelldatum wird hier unter "Datum" angezeigt.
Wie komme ich an dieses Datum heran??

Das angezeigte Erstelldatum kann nur in der Datei selbst stehen, es ist nicht Teil der Metadaten des Filesystems. Explorer weis offenbar, wie er das aus der jpg-Datei ecxtrahieren muss (eventuell ein Plugin der Scannersoftware??).