1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
''' <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
|