Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!

Mobiles Hauptmenü

Lesen und Schreiben von exif-Daten in Bilddateien

Begonnen von bahasu, Oktober 18, 2009, 09:46:54

⏪ vorheriges - nächstes ⏩

bahasu

Hallo

Mein Ziel ist es, die exif-Daten von Bilddateien in einer access-Tabelle zu speichern, um sie besser auswerten zu können.

Zusätzlich will ich in Einzelfällen einige Daten korrigiert in die Bilddatei zurückspeichern: Konkreter Anlass: Zeit war an der Kamera falsch eingestellt und ich will die Aufnahmezeit um einen Offset verändern.

Frage:
Wie kann ich in access mit VBA an die exif-Daten kommen?
Wie kann ich die Daten in die Bilddatei zurückspeichern?

Danke für Eure Unterstützung
Harald

Servus

accessundich

Hier findest Du ein VB-Projekt, welches auch auf VBA adaptiert werden könnte:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=48293&lngWId=1

Und hier eine ReaderClass, die vielleicht nützlich sein könnte:
http://sourceforge.net/projects/exifclass/

Viel Erfolg
Andi
---
Ich stelle keine komischen Fragen: Ich bin komisch.

bahasu

#2
Hi Andi

Danke für die Links.
Den ersten werde ich mir näher anschauen.
Den zweiten hatte ich mir schon mal angeschaut, aber noch nicht umgesetzt, da ich ungern etwas von mir unbekannten Seiten runterlade.

Bin also für weitere Tipps dankbar.

Harald

Servus

PeterW

ich habe das einmal ausprobiert und erhalte in der untenstehenden Zeile die Fehlermeldung:
"Index außerhalb des gültigen Bereiches"

MsgBox "Auslösezeit: " & objExifReader.Tag(DateTimeDigitized), vbInformation

der Wert in DateTimeDigitized ist 36868

ratlose Grüße aus Berlin
Peter
Viele Grüße aus Berlin
Peter

PeterW

Ich bin nach langer Zeit wiedereinmal an dem Thema aber ich habe noch keine Lösung gefunden.
kann mir jemand weiterhelfen.
Viele Grüße aus Berlin
Peter

daolix

#5
liegt evtl daran das DateTimeDigitized in der entsprechenden Datei nicht vorkommt. Die von dir verwendete Class kenn ich nicht aber ggf musst du die in der Datei vorkommenen Tags erst mal auf auf ihrere Existenz hin überprüfen.

PeterW

Hallo Access-Gemeinde
Wieder einmal beschäftige ich mich mit den Exif-Daten, in der Hoffnunbg, dass es nach so langer Zeit etwas neues geben könnte.
Nun habe ich bei der Suche im Netz eine MDB Datei mit einem Exif-Viewer gefunden, die alle Exif-Daten mittels VBA ausgibt. Ich habe mir den Quellcode angesehen, und war überzeugt, dass dieser Code leicht zu modifizieren ist, um eigene Wünsche zu realisieren ohne sich mit der Binärsdressierung auskennen zu müssen.
Leider habe ich, als ich damit arbeiten wollte, die MDB nicht wiedergefunden; weder auf meinem Rechner noch im Netz. Ich habe auch keinen Namen der Datei.
Charakteristisch im Quellcode ist die Zusammenfügung aller Exif-Werte in einem einzigen String, formatiert mit vbNewLine.
Kennt jemand diese MDB oder gibt es eine andere, die sich ähnlich leicht in eigene Programme einfügen lässt.
Viele Grüße aus Berlin
PeterW
Viele Grüße aus Berlin
Peter

Hondo

#7
Hallo,
da gibts doch schon ein Beitrag dazu:
http://www.access-o-mania.de/forum/index.php?topic=13597.15

Außerdem findest du unter dem Suchbegriff "VBa Exif Viewer" jede Menge Lösungen.

Andreas

bahasu

Hi

Und hier nach einer "kleinen" Pause ein Link, der mir geholfen hat:
https://www.everythingaccess.com/tutorials.asp?ID=Extracting-GPS-data-from-JPEG-files
Es gibt dort nicht nur die im Titel genannten GPS-Daten sondern z.B. auch das Aufnahmedatum.

Harald
Servus