Hallo zusammen,
ich versuche jetzt schon vier Stunden ein Problem in Griff zu bekommen. Leider ohne Erfolg.
Ich möchte Fotos auf meiner Festplatte um 180° drehen und abspeichern (überschreiben).
Die Problematik die ja eigentlich immer auftritt (laut anderen Threads), dass das Bild dabei stark komprimiert wird, habe ich bereits gelöst.
Mein Problem ist nun, dass entweder die Metadaten oder aber das Thumbnail nicht gespeichert wird.
Wenn ich Bilder einzeln drehen lasse, wird eigentlich bisher immer das Thumbnail nicht mitgedreht, die Metadaten bleiben aber in der neuen Datei bestehen.
Wenn ich mehrere Bilder nacheinander drehen lasse, wird bei manchen Bildern entweder das Thumbnail nicht gedreht, aber die Metadaten übernommen oder das Thumbnail wird gedreht, aber die Metadaten werden nicht übernommen.
Das kann ich mir leider überhaupt nicht erklären.
Wäre super, wenn jemand weiterhelfen kann.
Das habe ich bisher:
ich versuche jetzt schon vier Stunden ein Problem in Griff zu bekommen. Leider ohne Erfolg.
Ich möchte Fotos auf meiner Festplatte um 180° drehen und abspeichern (überschreiben).
Die Problematik die ja eigentlich immer auftritt (laut anderen Threads), dass das Bild dabei stark komprimiert wird, habe ich bereits gelöst.
Mein Problem ist nun, dass entweder die Metadaten oder aber das Thumbnail nicht gespeichert wird.
Wenn ich Bilder einzeln drehen lasse, wird eigentlich bisher immer das Thumbnail nicht mitgedreht, die Metadaten bleiben aber in der neuen Datei bestehen.
Wenn ich mehrere Bilder nacheinander drehen lasse, wird bei manchen Bildern entweder das Thumbnail nicht gedreht, aber die Metadaten übernommen oder das Thumbnail wird gedreht, aber die Metadaten werden nicht übernommen.
Das kann ich mir leider überhaupt nicht erklären.
Wäre super, wenn jemand weiterhelfen kann.
Das habe ich bisher:
Visual Basic-Quellcode
- ' Get a bitmap.
- Dim bmp1 As Bitmap = New Bitmap(FileSystemWatcher1.Path + "\" + e.Name.ToString)
- Dim jgpEncoder As ImageCodecInfo = GetEncoder(ImageFormat.Jpeg)
- ' Create an Encoder object based on the GUID
- ' for the Quality parameter category.
- Dim myEncoder As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality
- ' Create an EncoderParameters object.
- ' An EncoderParameters object has an array of EncoderParameter
- ' objects. In this case, there is only one
- ' EncoderParameter object in the array.
- Dim myEncoderParameters As New EncoderParameters(1)
- ' Save the bitmap as a JPG file with ninety seven quality level compression.
- Dim myEncoderParameter As New EncoderParameter(myEncoder, 97&)
- myEncoderParameters.Param(0) = myEncoderParameter
- bmp1.RotateFlip(RotateFlipType.Rotate180FlipNone)
- Threading.Thread.Sleep(200)
- bmp1.Save(FileSystemWatcher1.Path + "\" + e.Name.ToString, jgpEncoder, myEncoderParameters)
- bmp1.Dispose()
