JPG Bild laden und Tags auslesen

  • VB.NET
  • .NET 7–8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    JPG Bild laden und Tags auslesen

    Hallo,
    ich bin am verzweifeln. Ich habe ein Visual Studio ein Projekt gestartet (WPF-Anwendung als Framework .NET 8.0).
    Nun versuche ich wie blöd ein Bild zu laden. Alle Informationen die ich finde, definieren das Bild als Image und laden das Bild mittels FromFile.
    Nur wenn ich das mache, klappt es nicht.
    Ich bekomme die Meldung "FromFile" ist kein Member von "MediaTypeNames.Image". Das gleiche Problem habe ich mit den PropertyItems (möchte die Tags der Bilddatei auslesen).

    Habe ich mein Projekt falsch erstellt? Oder ?? Anbei ein Versuchs Code:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Net.Mime.MediaTypeNames
    4. Imports System.Drawing
    6. Module Program
    8. Sub Main(args As String())
    9. Console.WriteLine("Hello World!")
    10. Dim filePath As String = "C:\Pfad\zu\deinem\Bild.jpg"
    11. Dim tags As Dictionary(Of String, Object) = GetJpegTags(filePath)
    13. ' Ausgabe der Tags
    14. For Each tag In tags
    15. Console.WriteLine($"{tag.Key}: {tag.Value}")
    16. Next
    18. End Sub
    20. Public Function GetJpegTags(filePath As String) As Dictionary(Of String, Object)
    21. ' Überprüfen, ob die Datei existiert und ein gültiges Bild ist
    22. If Not File.Exists(filePath) Then
    23. Throw New ArgumentException("Datei existiert nicht.")
    24. End If
    26. Dim image As Image = image.FromFile(filePath)
    28. ' Alle PropertyItems (Tags) abrufen
    29. Dim propertyItems As PropertyItem() = image.PropertyItems
    31. ' Dictionary zum Speichern der Tags erstellen
    32. Dim tags As New Dictionary(Of String, Object)
    34. ' PropertyItems in das Dictionary übertragen
    35. For Each item As PropertyItem In propertyItems
    36. ' Versuchen, den Tag-Namen zu finden
    37. Dim tagName As String = GetTagName(item.Id)
    39. ' Wenn ein Name gefunden wurde, den Wert speichern
    40. If Not String.IsNullOrEmpty(tagName) Then
    41. tags.Add(tagName, GetPropertyValue(item))
    42. End If
    43. Next
    45. Return tags
    46. End Function
    48. Private Function GetTagName(id As Integer) As String
    49. ' Hier könnte eine umfassendere Liste von Tag-IDs und -Namen definiert werden
    50. Select Case id
    51. Case &H112
    52. Return "Image Description"
    53. Case &H132
    54. Return "Make"
    55. Case &H131
    56. Return "Model"
    57. ' ... weitere Tag-IDs hinzufügen
    58. Case Else
    59. Return String.Empty
    60. End Select
    61. End Function
    63. Private Function GetPropertyValue(item As PropertyItem) As Object
    64. ' Je nach Datentyp des Tags den Wert entsprechend konvertieren
    65. Select Case item.Type
    66. Case 1 ' Byte
    67. Return Encoding.ASCII.GetString(item.Value)
    68. Case 2 ' ASCII
    69. Return Encoding.ASCII.GetString(item.Value)
    70. Case 3 ' Short
    71. ' ...
    72. ' ... weitere Datentypen hinzufügen
    73. Case Else
    74. Return "Unbekannter Datentyp"
    75. End Select
    76. End Function
    77. End Module


    Für jede Hilfe, Anregung bin ich dankbar. Aber wenn jemand eine fertige Klasse kennt, die ein Leihe nutzen kann, ohne Studiert zu haben, würde ich mich auch darüber freuen. Diese Klasse müsste Tags auch erstellen und ändern können.

    Vielen Dank
    Christian

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Hi,

    du musst noch mal zurück zum Anfang. Du musst dir erstmal selbst klar werden womit du arbeiten willst. Du sagst uns du hast ein WPF Projekt angelegt, zeigst aber Code für eine Console.

    Auch musst du mal in Erfahrund bringen was Namespace sind. Nur weil es Klassen mit den selbsen Namen in mehreren Namespace gibt, bedeutet das nicht, das alle das gleiche können.

    System.Drawing.Image ->learn.microsoft.com/en-us/dotn…e?view=windowsdesktop-9.0
    System.Windows.Controls.Image ->learn.microsoft.com/en-us/dotn…e?view=windowsdesktop-9.0
    Microsoft.UI.XAML.Controls.Image ->learn.microsoft.com/en-us/uwp/…ls.image?view=winrt-26100
    System.Net.Mime.MediaTypeNames.Image ->learn.microsoft.com/en-us/dotn…enames.image?view=net-9.0

    Deine Angabe mit Framework NET 8 stimmt auch nicht gänzlich. Damals gab es Net-Framework, dann kam NET-Core(bis 3.1), NET 4 gibts nicht, seit der 5. Version heist das nur noch NET. Also Net-Framework = alt. NET = neu. Ich würde empfehlen gleich mit NET zu arbeiten, egal ob Forms oder WPF. Wobei ich gerade dir eher zu Forms raten würde als zu WPF, denn das ist leichter, weil du keine 2 Sprachen lernen musst, denn in WPF kommt auch XAML zum Einsatz.

    Du musst lernen die Doku zu benutzen, denn dort findest du alles was eine Klasse kann. Wenn du dort nun mal durchschaust, wirst du nur eine "Image"-Klasse finden, die eine Funktion .FromFile hat. Fertigen code der auf dich zugeschnitten ist wird dir wohl eher keiner geben. Hier wird eher Hilfe zur Selbsthilfe gegeben. Würde ich dir fertigen Code geben, würdest du immer wieder fragen statt zu lernen. Mal einen kleinen Schnipsel ist ja noch OK, oder eine Code-Korrektur, aber dich am lernen hindern werde ich nicht. Zeig dem Hungrigen wie man fischt, anstatt im was zu Essen zu geben, dann kann er sich selbst versorgen ;) , immer wieder.

    bahnski schrieb:

    die ein Leihe nutzen kann, ohne Studiert zu haben,


    Wenn du programmieren willst, musst du es lernen. Dazu muss man nicht studieren. Ich habe keine Ausbildung/Studium in diesem Bereich gemacht und kann es trotzdem, sogar recht gut denke ich.
    Zitat von mir 2023:
    Was interessiert mich Rechtschreibung? Der Compiler wird meckern wenn nötig :D

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „DTF“ ()

    @bahnski

    Ich hatte vor längerer Zeit, mal angefangen mir so eine Klasse zu schreiben, weil ich die für ein privates kleines Projekt brauchte.
    Mein Beispiel hier ist nur ein Anfang, aber vielleicht hilf dir das etwas.

    Infos zu den HEX-Codes:
    learn.microsoft.com/en-us/dotn…g_Imaging_PropertyItem_Id


    Spoiler anzeigen

    Das MainForm:

    VB.NET-Quellcode

    1. Public Class FrmMain
    2. Private ReadOnly reader As PictureMetadataReader = PictureMetadataReader.Instance
    4. Public Sub New()
    5. InitializeComponent()
    6. End Sub
    8. Private Sub BtnOnePic_Click(sender As Object, e As EventArgs) Handles BtnOnePic.Click
    9. Using ofd As New OpenFileDialog()
    10. ofd.Filter = "Bilddateien (*.jpg;*.jpeg;*.png;*.bmp)|*.jpg;*.jpeg;*.png;*.bmp"
    11. ofd.Title = "Wähle ein Bild aus"
    13. If ofd.ShowDialog() = DialogResult.OK Then
    14. Dim imagePath As String = ofd.FileName
    15. ShowTagsInDGV(imagePath)
    16. ShowImageInPictureBox(imagePath)
    17. LblPicpath.Text = imagePath
    18. End If
    19. End Using
    20. End Sub
    22. Private Sub ShowTagsInDGV(imagePath As String)
    23. reader.ReadMetadata(imagePath)
    24. Dim metadataList As List(Of KeyValuePair(Of String, String)) = reader.GetMetadata()
    26. ' DataGridView vorbereiten
    27. dgvMetadata.DataSource = Nothing
    28. dgvMetadata.Rows.Clear()
    29. If dgvMetadata.Columns.Count = 0 Then
    30. dgvMetadata.Columns.Add("IDTag", "Tag ID")
    31. dgvMetadata.Columns.Add("Values", "Wert")
    32. End If
    34. ' Zeilen hinzufügen
    35. For Each kvp As KeyValuePair(Of String, String) In metadataList
    36. dgvMetadata.Rows.Add(kvp.Key, kvp.Value)
    37. Debug.WriteLine($"Beschreibung: {kvp.Key}, Wert: {kvp.Value}")
    38. Next
    40. ' Titel des Fensters aktualisieren
    41. Me.Text = $"Metadaten von: {imagePath}"
    42. End Sub
    44. Private Sub ShowImageInPictureBox(imagePath As String)
    45. Try
    46. Dim img As Image = Image.FromFile(imagePath)
    47. PicPreview.Image = img
    48. PicPreview.SizeMode = PictureBoxSizeMode.Zoom
    49. Catch ex As Exception
    50. MessageBox.Show($"Fehler beim Laden des Bildes: {ex.Message}")
    51. End Try
    52. End Sub
    53. End Class

    Die Klasse:

    VB.NET-Quellcode

    1. Imports System.Drawing.Imaging
    2. Public Class PictureMetadataReader
    3. Implements IDisposable
    4. Public Shared ReadOnly Instance As New PictureMetadataReader()
    5. ' Liste, um die Metadaten zu speichern
    6. Private _metadata As List(Of KeyValuePair(Of String, String))
    7. ' Tabelle für Tag-Namen
    8. Private ReadOnly TagDescriptions As New Dictionary(Of String, String) From {
    9. {"0x010E", "Image Description"},
    10. {"0x010F", "Manufacturer"},
    11. {"0x0110", "Model"},
    12. {"0x0112", "Orientation"},
    13. {"0x011A", "X Resolution"},
    14. {"0x011B", "Y Resolution"},
    15. {"0x0128", "Resolution Unit"},
    16. {"0x0131", "Software"},
    17. {"0x0132", "Date and Time"},
    18. {"0x013B", "Artist"},
    19. {"0x013E", "White Point"},
    20. {"0x013F", "Primary Chromaticities"},
    21. {"0x0211", "YCbCr Coefficients"},
    22. {"0x0213", "YCbCr Positioning"},
    23. {"0x0214", "Reference Black/White"},
    24. {"0x8298", "Copyright"},
    25. {"0x8769", "Exif Offset"},
    26. {"0x829A", "Exposure Time"},
    27. {"0x829D", "F-Number"},
    28. {"0x8822", "Exposure Program"},
    29. {"0x8827", "ISO Speed Ratings"},
    30. {"0x9201", "Shutter Speed Value"},
    31. {"0x9202", "Aperture Value"},
    32. {"0x9203", "Brightness Value"},
    33. {"0x9204", "Exposure Bias Value"},
    34. {"0xA217", "Sensing Method"},
    35. {"0xA300", "File Source"},
    36. {"0xA301", "Scene Type"},
    37. {"0xA302", "CFAPattern"},
    38. {"0xA401", "Custom Rendered"},
    39. {"0xA402", "Exposure Mode"},
    40. {"0xA403", "White Balance"},
    41. {"0xA404", "Digital Zoom Ratio"},
    42. {"0xA405", "Focal Length in 35mm Film"},
    43. {"0xA406", "Scene Capture Type"},
    44. {"0xA407", "Gain Control"},
    45. {"0xA408", "Contrast"},
    46. {"0xA409", "Saturation"},
    47. {"0xA40A", "Sharpness"},
    48. {"0xA40C", "Subject Distance Range"},
    49. {"0xA420", "Image Unique ID"},
    50. {"0xA430", "Camera Owner Name"},
    51. {"0xA431", "Body Serial Number"},
    52. {"0xA432", "Lens Specification"},
    53. {"0xA433", "Lens Make"},
    54. {"0x9C9E", "Keywords"} _
    55. ' Weitere möglich
    56. }
    58. Public Sub New()
    59. ' Initialisiert die Liste
    60. _metadata = New List(Of KeyValuePair(Of String, String))()
    61. End Sub
    63. ' Öffentliche Methode, um die Metadaten auszulesen
    64. Public Sub ReadMetadata(imagePath As String)
    65. ' Metadaten-Liste leeren
    66. _metadata.Clear()
    68. ' Bild laden und sicherstellen, dass Ressourcen freigegeben werden
    69. Using img As Image = Image.FromFile(imagePath)
    70. ' Alle PropertyItems durchlaufen
    71. For Each prop As PropertyItem In img.PropertyItems
    72. ' Tag-ID ermitteln und ggf. übersetzen
    73. Dim tagId As String = "0x" & prop.Id.ToString("X4")
    75. ' Wenn das Tag in der TagDescriptions-Liste ist, füge es hinzu
    76. If TagDescriptions.ContainsKey(tagId) Then
    77. Dim description As String = TagDescriptions(tagId)
    78. Dim value As String = GetPropertyValue(prop)
    80. ' Hinzufügen der Metadaten in die Liste
    81. _metadata.Add(New KeyValuePair(Of String, String)(description, value))
    82. End If
    83. Next
    84. End Using
    85. End Sub
    87. ' Methode, um die Liste zurückzugeben
    88. Public Function GetMetadata() As List(Of KeyValuePair(Of String, String))
    89. Return _metadata
    90. End Function
    92. ' Private Methode zur Interpretation der Property-Werte
    93. Private Function GetPropertyValue(prop As PropertyItem) As String
    94. Try
    95. ' Wenn es sich um ein Text-Tag handelt, müssen wir uns die Kodierung genau anschauen
    96. Select Case prop.Id
    97. Case &H9286 ' User Comment
    98. ' UTF-16-Dekodierung für User Comment
    99. Try
    100. Dim userComment As String = Text.Encoding.Unicode.GetString(prop.Value).TrimEnd(ChrW(0))
    101. If Not String.IsNullOrEmpty(userComment) Then
    102. Return userComment
    103. End If
    104. Catch ex As Exception
    105. Debug.WriteLine("Fehler bei der Dekodierung von User Comment (UTF-16): " & ex.Message)
    106. End Try
    108. Case &H9C9B ' Keywords (falls in UTF-16)
    109. Try
    110. ' Versuchen, den Keyword-Tag als UTF-16 zu dekodieren
    111. Dim keywords As String = Text.Encoding.Unicode.GetString(prop.Value).TrimEnd(ChrW(0))
    112. If Not String.IsNullOrEmpty(keywords) Then
    113. Return keywords
    114. End If
    115. Catch ex As Exception
    116. Debug.WriteLine("Fehler bei der Dekodierung von Keywords (UTF-16): " & ex.Message)
    117. End Try
    119. Case &H9209 ' Caption
    120. ' UTF-16 Dekodierung für Caption
    121. Try
    122. Dim caption As String = Text.Encoding.Unicode.GetString(prop.Value).TrimEnd(ChrW(0))
    123. If Not String.IsNullOrEmpty(caption) Then
    124. Return caption
    125. End If
    126. Catch ex As Exception
    127. Debug.WriteLine("Fehler bei der Dekodierung von Caption (UTF-16): " & ex.Message)
    128. End Try
    130. Case Else
    131. ' Wenn es ein Standard-Tag ist (Byte, ASCII, etc.), behandeln wir es wie gewohnt
    132. Return DecodeStandardTag(prop)
    133. End Select
    135. ' Falls keine der Bedingungen zutrifft, Rückgabe eines Standardwerts
    136. Return String.Empty
    137. Catch ex As Exception
    138. ' Detaillierte Fehlerbehandlung
    139. Debug.WriteLine("Fehler bei der Verarbeitung von PropertyItem: " & ex.Message)
    140. Return String.Empty ' Standardwert zurückgeben
    141. End Try
    142. End Function
    144. ' Eine zusätzliche Funktion, die Standard-PropertyItem-Tags behandelt
    145. Private Function DecodeStandardTag(prop As PropertyItem) As String
    146. Select Case prop.Type
    147. Case 1 ' BYTE
    148. Return String.Join(", ", prop.Value.Select(Function(b) b.ToString()))
    149. Case 2 ' ASCII
    150. Return Text.Encoding.ASCII.GetString(prop.Value).TrimEnd(Chr(0))
    151. Case 3 ' SHORT
    152. Return BitConverter.ToUInt16(prop.Value, 0).ToString()
    153. Case 4 ' LONG
    154. Return BitConverter.ToUInt32(prop.Value, 0).ToString()
    155. Case 5 ' RATIONAL
    156. Dim numerator As UInteger = BitConverter.ToUInt32(prop.Value, 0)
    157. Dim denominator As UInteger = BitConverter.ToUInt32(prop.Value, 4)
    158. Return numerator & "/" & denominator
    159. Case 7 ' UNDEFINED
    160. Return GetHexRepresentation(prop.Value)
    161. Case 10 ' SLONG
    162. Dim numerator As Integer = BitConverter.ToInt32(prop.Value, 0)
    163. Dim denominator As Integer = BitConverter.ToInt32(prop.Value, 4)
    164. Return numerator & "/" & denominator
    165. Case Else
    166. Return "Unbekannter Typ"
    167. End Select
    168. End Function
    170. ' Hilfsfunktion zur Hex-Darstellung von Daten
    171. Private Function GetHexRepresentation(value As Byte()) As String
    172. Return String.Join(", ", value.Select(Function(b) b.ToString("X2")))
    173. End Function
    175. ' Dispose-Methode zur Bereinigung
    176. Public Sub Dispose() Implements IDisposable.Dispose
    177. _metadata.Clear()
    178. End Sub
    179. End Class

    Bilder

    • Unbenannt-1.jpg

      301,5 kB, 800×485, 31 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    VB.NET-Quellcode

    1. Private ReadOnly TagDescriptions As New Dictionary(Of String, String) From {
    2. {"0x010E", "Image Description"},
    Du solltest die HEX-Codes nicht vom Type String, sondern direkt als Integer-Werte behandeln.
    Ansonsten könnte es zu "Missverständnissen" kommen, wenn da 0x010e vorkommt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!