Hallo Leute,
ich habe bei meiner Anwendung ein kleines Problem.
Ich möchte, Metadata-Informationen aus JPG-File (Bewertung \ Copyright \ Autoren \ Markierungen … usw.) auslesen, darstellen, einige Metadata ändern und diese anschließend in das JPG-File wieder zurück Speichern.
Die ersten Aufgaben (Auslesen \ darstellen \ ändern) sind mir gelungen, das Speichern von den angepassten Metadata funktioniert jedoch nicht!
Für diese Bearbeitung verwende ich derzeit folgende VB2010 Code:
Was mach ich falsch?
Ich habe schon sehr viel über das Thema recherchiert und sehr viel ausprobiert (ExifWorks, andere Methoden …), leider ohne Erfolg!
Am liebsten wäre mir ein einfaches VB2010 Beispiel-Code.
Ich hoffe es kann mir jemand weiterhelfen, Vielen Dank in voraus.
ich habe bei meiner Anwendung ein kleines Problem.
Ich möchte, Metadata-Informationen aus JPG-File (Bewertung \ Copyright \ Autoren \ Markierungen … usw.) auslesen, darstellen, einige Metadata ändern und diese anschließend in das JPG-File wieder zurück Speichern.
Die ersten Aufgaben (Auslesen \ darstellen \ ändern) sind mir gelungen, das Speichern von den angepassten Metadata funktioniert jedoch nicht!
Für diese Bearbeitung verwende ich derzeit folgende VB2010 Code:
VB.NET-Quellcode
- Imports System.IO
- Imports System.Windows.Media.Imaging
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim jpgStream As New System.IO.FileStream("C:\TestOrdner\TestFoto.jpg", FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
- Dim jpgDecoder As New JpegBitmapDecoder(jpgStream, BitmapCreateOptions.PreservePixelFormat, BitmapCacheOption.Default)
- Dim jpgFrame As BitmapFrame = jpgDecoder.Frames(0)
- Dim jpgInplace As InPlaceBitmapMetadataWriter = jpgFrame.CreateInPlaceBitmapMetadataWriter()
- 'Bewertung ändern
- jpgInplace.Rating = "5"
- 'Markierungen ändern
- jpgInplace.SetQuery("System.Keywords", "TestMarkierung")
- jpgInplace.TrySave()
- jpgStream.Close()
- End Sub
- End Clas
Was mach ich falsch?
Ich habe schon sehr viel über das Thema recherchiert und sehr viel ausprobiert (ExifWorks, andere Methoden …), leider ohne Erfolg!
Am liebsten wäre mir ein einfaches VB2010 Beispiel-Code.
Ich hoffe es kann mir jemand weiterhelfen, Vielen Dank in voraus.