我正在尝试调整图像大小而不丢失任何颜色。但我无法让它发挥作用。看下图,上一张是原图,下一张是经过.NET的。
我的问题是,如何保留颜色?
我尝试了很多不同的设置,寻找 GDI+ 错误。更改调色板,将 ImageAttributes 更改为人们在互联网上建议的 TileFlipXY。但似乎都不起作用。
![enter image description here](https://i.stack.imgur.com/2qFFY.jpg)
My Code:
Public Class ImageEditor
Private _img As Image
Private _format As Imaging.ImageFormat
Private _pixelformat As Imaging.PixelFormat
Private _palette As Imaging.ColorPalette
Public Sub New(ByVal img As Image)
_img = img
_palette = _img.Palette
_format = _img.RawFormat
_pixelformat = _img.PixelFormat
End Sub
Function getImage() As Image
Return _img
End Function
''' <summary>
''' Een stuk afbeelding uit een afbeelding knippen
''' </summary>
''' <param name="x1">Start X positie</param>
''' <param name="y1">Start Y positie</param>
''' <param name="width">Breedte van het stuk dat geknipt wordt</param>
''' <param name="height">Hoogte van het stuk dat geknipt wordt</param>
''' <remarks></remarks>
Public Sub crop(ByVal x1 As Integer, ByVal y1 As Integer, ByVal width As Integer, ByVal height As Integer)
' Cropping the image
Dim tmp As New Bitmap(width, height, _pixelformat)
tmp.SetResolution(_img.HorizontalResolution, _img.VerticalResolution)
Dim imageAttributes As New Imaging.ImageAttributes
imageAttributes.SetWrapMode(Drawing2D.WrapMode.TileFlipXY)
Using g = Graphics.FromImage(tmp)
g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
g.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
g.CompositingMode = Drawing2D.CompositingMode.SourceCopy
g.DrawImage(_img, New Rectangle(0, 0, width, height), x1, y1, width, height, GraphicsUnit.Pixel, imageattributes)
End Using
_img = tmp
End Sub
End Class
我的转换器类..任何我的.NET代码:
' Load file
Dim img As Image = Image.FromFile(filename)
Dim format As Imaging.ImageFormat = img.RawFormat
' Crop and scale
Dim editor As New ImageEditor(img)
editor.crop(x1, y1, x2 - x1, y2 - y1)
img.Dispose()
' Generate binairies
Dim newImg As Image = editor.getImage()
Dim myEncoder As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality
Dim myEncoderParameters As New EncoderParameters(1)
Dim myEncoderParameter As New EncoderParameter(myEncoder, 100&)
myEncoderParameters.Param(0) = myEncoderParameter
Dim ms As New MemoryStream()
newImg.Save(ms, GetEncoder(format), myEncoderParameters)
Dim binairies As Byte() = ms.ToArray()