Abmessungen eines Bildes ermitteln (ohne EXIF)

[Bembel]

 :-[Ich bin dabei mir eine Datenbank für meine Bildersammlung zu erstellen. Darunter sind auch Pics die ich nicht selbst aufgenommen habe. z.T. sind die eingescannt, aus dem Web, von Freunden, usw. Oder es sind BMP- oder GIF-Dateien. Da ist ja nichts mit EXIF und die ExifReaderClass versagt. Aber im Win-Explorer (WIN7 Ultimate) werden mir die Abmessungen angezeigt. Gibt es eine Möglichkeit mit Access 2003 Serv.-Pack 3 diese Daten irgendwie auszulesen und in einer Tabelle zu speichern?

Schon jetzt mal vielen Dank für eine Hilfe.

Bembel

[Hondo]

Hallo,
sieh mal hier: http://www.office-loesung.de/ftopic89707_0_0_asc.php

Gruß Andreas

[Bembel]

Danke. Aber das hilft mir wenig. Wie macht man das ohne den FileDialog? Ich lese die Dateien rekursiv in einer "ForEach...Next"- Schleife ein. Damit werden alle Bilder, auch die in den Unterordnern, in einer Tabelle erfasst. Das können bei einem Durchlauf etliche hundert sein. Mir ist nicht ganz klar wie ich das mit msoFileDialogFilePicker hinkriege. Ist der überhaupt in Access 2003 enthalten? Wenn ich den Code richtig kapiere müßte ich da bei jedem Bild auf OK klicken.
Oder habe ich was falsch verstanden.
Aber auf jeden Fall erst einmal Danke für die Antwort.

[daolix]

Hallo

Wie macht man das ohne den FileDialog?

indem du alles zwischen und mit den Zeilen
With Application.FileDialog(msoFileDialogFilePicker)
und
End With
löschst.

Den Rest must du wie auch immer geartet in deine ForEach...Next schleife einbringen und entsprechen deiner Vorstellung aufarbeiten
Ich glaube jetzt nicht das genannter Code für alle Bildformate funktioniert. Dazu müsstest du die Bilddateien z.B. mit GDIP laden. einen Passenden Code habe ich aber leider nicht zur Hand.

[Bembel]

 :)Das ging aber flott. Die Antwort meine ich. Leider habe ich in den nächsten Tagen keine Zeit das zu versuchen. Am Wochenende werde ich mir etwas basteln und mich wieder melden. Egal ob ich was erreicht habe oder nicht.

Bis dahin
Bembel

[Wurliwurm]

http://www.office-loesung.de/ftopic89707_0_0_asc.php

Naja. Das Bild sollte als Bild geladen werden (LoadPicture). Wozu stellt MS Bibliotheken zur Verfügung? Das zitierte Beispiel mit rumloopen in einer Binärdatei ist Gefrickel.