Wie kann ich Erzeugungsdatum einer Datei ermitteln ?

[SaFu]

prsearcher

Delphi-Quellcode:

angemeldet: 29.06.2007
Beiträge: 1

:gruebel: :gruebel:

[Die Muhkuh]

Wo ist das Problem?

[DeddyH]

Zitat:

Zitat von Die Muhkuh

Wo ist das Problem?

Wollte ich auch gerade fragen :lol:

[SaFu]

Da gibt es kein Problem ich finds lustig :mrgreen: sehr zurückgehalten mit so einem Fachwissen

[EccoBravo]

Ihr mögt Euch über mich lustig machen, aber wenn Ihr Euch schon in mehreren Programmen mit solch einer Sache herumgeärgert habt, das auch noch auf mehreren Rechnern / Betriebssystemen / Fotoapparaten, dann würdet Ihr auch stutzig werden.
Und falls Ihr genau gelesen haben solltet, es war eine Bugvermutung und keine Bugbehauptung.
Dann mal zur Begriffsbildung, ich bin es gewohnt, Sachen so zu bezeichnen, wie sie auch sind, Und die Dateien von denen ich spreche, entstehen im Fotoapparat, wenn ich auf den Auslöser drücke und nicht erst im Rechner beim Importieren, schliesslich liegen die Bilder auf den Fotoapparatestick als jpg und nicht als Schweizer Käse.
Also um uns richtig zu verstehen, es war eine Beobachtung und ich fragte nach Leuten, den ähnliches aufgefallen ist.
Und Exif hin und Exif her, entschuldigt bitte, ich konnte mir in meiner Einfältigkeit mit Internet-Hilfe nichts richtiges drunter vorstellen. Vielleicht hätte man sich für Erstellungsdatum und Änderungsdatum auch kompliziertere Begriffe aussuchen sollen, danm wäre es hier wohl nicht zu dieser Konsternation gekommen!

Jedenfalls darf ich mich dann auch wundern, wenn ich unter ftCreateTime nicht das Datum der Aufnahme sondern das Überspieldatum auf den Rechner finde und unter ftLastWriteTime nicht das Datum des Importierens (das wäre eigentlich das letzte Schreiben gewesen) sondern das eigentliche Erstelldatum. Aber vielleicht lebe ich hier in einer verkehrten Welt!


E. B.

[DeddyH]

Hallo EccoBravo, hier hat sich niemand über Dich lustig gemacht, das hast Du wohl in den falschen Hals bekommen. Und noch einmal zu Deinem Problem: das Erstellungsdatum ist ja das, an dem zu Deiner Datei (also dem Bild) ein Dateisystemeintrag angelegt wurde. Im Normalfall sollte es also das Datum sein, an dem das Bild auf Deinen Rechner kopiert wurde. Das von Dir gesuchte "Erstellungsdatum", an dem das Bild aufgenommen wurde, steht im Header der Bilddatei selbst, den sog. EXIF-Daten, die Du auf andere Weise auslesen musst. Ich hoffe, ich konnte den Sachverhalt korrekt und verständlich wiedergeben.

[SaFu]

Zitat:

Zitat von EccoBravo

Ihr mögt Euch über mich lustig machen

Ich glaube das sich hier niemand über dich lustig gemacht hat soweit ich es erkennen kann.
Und ich denke das man hier gut aufgehoben ist wenn es um Fachfragen geht oder wenn ein Problem zu lösen ist

Gruß Sascha

[EccoBravo]

Danke DeddyH und fuknersascha,

was ich hier geäußert habe, da bitte ich um Nachsicht bei allen Lesern, ist eine Vermutung.
Ich habe alle FileAttribute schon x-mal probiert, mit dem vorhin beschriebenen Resultat.
Zu den Exif-Attributen werde ich mich morgen äußern, wenn ich dieses nochmal Mal auf meinem HomeRechner getestet habe. Ich glaube, in die Klapper zu müssen, wenn der x+1te Test nun ein anderes Ergebnis bringen sollte.

Und dann einen Gruß an unseren Moderator Luckie -
http://www.delphipraxis.net/internal...t.php?t=133568
- auch in der Software gibt es Parallelen. Schließlich verwenden verschiedenen Programme auch mal das gleiche Betriebssystem und solche Querbeobachtungen helfen mitunter, im Puzzle der Softwarewelt Probleme zu erkennen.

Gruß E. B.

[FAlter]

Hi,

das Sortieren und Verarbeiten der Bilder erledige ich inzwischen auch automatisiert.
Ich mache es etwa so:

Delphi-Quellcode:

ImgData := TImgData.Create;
try
  ImgData.BuildList := GenAll;
  ImgData.ProcessFile(Filename);

  if ImgData.HasEXIF then
    Date := ImgData.ExifObj.GetImgDateTime
  else
  if ImgData.HasIPTC then
    Date := ImgData.IptcObj.GetDateTime
  else
    Date := ImgData.FileDateTime;

  //Kopieren in Verzeichnis gemäß Datum
  //Weitere Verarbeitung, z. B. Rotation gemäß der
  //Exif-Daten

  finally
    ImgData.Free;
  end;

Die Units dazu hab ich gefunden, als ich irgendeinem Link in der DP gefolgt bin. Ich glaub von hier: http://www.delphipraxis.net/internal...ct.php?t=26085

Ich hab zwar glaub ich schon in der TImgData rumgefummelt, aber das Beispiel hier dürfte auch mit dem Original so funktionieren.

Ansonsten habe ich die Erfahrung gemacht, dass beim Kopieren / Entpacken / ... immer nur das Datum der letzten Änderung auf den Wert der Originaldatei gesetzt wird, die anderen werden meist nicht beachtet (oder gar nicht erst im Archiv gespeichert). Beim Up/Download von Dateien nicht einmal das. Lade ich etwas auf einen FTP-Server hoch, so ist die "letzte Änderung" der Zeitpunkt des hochladens. Daher ist es eben sinnvoll, die direkt im Bild gespeicherten Daten zu verwenden.

Mfg
FAlter

[EccoBravo]

Vielen Dank FAlter,
Deinen Tip werde ich nachher probieren.

E. B.