Jag har löst det, skrev om hela funktionen så att imgOutput använder sig av de högsta kvalitets inställningarna.
Det är så att de snabbaste (sämsta) kvalitéts inställningarna är aktiverada automatiskt.
Trådstart#1
Jag får fruktansvärt dålig kvalité på bilderna jag skalar om... Någon som vet hur man behåller kvalitén på en bild när man förminskar den?
Private Function createImage(ByVal ImageStream As IO.Stream, ByVal tWidth As Double, ByVal tHeight As Double) As Byte()
Dim g As System.Drawing.Image = System.Drawing.Image.FromStream(ImageStream)
Dim imgOutput As New Bitmap(g, tWidth, tHeight)
Dim imgStream As New IO.MemoryStream()
Dim thisFormat = g.RawFormat
imgOutput.Save(imgStream, thisFormat)
Dim imgbin(imgStream.Length) As Byte
imgStream.Position = 0
Dim n As Int32 = imgStream.Read(imgbin, 0, imgbin.Length)
g.Dispose()
imgOutput.Dispose()
Return imgbin
End Function
Några idéer? Jag är ordentligt förkyld så skallen klarar inte alltför mycket fri och nytänk.