Exif auslesen und Fehlermeldung: System.ArgumentException: "Die Eigenschaft kann nicht gefunden werden."

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von BitBrösel.

    Exif auslesen und Fehlermeldung: System.ArgumentException: "Die Eigenschaft kann nicht gefunden werden."

    Tach auch,

    ich möchte mit VB.NET die Exifdaten von Fotos auslesen. Zum Teil geht das reibungslos. Doch bei manchen Eigenschaften bekomme ich die Fehlermeldung: System.ArgumentException: "Die Eigenschaft kann nicht gefunden werden.

    Was läuft denn hier schief?

    Hier der gekürzte Code

    VB.NET-Quellcode

    1. Sub ExifReadMetadata(StrPfad As String)
    2. ' ##### Info Exif Tags: https://exiv2.org/tags.html / https://exiftool.org/TagNames/EXIF.html
    4. Dim Img As Image = Image.FromFile(StrPfad)
    5. Dim Propitem As PropertyItem
    7. ' ----- Aufnahme Datum / 306 / Ascii / Exif.Image.DateTime
    8. Propitem = Img.GetPropertyItem(306) ' 36867
    9. LblAufnahmedatum.Text = Encoding.ASCII.GetString(Propitem.Value, 0, Propitem.Len - 1)
    11. ' ----- Hersteller / 271 / Ascii / Exif.Image.Make
    12. Propitem = Img.GetPropertyItem(271)
    13. LblHersteller.Text = "Hersteller: " & Encoding.ASCII.GetString(Propitem.Value, 0, Propitem.Len - 1)
    15. ' ----- Modell / 272 / Ascii / Exif.Image.Model
    16. Propitem = Img.GetPropertyItem(272)
    17. LblModell.Text = "Modell " & Encoding.ASCII.GetString(Propitem.Value, 0, Propitem.Len - 1)
    19. ' ----- Uhrheber / 33432 / Ascii / Exif.Image.Copyright
    20. Propitem = Img.GetPropertyItem(33432)
    21. Dim strCopyright As String = Encoding.UTF8.GetString(Propitem.Value, 0, Propitem.Len - 1)
    22. LblCopyright.Text = "Copyright: " & strCopyright
    24. ' [ das was funktioniert hier gelöscht ]
    26. ' ab hier folgende Fehlermeldung "System.ArgumentException: "Die Eigenschaft kann nicht gefunden werden.""
    27. ' sobald ich das Propitem aktiviere
    29. '' ----- Auflösung X / 256 / Long / Exif.Image.ImageWidth
    30. 'Propitem = Img.GetPropertyItem(256)
    31. 'LblAufloesungX.Text = "Auflösung X: " & (BitConverter.ToInt32(propitem.Value, 0))
    33. '' ----- Auflösung Y / 257 / Long / Exif.Image.ImageLength
    34. ' Propitem = Img.GetPropertyItem(257)
    35. 'LblAufloesungY.Text = "Auflösung Y: " & (BitConverter.ToInt32(propitem.Value, 0))
    37. ' ----- Bits / 258 / Short / Exif.Image.BitsPerSample
    38. 'Propitem = Img.GetPropertyItem(258)
    39. 'LblBits.Text = "Bits: " & (BitConverter.ToInt16(propitem.Value, 0))
    41. ' ----- Bildsensor / 37399 / Short / Exif.Image.SensingMethod
    42. 'Propitem = Img.GetPropertyItem(37399)
    43. 'LblBildsensor.Text = "Bildsensor: " & (BitConverter.ToInt16(Propitem.Value, 0))
    45. ' ----- GBS / 34853 / Long / Exif.Image.GPSTag
    46. 'Propitem = Img.GetPropertyItem(34853)
    47. 'LblGPS.Text = "GPS: " & LngGPS
    49. End Sub
    Mit freundlichen Dinges

    Lupus
    P.S: bei allen meine Fragen beziehen sich auf das arbeiten mit Visual Studio 2019 auf Win 10/64 bit und MySQL

    @Lupusverlach Dann wird wohl eine Eigenschaft dieses Namens im Bild nicht vorhanden sein.
    Möglicherweise sagt der Codex, dass es keine leeren Properties gibt.
    Teste also die Existenz in einem Try-Catch-Block, und im Catch-Block gibst Du einen Leerstring zurück.
    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!

    @Lupusverlach Es gibt verschiedene Arten von Bildern. Allein, wenn wir nur Jpg betrachten, gibt es verschiedene.
    Man kann nicht anhand von Jpg und Jpeg ausmachen, ob Exif-Metadaten enthalten sind, sondern es kommt drauf an, welches Gerät dieses Foto gespeichert hat.
    Bilder meines Smartphones enthalten das Aufnahmedatum, Marke, Modell, Bildausrichtung, Auflösung, und den Kompressionsstandard. Außerdem nach FFD9 (=Endmarker) beigefügte Bytes. Siehe Anhang. Und obwohl das Bild ein .jpg ist, enthält es Metadaten.

    Ein Foto aus einer Digitalkamera enthält nicht so viele Metdaten.

    Ein Bild, was du aus dem Netz ziehst, zum Beispiel von Instagram, enthält keine Metadaten mehr. Hier wurde sogar der Kompressionsstandard geändert. Deswegen ist das viel schlechtere Qualität. Wenn ich mein Smartphone-Bild (baseline DCT) zu Instagram hochlade und mit dem PC wieder runterlade, ist es progressive DCT.

    Prüf bei jedem Bild selbst und verlass dich nicht auf die Dateiendung (jpg oder jpeg):

    VB.NET-Quellcode

    1. Dim data As Byte() = System.IO.File.ReadAllBytes(file_path)


    VB.NET-Quellcode

    1. Private Sub Ueberpruefe_ob_Bild_ein_Jpeg_ist(_1 As Byte, _2 As Byte, _3 As Byte, _4 As Byte)
    2. 'Check for correct JPEG format (FF D8 and JFIF tag FF E0)
    3. ' FF D8 FF E0
    4. TextBox1.Text = If(_1 = 255 AndAlso _2 = 216 AndAlso _3 = 255 AndAlso _4 = 224, "ja", "nein")
    5. End Sub


    VB.NET-Quellcode

    1. Dim Ergebnis As Integer = Ueberpruefe_ob_Bild_den_JFIF_oder_Exif_Tag_hat(data(6), data(7), data(8), data(9), data(10))


    VB.NET-Quellcode

    1. Private Function Ueberpruefe_ob_Bild_den_JFIF_oder_Exif_Tag_hat(_1 As Byte, _2 As Byte, _3 As Byte, _4 As Byte, _5 As Byte) As Integer
    2. If Convert.ToChar(_1) = "J"c AndAlso Convert.ToChar(_2) = "F"c AndAlso Convert.ToChar(_3) = "I"c AndAlso Convert.ToChar(_4) = "F"c AndAlso _5 = &H0 Then
    3. TextBox2.Text = "JFIF"
    4. Return 1
    5. ElseIf Convert.ToChar(_1) = "E"c AndAlso Convert.ToChar(_2) = "x"c AndAlso Convert.ToChar(_3) = "i"c AndAlso Convert.ToChar(_4) = "f"c AndAlso _5 = &H0 Then
    6. TextBox2.Text = "Exif"
    7. Return 2
    8. Else
    9. TextBox2.Text = "andere"
    10. Return 3
    11. End If
    12. End Function


    Nur, wenn Ergebis == 2 ist, kannst du mit PropertyItem arbeiten, ansonsten musst du selbst die Marker durchlaufen. Das machst du mit ner For-Schleife und prüfst mit vielen Ifs.
    Bilder

    • Screenshot 2022-08-27 124520.png

      84,97 kB, 1.358×597, 64 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Bartosz“ ()

    @RodFromGermany Danke für die Antwort.
    Jedoch ist die Eigenschaft mit IrfanView zu lesen. Auch mit meinem ollen VBA in Access kann ich die Eigenschaften lesen (bis auf GPS). Von daher gehe ich davon aus, es muss ein anderer Fehler sein.

    Kann es sein, dass VB.NET schlicht und ergreifend nicht alle Eigenschaften auslesen kann?

    Ich lade mal ein Beispiel hoch. Datenbank dazu ist Access.
    Mit Access und VBA habe ich die Daten auslesen können, nicht mit VB.NET. In meiner Beispielanwendung ist links im Formular das Ergebnis aus Access, rechts das Ergebnis aus VB.NET. Welches nicht alles lesen kann.
    Dateien

    • Fotoalbum.zip

      (4,76 MB, 43 mal heruntergeladen, zuletzt: )
    Mit freundlichen Dinges

    Lupus
    P.S: bei allen meine Fragen beziehen sich auf das arbeiten mit Visual Studio 2019 auf Win 10/64 bit und MySQL

    Hi

    Soweit ich das noch in Erinnerung habe, kann man vorher die Anzahl der vorhandenen Exif/Metatag-Daten und deren PropertyID ermitteln. Dann kann man entsprechend schauen ob eine PropertyID vorhanden ist, bevor man versucht diese auszulesen.

    @Bartosz

    Rein theoretisch muss man nicht selbst schauen ob es ein JPG, JPEG, JFIF, oder oder ist und ob diese Exif/Metatag-Daten enthalten. GDI+ ermittelt automatisch den richtigen Decoder um das Bild zu laden und dann halt die Anzahl der Metatag-Daten ermitteln.
    Mfg -Franky-

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „-Franky-“ ()

    @Lupusverlach Bei welchem Foto passiert was bzw. nicht?
    ====
    Ich habe mal eines Deiner Bilder (links) und mein Bild (rechts) EXIF-mäßig verglichen, bei meinem gibt es keinen Urheber (wegen Foto-Kamera), "mein" GPS-Exif wird von Deinem Programm ebenfalls nicht erkannt.
    Ansonsten hat mein Bild viel mehr EXIF-Informationen an Bord, wie Du an der Länge der Scrollbar siehst.
    Allerdings gibt es zum, GPS-EXIF weitere Informationen, da solltest Du Dich mal durchfräsen: exiftool.org/TagNames/GPS.html

    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!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „RodFromGermany“ ()

    @Lupusverlach Wenn Du das PropertyItem in eine eigene Wrapper-Klasse baust, lebst Du wesentlich ruhiger:
    Die PropertyItem-Klasse

    VB.NET-Quellcode

    1. Imports System.Text
    3. Public Class MyPropertyItem
    4. Private MyImage As Image
    5. Public Sub New(Img As Image)
    6. MyImage = Img
    7. End Sub
    9. Public Function GetString(propid As Integer) As String
    10. Try
    11. Dim Propitem = MyImage.GetPropertyItem(propid)
    12. Return Encoding.ASCII.GetString(Propitem.Value, 0, Propitem.Len - 1)
    13. Catch ex As Exception
    14. Return "Eigenschaft nicht da"
    15. End Try
    16. End Function
    18. Public Function GetInteger(propid As Integer) As Integer
    19. Try
    20. Dim Propitem = MyImage.GetPropertyItem(propid)
    21. Return BitConverter.ToInt16(Propitem.Value, 0)
    22. Catch ex As Exception
    23. Return -1
    24. End Try
    25. End Function
    27. Public Function GetIntValue(propid As Integer) As String
    28. Try
    29. Dim Propitem = MyImage.GetPropertyItem(propid)
    30. Return BitConverter.ToInt16(Propitem.Value, 0).ToString()
    31. Catch ex As Exception
    32. Return "Eigenschaft nicht da"
    33. End Try
    34. End Function
    36. Public Function GetDoubleValue(propid As Integer) As String
    37. Try
    38. Dim Propitem = MyImage.GetPropertyItem(propid)
    39. Return (BitConverter.ToInt32(Propitem.Value, 0) / BitConverter.ToInt32(Propitem.Value, 4)).ToString()
    40. Catch ex As Exception
    41. Return "Eigenschaft nicht da"
    42. End Try
    43. End Function
    45. Public Function GetDoubleValueInvers(propid As Integer) As String
    46. Try
    47. Dim Propitem = MyImage.GetPropertyItem(propid)
    48. Return (1.0 / (BitConverter.ToInt32(Propitem.Value, 0) / BitConverter.ToInt32(Propitem.Value, 4))).ToString()
    49. Catch ex As Exception
    50. Return "Eigenschaft nicht da"
    51. End Try
    52. End Function
    54. End Class
    die Main Form

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Hauptform
    3. Sub ExifReadMetadata(StrPfad As String)
    4. ' Labels sind mit einem Tag versehen und werden alle gelöscht,
    5. ' damit kein Wert von der falschen Datei, bzw Datensatz angezeigt wird
    6. For Each Item In Controls.OfType(Of Label)
    7. If Item.Tag Is "TagsExif" Then
    8. Item.Text = ""
    9. End If
    10. Next
    11. ' ##### Info Exif Tags: https://exiv2.org/tags.html / https://exiftool.org/TagNames/EXIF.html
    13. ' Noch nicht gelöst
    14. ' Größe Auflösung x Auflösung y Bits Auflösung Einheit
    15. ' Blitz Bildsensor GPS UTF8 für Copyright
    17. Dim Img As Image = Image.FromFile(StrPfad)
    18. Dim Propitem As New MyPropertyItem(Img)
    20. ' ----- Aufnahme Datum / 306 / Ascii / Exif.Image.DateTime
    21. LblAufnahmedatum.Text = Propitem.GetString(306)
    23. ' ----- Hersteller / 271 / Ascii / Exif.Image.Make
    24. LblHersteller.Text = "Hersteller: " & Propitem.GetString(271)
    26. ' ----- Modell / 272 / Ascii / Exif.Image.Model
    27. LblModell.Text = "Modell " & Propitem.GetString(272)
    29. ' ----- Uhrheber / 33432 / Ascii / Exif.Image.Copyright
    30. LblCopyright.Text = "Copyright: " & Propitem.GetString(33432)
    32. ' ----- Größe
    33. LblSize.Text = "Größe: " & Convert.ToInt32(My.Computer.FileSystem.GetFileInfo(ImagePath()).Length / 1024)
    35. ' ----- Hoch / 40962 / Long / Exif.Photo.PixelXDimension
    36. Dim intHoch As Integer = Propitem.GetInteger(40962)
    37. LblBreit.Text = "Hoch: " & intHoch
    39. ' ----- Breit / 40963 / Long / Exif.Photo.PixelYDimension
    40. Dim intBreit As Integer = Propitem.GetInteger(40963)
    41. LblHoch.Text = "Breit: " & intBreit
    42. LblVerhaeltniss.Text = "Verhältniss: " & intBreit / intHoch
    43. Select Case True
    44. Case intBreit < intHoch
    45. LblFormat.Text = "Format: Breit"
    46. Case intBreit > intHoch
    47. LblFormat.Text = "Format: Hoch"
    48. Case Else
    49. LblFormat.Text = "Format: Quadrat"
    50. End Select
    52. ' ----- Brennweite / 37386 / Rational / Exif.Image.FocalLength
    53. LblBrennweite.Text = "Brennweite: " & Propitem.GetDoubleValue(37386)
    55. '################################################# Fehlermeldung, System.ArgumentException: "Die Eigenschaft kann nicht gefunden werden."
    56. '' ----- Auflösung X / 256 / Long / Exif.Image.ImageWidth
    57. 'Propitem = Img.GetPropertyItem(256) ' System.ArgumentException: "Die Eigenschaft kann nicht gefunden werden."
    58. 'LblAufloesungX.Text = "Auflösung X: " & (BitConverter.ToInt32(propitem.Value, 0))
    60. '################################################# Fehlermeldung, eigenschaft kann nicht gefunden werden
    61. '' ----- Auflösung Y / 257 / Long / Exif.Image.ImageLength
    62. ' Propitem = Img.GetPropertyItem(257) ' System.ArgumentException: "Die Eigenschaft kann nicht gefunden werden."
    63. 'LblAufloesungY.Text = "Auflösung Y: " & (BitConverter.ToInt32(propitem.Value, 0))
    65. '################################################# Fehlermeldung, eigenschaft kann nicht gefunden werden
    66. ' ----- Bits / 258 / Short / Exif.Image.BitsPerSample
    67. 'Propitem = Img.GetPropertyItem(258)
    68. 'LblBits.Text = "Bits: " & Encoding.ASCII.GetString(propitem.Value, 0, propitem.Len - 1)
    69. 'LblBits.Text = "Bits: " & (BitConverter.ToInt16(propitem.Value, 0))
    70. ''Dim intBits As Short
    71. ''Try
    72. '' intBits = (BitConverter.ToInt16(propitem.Value, 0))
    73. ''Catch
    74. '' intBits = 0
    75. ''End Try
    76. ''Select Case intBits
    77. '' Case 8 : LblBits.Text = "Bits: " & "Graustufen"
    78. '' Case 24 : LblBits.Text = "Bits: " & "RGB"
    79. '' Case 32 : LblBits.Text = "Bits: " & "CMYK"
    80. '' Case Else : LblBits.Text = "Bits: " & "unbekannt"
    81. ''End Select
    83. 'LblAufloesungEinheit.Text = "Auflösung Einheit: "
    84. 'LblBitsBezeichnung.Text = "Bits Bezeichnung: "
    86. ' ----- Blende / 37378 / Rational / Exif.Image.ApertureValue
    87. LblBlende.Text = "Blende: " & Propitem.GetDoubleValue(33437)
    89. ' ----- Belichtungszeit / 37377 / Rational / Exif.Image.ShutterSpeedValue
    90. LblBelichtung.Text = "Belichtungszeit: 1 / " & Propitem.GetDoubleValueInvers(33434)
    92. ' ----- Blitz / 37385 / Short / Exif.Image.Flash
    93. LblBlitz.Text = "Blitz: " & Propitem.GetIntValue(37385)
    95. ' ----- AF Modus / 37383 / Short / Exif.Image.MeteringMode
    96. LblAFModus.Text = "AF Modus: " & Propitem.GetIntValue(37383)
    98. ' ----- ISO / 34855 / Short / Exif.Image.ISOSpeedRatings
    99. LblISO.Text = "ISO: " & Propitem.GetIntValue(34855)
    101. ' ----- Weißabgleich / 41987 / Short / Exif.Photo.WhiteBalance
    102. LblWeissabgleich.Text = "Weissabgleich: " & GetWeissabgleich(Propitem.GetInteger(41987))
    104. '################################################# Fehlermeldung, eigenschaft kann nicht gefunden werden
    105. ' ----- Bildsensor / 37399 / Short / Exif.Image.SensingMethod
    106. 'Propitem = Img.GetPropertyItem(37399)
    107. 'LblBildsensor.Text = "Bildsensor: " & (BitConverter.ToInt16(Propitem.Value, 0))
    109. '################################################# Fehlermeldung, eigenschaft kann nicht gefunden werden
    110. ' ----- GBS / 34853 / Long / Exif.Image.GPSTag
    111. LblGPS.Text = "GPS: " & Propitem.GetIntValue(34853)
    113. End Sub
    114. Sub ShowBild()
    115. ImgBox.Image = Image.FromFile(ImagePath)
    116. lblCountKunden.Text = BSFotoalbum.Position() + 1 & " von " & BSFotoalbum.Count()
    117. ExifReadMetadata(ImagePath())
    118. End Sub
    119. Public Function ImagePath() As String
    120. Dim StrBild As String = TxbPfad.Text & TxbDateiname.Text
    121. Dim StrPfad As String = Path.GetDirectoryName(Application.ExecutablePath)
    122. StrPfad = StrPfad.Replace("Fotoalbum\bin\Debug", "")
    123. StrBild = StrPfad & StrBild
    124. Return StrBild.Replace("<replace>", "")
    125. End Function
    126. Private Sub Hautform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    127. Me.FotoalbumTableAdapter.Fill(Me.FotoDatenDataSet.Fotoalbum)
    128. ShowBild()
    129. BSFotoalbum.Sort = "Aufnahme"
    130. End Sub
    131. Private Sub ButtonNavi_Click(sender As Object, e As EventArgs) Handles BtnPrevious.Click, BtnNext.Click, BtnLast.Click, BtnFirst.Click
    132. ' Navigation für die Fotos
    133. Select Case True
    134. Case sender Is BtnPrevious : BSFotoalbum.MovePrevious()
    135. Case sender Is BtnNext : BSFotoalbum.MoveNext()
    136. Case sender Is BtnLast : BSFotoalbum.MoveLast()
    137. Case sender Is BtnFirst : BSFotoalbum.MoveFirst()
    138. End Select
    139. ShowBild()
    140. End Sub
    141. Private Sub BtnFileOpen_Click(sender As Object, e As EventArgs) Handles BtnFileOpen.Click
    142. ' Wenn der IrfanView nicht da ist, kann man hier gleich den richtigen Pfad reinschfreiben
    143. Using PaintProcess As New Process
    144. PaintProcess.StartInfo.FileName = "C:\Program Files\IrfanView\i_view64.exe"
    145. PaintProcess.StartInfo.Arguments = ImagePath()
    146. PaintProcess.Start()
    147. End Using
    148. End Sub
    149. End Class


    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!

    @RodFromGermany
    soderle, da bin ich wieder.
    Erst noch einmal vielen Dank für die Mühe die du Dir gemacht hast.
    Jedoch gibt er keine Daten aus, bzw. sagt "Eigenschaft nicht gefunden" wo meine Version Ergebnisse liefert.
    Das wären die Felder: Blitz, AF Modus, Belichtung, Urheber (Copyright), Bits. Beim Urheber kennt er euch kein "ö,ä,ü,ß"
    Habe es einmal angehängt als Zip-Datei und den Button "Alte Version" im Hauptform. da kommt man dann zu eben der vorherigen Version um es vergleichen zu können.

    Thema GPS hebe ich mir für Später auf, ist nicht ganz so wichtig und scheint etwas umfangreicher als ich gedacht habe :(
    Dateien

    • Fotoalbum.zip

      (2,59 MB, 31 mal heruntergeladen, zuletzt: )
    Mit freundlichen Dinges

    Lupus
    P.S: bei allen meine Fragen beziehen sich auf das arbeiten mit Visual Studio 2019 auf Win 10/64 bit und MySQL

    Hey,

    also erstmal gleich Vorweg, ich meine das nicht bösartig, aber dein Code ist unter aller Sau, setzen 6! Hätte mein Lehrer damals gesagt. Die ganzen Try/Catches machen nur noch mehr Löcher in dein instabiles Gerüst, bis es wie jetzt anfängt zusammenzubrechen.

    1. Option Strict Off, anstatt so zu coden frag lieber wie mans richtig macht, wenn was mal nicht passt.
    2. Der Hardcore Einsatz von Try Catch, so machst du dir das Leben schwer, in diesem Fall ist ein Try/Catch schuld, das du den fehler nicht finden kannst.
    3. Das hier:(nein, nicht die Fehlerursache)

    VB.NET-Quellcode

    1. Try ' ----- Belichtung / 34850 / Short / Exif.Image.ExposureProgram
    2. LblBelichtung.Text = "Belichtung: " & fncBelichtung(Propitem.GetDoubleValue(34850))
    3. Catch
    4. LblBelichtung.Text = "Belichtung: (" & Propitem.GetDoubleValue(34850) & ")"
    5. End Try


    Der einzige Unterschied in den Zeilen ist, das die Funktionen im Try gecallt werden, da ist aber nichts was fehlschlagen könnte. Wie bist du auf diesen Murks gekommen? Frag lieber nach wieso, weshalb, warum anstatt sowas zu verzapfen.

    So nun zeige ich dir warum das mit dem Blitz nicht ging. Ich habe mir den PropertyItem.Type Wert angeschaut, war 3, also ein Array von 16Bit unsignierten Ganzzahlen(also uint16, kannst aber auch int16 nehmen, also UShort oder Short) Du hast versucht mit der Funktion GetDoubleValue den Wert zu hohlen, da kann nur in die Hose gehen, denn in dieser Funktion wird versucht mit dem Bitconverter ein Int32 zu machen, geht nicht, weil zu wenig Bytes, daher schlägt es fehl, und der String im Catch kommt zurück.

    Um das mit dem Blitz zu beheben, füge das deiner MyPropertyItem.vb hinzu

    VB.NET-Quellcode

    1. Public Function GetShortValue(propid As Integer) As String
    2. Try
    3. Dim Propitem = MyImage.GetPropertyItem(propid)
    4. Return BitConverter.ToInt16(Propitem.Value, 0).ToString()
    5. Catch ex As Exception
    6. Return "Fehler"
    7. End Try
    8. End Function


    Und dann einfach nur das hier, kein Try Catch! Bei den Funktionen wo GetPropertyItem gecallt wird, geht es ja nicht anders.

    VB.NET-Quellcode

    1. LblBlitz.Text = "Blitz: " & fncBlitzmodus(Propitem.GetShortValue(37385))


    Bei den anderen Sachen wird es garantiert die selbe Ursache haben(das der BitConverter das nicht konvertieren kann). Also mal HaltePunkte setzen und Werte anschauen, ganz speziell PropertyItem.Type. Da hast du eine Zahl, mit dieser schaust du hier:
    learn.microsoft.com/de-de/dotn…imaging-propertyitem-type
    Was für ein Typ das ist, und benutzt die entsprechende BitConverter Funktion dafür, bzw. das was nötig ist..

    Sollest du das nicht schaffen bei den anderen zu beheben, was kein Drama ist, bin ich bereit zu helfen, aber nur wenn du dann eine Mappe welche OptionStrictOn ist hochlädst. Brauchst du Hilfe um das alles OptionStrictOn zu machen, frag einfach nach. Dann erkläre ich oder andere dir das.

    PS.

    Wenn du die Mappe auf OptionStrictOn schaltest und die kompiliert, mach ich dir noch eine besser Klasse um die PropertyItems zu hohlen, da sind dann solche Sachen wie jetzt ausgeschlossen.

    Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von „BitBrösel“ ()

Facebook
Telefonspende