Hallo Ionut,
vielen Dank für Deinen Hinweis.
Soweit ich ermitteln konnte, werden Mithilfe der Routine sämtliche textbasierten Metadaten aus dem Bild entfernt. Das ist aber eigentlich nicht das, was ich benötige. In meinem Projekt muss ich gezielt auf einzelne Tags zugreifen können. Ich muss Tags neu
anlegen, Inhalte verändern und letztlich auch ganze Tags entfernen können (bis auf das
dauerhafte Entfernen klappt ja alles). Mein Versuch, die Daten mittels FileStream zu speichern, hat leider auch nichts gebracht.
Dim fs
As FileStream
fs = New System.IO.FileStream(ImagePath, IO.FileMode.Open, IO.FileAccess.Read)
Pic =
New Bitmap(fs)
'der Stream muss offen bleiben, da sonst die Routine ImageToBytes mit einer
'Fehlermeldung abbricht (Allgemeiner Fehler in GDI+).
...
Dim byteArr() = Tools.ImageToBytes(Pic)
fs.Close()
fs.Dispose()
'auf diese Weise kann ich die vorhandene Datei überschreiben
fs =
New System.IO.FileStream(ImagePath, IO.FileMode.Create, IO.FileAccess.Write)
fs.Write(byteArr, 0, byteArr.GetUpperBound(0))
fs.Flush()
...
Wenn es sonst keinen Workaround gibt, werde ich das Projekt wohl beerdigen müssen.
Viele Grüße
Nick
