Hallo miteinander
ich habe eine
Nun möchte ich die vereinzelt auch auf Platte schreiben und für den Dateinamen brauche ich logischerweise eine Dateiendung, also den Bilddateityp.
Habs mal hiermit versucht:
Nur dass er mir dann immer
Weiss jemand was ich falsch mach?
ich habe eine
BildZwischenspeicherListe As List(Of MemoryStream)
, in der Bilder aus einer Onlinedatenbank gespeichert sind.Nun möchte ich die vereinzelt auch auf Platte schreiben und für den Dateinamen brauche ich logischerweise eine Dateiendung, also den Bilddateityp.
Habs mal hiermit versucht:
VB.NET-Quellcode
- Dim AktuellesCoverArt As Image = Image.FromStream(BildZwischenspeicherListe(BildIndex))
- If AktuellesCoverArt.RawFormat Is System.Drawing.Imaging.ImageFormat.Jpeg Then
- File.WriteAllBytes("C:\Users\al...\Desktop\Ablage\bildertest.jpg", BildZwischenspeicherListe(BildIndex).ToArray)
- ElseIf AktuellesCoverArt.RawFormat Is System.Drawing.Imaging.ImageFormat.Gif Then
- File.WriteAllBytes("C:\...\alpha\Desktop\Ablage\bildertest.gif", BildZwischenspeicherListe(BildIndex).ToArray)
- ElseIf AktuellesCoverArt.RawFormat Is System.Drawing.Imaging.ImageFormat.Bmp Then
- File.WriteAllBytes("C:\...\alpha\Desktop\Ablage\bildertest.bmp", BildZwischenspeicherListe(BildIndex).ToArray)
- ElseIf AktuellesCoverArt.RawFormat Is System.Drawing.Imaging.ImageFormat.Emf Then
- File.WriteAllBytes("C:\...\alpha\Desktop\Ablage\bildertest.emf", BildZwischenspeicherListe(BildIndex).ToArray)
- ElseIf AktuellesCoverArt.RawFormat Is System.Drawing.Imaging.ImageFormat.Exif Then
- File.WriteAllBytes("C:\...\alpha\Desktop\Ablage\bildertest.exif", BildZwischenspeicherListe(BildIndex).ToArray)
- ElseIf AktuellesCoverArt.RawFormat Is System.Drawing.Imaging.ImageFormat.Icon Then
- File.WriteAllBytes("C:\...\alpha\Desktop\Ablage\bildertest.ico", BildZwischenspeicherListe(BildIndex).ToArray)
- ElseIf AktuellesCoverArt.RawFormat Is System.Drawing.Imaging.ImageFormat.Png Then
- File.WriteAllBytes("C:\...\alpha\Desktop\Ablage\bildertest.png", BildZwischenspeicherListe(BildIndex).ToArray)
- ElseIf AktuellesCoverArt.RawFormat Is System.Drawing.Imaging.ImageFormat.Tiff Then
- File.WriteAllBytes("C:\...\alpha\Desktop\Ablage\bildertest.tif", BildZwischenspeicherListe(BildIndex).ToArray)
- ElseIf AktuellesCoverArt.RawFormat Is System.Drawing.Imaging.ImageFormat.Wmf Then
- File.WriteAllBytes("C:\...\alpha\Desktop\Ablage\bildertest.wmf", BildZwischenspeicherListe(BildIndex).ToArray)
- Else
- Debug.WriteLine("falsches Format")
- End If
Nur dass er mir dann immer
"falsches Format"
ausspuckt, was ja eigntlich schier net sein kann... IntelliSense hat mir das aber sogar so vorgeschlagen...Weiss jemand was ich falsch mach?