User-1364604259 posted
i found the solution on the net and made some modification. here it is
Private Sub WarpImageDimensions(ByVal imageToSave As Bitmap, ByVal width As Integer, ByVal imgquality As Long, ByVal Savename As String, ByVal directory As String)
' RE-SIZE THE IMAGE ACCORDING TO A FIXED WIDTH OF 350 PIXELS
Dim resizedImage As Bitmap = ResizeSubmittedImage(imageToSave, width)
' SET THE RESOLUTION OF THE IMAGE TO 72dpi
Const res As Single = 72
resizedImage.SetResolution(res, res)
' SET THE INTERPOLATION MODE
Dim g As Graphics = Graphics.FromImage(resizedImage)
g.InterpolationMode = InterpolationMode.HighQualityBicubic
' RE-SET THE IMAGE'S COMPRESSION QUALITY TO "30"
Dim encoderParams As New EncoderParameters()
Dim quality As Long() = New Long(0) {}
quality(0) = imgquality
Dim ep As New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, quality)
encoderParams.Param(0) = ep
Dim arrayICI As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders()
Dim jpegICI As ImageCodecInfo = Nothing
For x As Integer = 0 To arrayICI.Length - 1
If arrayICI(x).FormatDescription.Equals("JPEG") Then
jpegICI = arrayICI(x)
Exit For
End If
Next
' Dim mem As New MemoryStream()
Dim path = Server.MapPath(directory)
resizedImage.Save(path & Savename, jpegICI, encoderParams)
' SAVE THE IMAGE TO THE DATABASE AS A BINARY BYTE ARRAY
' Dim bits As Byte() = mem.ToArray()
' do database INSERT operations into DB field of type IMAGE here
'mem.Close()
g.Dispose()
End Sub
Private Function ResizeSubmittedImage(ByVal bmpIn As Bitmap, ByVal width As Integer) As Bitmap
' re-size a submitted image while maintaining its aspect ratio
Dim bmpOut As Bitmap = Nothing
Dim newHeight As Integer = 0
Dim newWidth As Integer = 0
Dim fixedWidth As Integer = width
Dim fixedHeight As Integer = bmpIn.Height / (bmpIn.Width / width)
Dim ratio As Decimal
' if the image is too small, then just use it as is
If bmpIn.Width < fixedWidth Then
ratio = CDec(fixedHeight) / bmpIn.Height
newWidth = Convert.ToInt32(ratio * bmpIn.Width)
newHeight = fixedHeight
Else
ratio = CDec(fixedWidth) / bmpIn.Width
newHeight = Convert.ToInt32(ratio * bmpIn.Height)
newWidth = fixedWidth
End If
bmpOut = New Bitmap(newWidth, newHeight)
Dim g As Graphics = Graphics.FromImage(bmpOut)
g.FillRectangle(Brushes.White, 0, 0, newWidth, newHeight)
g.DrawImage(bmpIn, 0, 0, newWidth, newHeight)
bmpIn.Dispose()
Return bmpOut
End Function
Protected Sub startOptimization(ByVal controlname As FileUpload, ByVal width As String, ByVal quality As String, ByVal savename As String, ByVal directory As String)
' get the stream of data for the image from a server-side Form with an <INPUT> control with an ID of FileUpload1
Dim length As Integer = CInt(controlname.PostedFile.InputStream.Length)
Dim imageBits As Byte() = New Byte(length - 1) {}
' read the digital bits of the image into the byte array
controlname.PostedFile.InputStream.Read(imageBits, 0, length)
' save the byte array as a Bitmap object
Dim ms As New MemoryStream()
ms.Write(imageBits, 0, imageBits.Length)
Dim unrenderedImage As New Bitmap(controlname.PostedFile.InputStream)
'ms.Dispose
' ms.Close()
' manipulate the image according to the specification and save it to the database
WarpImageDimensions(unrenderedImage, width, quality, savename, directory)
End Sub
' to call the optimization method
startOptimization(controlname, width, quality, filenametosave,
destination)
example
startOptimization(FileUpload1, 250, 100, FileUpload1.FileName,
"../pics/")<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p><o:p></o:p>
