Feedback

VB - JPEG Bild komprimieren

Veröffentlicht von am 25.07.2006
(3 Bewertungen)
Diese Funktion komprimiert ein Bild im JPEG Format und speichert dieses dann auch als JPEG Datei ab
''' <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
Abgelegt unter JPEG, JPG, Komprimieren, Bild.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!