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
GFU-Schulungen  [Anzeige]

C# 2017/2015/2013 Grundlagen

Nach Abschluss des Kurses sind Ihnen die Datentypen und Klassenbibliotheken von C# bekannt. Außerdem sind Sie in der Lage, mit Variablen umzugehen und deren Typen zu konvertieren. Sie definieren Namespaces und setzen diese ein, Sie erstellen eigene Klassen  und bauen Trouble Shooting ein.

Visual Studio Team Foundation Server 2017/2015 (TFS) für Administratoren - Kompakt

Nach dieser Schulung beherrschen Sie die Grundlagen des TFS. Sie erledigen administrative Aufgaben schnell und sicher.

''' <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!