Jag har en fileupload för att ladda upp bilder till en sida. Finns det nåt sätt för att förminska bildens upplösning i sammanhang med att den sparas?

Här kommer en enkel lösning som skalar bilden till öskad pixelstorlek. Om du anger storleken till 500 pixlar så görs bilder 500 px hög om den är stående eller 500 px bred om den är liggande

Vill du sedan ändra upplösning kan du göra det med Image.VerticalResolution och Image.HorizontalResolution

<code>

Dim bmpImg As Drawing.Bitmap = Drawing.Bitmap.FromStream(oFile.InputStream)


Dim cImg As Drawing.Image = CType(bmpImg, Drawing.Image)


Dim newImage as image = ImageSize(cImg, 500)




Private Function ImageSize(Byval img As Image, Byval size As Integer) As Image


Dim rel As Double
Dim wid, hgt As Double
Dim newImage As Bitmap

'Är bilden stående eller liggande
If img.Width < img.Height Then

rel = img.Height / img.Width
hgt = size
wid = hgt / rel


Else

rel = img.Width / img.Height
wid = size
hgt = wid / rel

End If


wid = Math.Round(wid, 0)
hgt = Math.Round(hgt, 0)


newImage = New Bitmap(CInt(wid), CInt(hgt))
Dim gr As Graphics = Graphics.FromImage(newImage)

gr.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
gr.DrawImage(img, 0, 0, CInt(wid - 1), CInt(hgt - 1))


Return CType(newImage, Image)


End Function
</code>

Johan

Tack så mycket!
men tyvärr, eftersom jag inte är alltför rutinerad när det gäller detta så måste jag fråga var och hur jag använder detta?

Var skriver jag Dim bmpImg osv..... och var placerar jag funktionen? Ja, jag skulle behöva lite info runt omkring hur allt detta funkar helt enkelt.

Tack förresten för all hjälp!