Und noch eine Frage ;D
Wie kann ich ein Bild auf eine maximale Grösse auf schrumpfen, z.B. 250MB.
Habe diesen Code gefunden:
Leider kann man nur die Qualität einstellen, jedoch nicht die maximale Grösse.
Und eine Schleife zu machen, stufenweise jede Qualität zu erstellen, die Grösse abzufragen, und falls zu gross das ganze nochmals zu verkleinern, habe ich keine Lust und ausserdem würde das sowieso viel zu lange dauern.
Brauche einen Denkanstoss und vielleicht auch einen nützlichen Link.
Mfg Dancger
Wie kann ich ein Bild auf eine maximale Grösse auf schrumpfen, z.B. 250MB.
Habe diesen Code gefunden:
VB.NET-Quellcode
- ''' <summary>
- ''' Diese Funktion Komprimiert ein JPEG Bild und speichert dieses als neues Bild ab
- ''' </summary>
- ''' <param name="Image">Das Bild welches komprimiert werden soll</param>
- ''' <param name="OutPutFile">Der Pfad des neuen komprimierten Bilds</param>
- ''' <param name="Qualitiy">Die Qualitätseinstellung 0-100</param>
- Public Sub JPEGCompression(ByVal Image As Image, ByVal OutPutFile As String, ByVal Qualitiy As Integer)
- Dim ImageCodecs() As ImageCodecInfo
- Dim ImageParameters As EncoderParameters
- ImageCodecs = ImageCodecInfo.GetImageEncoders()
- ImageParameters = New EncoderParameters(1)
- ImageParameters.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, Qualitiy)
- Image.Save(OutPutFile, ImageCodecs(1), ImageParameters)
- End Sub
Leider kann man nur die Qualität einstellen, jedoch nicht die maximale Grösse.
Und eine Schleife zu machen, stufenweise jede Qualität zu erstellen, die Grösse abzufragen, und falls zu gross das ganze nochmals zu verkleinern, habe ich keine Lust und ausserdem würde das sowieso viel zu lange dauern.
Brauche einen Denkanstoss und vielleicht auch einen nützlichen Link.
Mfg Dancger
MESS WITH THE BEST, DIE LIKE THE REST!