TIFF nach JPEG umwandeln

[aligator30]

Hallo zusammen,

VB.Net biete die Möglichkeit über die System.Drawing.Image-Klasse Bilder von einem Format in das andere Format zu konvertieren. Das klappt auch bei BMP zu JPG. Möchte ich aber von TIFF nach JPEG konvertieren. Hier bekomme ich beim speichern immer die Exception Ungültiger Parameter

Anbei mein Sourcecode

        Dim Pfad as String = "c:\Test\Bild1.tif"
        Dim CodecInfo As System.Drawing.Imaging.ImageCodecInfo = GetEncoderInfo("image/jpeg")

        ' Ein Encoder-Objekt auf Basis des Quality-Parameters erstellen.
        Dim Enc As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality
        System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders()

        ' Ein Array erstellen, das alle Encoding-Parameter beinhaltet.
        ' In diesem Fall beinhaltet es nur den Quality-Parameter.
        Dim EncParams As New System.Drawing.Imaging.EncoderParameters(1)


        ' Bild in den Speicher laden.
        Dim Image As Image = System.Drawing.Image.FromFile(Pfad)

        ' Neuen Dateinamen erstellen.
        Dim JpgName As String

        ' Datei als JPG-Datei mit Qualitätslevel 100 speichern.

        EncParams.Param(0) = New System.Drawing.Imaging.EncoderParameter(Enc, 100L)
        JPGName = Pfad & ".jpg"
        'Datei als JPG speichern
        
        Image.Save(JpgName, CodecInfo, EncParams)

Ich habe schon überall gesucht aber wenig zu diesm Thema gefunden.

Übrigens, bei einfachen TIFFs funktioniert dieser Code

Kann mir jemand weiterhelfen?