[记录]图形操作Gemme billede i CMYK

Function makeImage()Function makeImage(ByVal strSource As String, ByVal strDestination As String, ByVal iWidth As Integer, ByVal iHeight As Integer, ByVal iDPI As Integer, ByVal iQuality As Integer)
     
  Dim LQuality As Integer = iQuality
        Dim myImageCodecInfo As System.Drawing.Imaging.ImageCodecInfo
        Dim myEncoder As System.Drawing.Imaging.Encoder
        Dim myEncoderParameter As System.Drawing.Imaging.EncoderParameter
        Dim myEncoderParameters As System.Drawing.Imaging.EncoderParameters
  Dim new_g as Graphics
  
  myImageCodecInfo = GetEncoderInfo("image/jpeg")

        myEncoder = System.Drawing.Imaging.Encoder.Quality
        myEncoderParameters = New System.Drawing.Imaging.EncoderParameters(1)
        myEncoderParameter = New System.Drawing.Imaging.EncoderParameter(myEncoder, LQuality)
        myEncoderParameters.Param(0) = myEncoderParameter

  ' Hent billede
        Dim fs As System.IO.Stream = System.IO.File.OpenRead(strSource)

  ' Load billede
        Dim strSourceImg As System.Drawing.Image = System.Drawing.Image.FromStream(fs)

        ' Opret ny bitmap
  Dim imgOutput As New Bitmap(strSourceImg, iWidth, iHeight)
        imgOutput.SetResolution(iDPI, iDPI)

  ' Get graphics
  new_g = Graphics.FromImage(imgOutput)

  ' Apply rendering options
  new_g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
  new_g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
  new_g.DrawImage(strSourceImg, 0, 0, iWidth, iHeight)
  
        imgOutput.Save(strDestination, myImageCodecInfo, myEncoderParameters)
  
    End Function
 
   Private Function GetEncoderInfo()Function GetEncoderInfo(ByVal MYmimeType As String)
        Dim i As Integer
        Dim encoders As System.Drawing.Imaging.ImageCodecInfo() = Imaging.ImageCodecInfo.GetImageEncoders()
        For i = 0 To (encoders.Length - 1)
            If (encoders(i).MimeType = MYmimeType) Then
                Return encoders(i)
            End If
        Next i
    End Function

 

Function makeImage()Function makeImage(ByVal strSource As String, ByVal strDestination As String, ByVal iWidth As Integer, ByVal iHeight As Integer)

   Dim myImageCodecInfo As System.Drawing.Imaging.ImageCodecInfo

   Dim myEncoderParameters As System.Drawing.Imaging.EncoderParameters

   myImageCodecInfo = GetEncoderInfo("image/jpeg")

   myEncoderParameters = New System.Drawing.Imaging.EncoderParameters(2)

   myEncoderParameters.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, 100)

   myEncoderParameters.Param(1) = New EncoderParameter(System.Drawing.Imaging.Encoder.SaveFlag, System.Drawing.Imaging.EncoderValue.ColorTypeCMYK)


   ' Hent billede

   Dim fs As System.IO.Stream = System.IO.File.OpenRead(strSource)

   
   ' Load billede

   Dim strSourceImg As System.Drawing.Image = System.Drawing.Image.FromStream(fs)


   ' Opret ny bitmap

   Dim imgOutput As New Bitmap(strSourceImg, iWidth, iHeight)

   imgOutput.Save(strDestination, myImageCodecInfo, myEncoderParameters)

End Function




Private Function GetEncoderInfo()Function GetEncoderInfo(ByVal MYmimeType As String)

   Dim i As Integer

   Dim encoders As System.Drawing.Imaging.ImageCodecInfo() = Imaging.ImageCodecInfo.GetImageEncoders()

   For i = 0 To (encoders.Length - 1)

      If (encoders(i).MimeType = MYmimeType) Then

         Return encoders(i)

      End If

   Next i

End Function