User551462331 posted
ok... create two seprate function in your vb file like this
the first two parameters to method GetThumbnailImage in below function is width and height of output thumbnail image... change it as required
Private function ConvertToThumbNail(ByVal strOriginalImagePath As string,ByVal strNewImagePath As string, ByVal strImagename As string ) as string
Dim myCallback As New Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)
Dim myBitmap As New Bitmap(strOriginalImagePath )
Dim myThumbnail As Image = myBitmap.GetThumbnailImage(40, 40, myCallback, IntPtr.Zero)
myThumbnail.Save(strNewImagePath & "/" & strImagename & "_Thumbnail.jpg")
return strNewImagePath & "/" & strImagename & "_Thumbnail.jpg"
End Sub
Public Function ThumbnailCallback() As Boolean
Return False
End Function
now, you just need to call this function at following location in u r code..... note code in bold....
'**************************** photo upload start
Dim Filename As String = ""
Dim SendFromServerFolder As String = ""
Dim photo As Byte() = {0}
If FileUpload1.HasFile Then
Filename = UCase(FileUpload1.FileName)
Filename = Mid(Filename, InStr(Filename, "."))
If Filename = ".JPG" Or _
Filename = ".JPEG" Or _
Filename = ".GIF" Then 'let pass
Else
lblInfo.Text = "Invalid File Type!"
Me.lblInfo.ForeColor = Drawing.Color.Red
Exit Sub
End If
' save uploaded photo to file on web server ...may change eventually
Try
FileUpload1.SaveAs(ConfigurationManager.AppSettings("PhotoUrl") & _
FileUpload1.FileName)
Catch ex As Exception
lblInfo.Text = "ERROR: " & ex.Message.ToString()
Me.lblInfo.ForeColor = Drawing.Color.Red
Exit Sub
End Try
Else
End If
If FileUpload1.FileName = "" Then
PhotoUrl = ConfigurationManager.AppSettings("PhotoUrl") & "nophotogeneric.gif"
Me.Session("PhotoUrl") = PhotoUrl
Try
Dim stream As New FileStream(PhotoUrl, FileMode.Open)
Dim ImgInfo As New FileInfo(PhotoUrl)
Dim length As Integer = Convert.ToInt32(ImgInfo.Length) 'Creating byte array to pass as parameter
photo = New Byte(length - 1) {}
'fill byte array
stream.Read(photo, 0, length)
Catch ex As Exception
Throw ex
End Try
Else
SendFromServerFolder = ConfigurationManager.AppSettings("PhotoUrl") & FileUpload1.FileName
Me.Image1.ImageUrl = ConvertToThumnail(SendFromServerFolder, ConfigurationManager.AppSettings("PhotoUrl"),FileUpload1.FileName.Split(".")(0) )
PhotoUrl = ConvertToThumnail(SendFromServerFolder, ConfigurationManager.AppSettings("PhotoUrl"),FileUpload1.FileName.Split(".")(0) )
Me.Session("PhotoUrl") = PhotoUrl
Dim photolength As Integer
photolength = FileUpload1.FileName.Length
Dim imageBytes(FileUpload1.FileName.Length) As Byte
PhotoUrl = PhotoUrl
'new code to create byte data from photourl string
Dim stream As New FileStream(PhotoUrl, FileMode.Open)
Dim ImgInfo As New FileInfo(PhotoUrl)
Dim length As Integer = Convert.ToInt32(ImgInfo.Length) 'Creating byte array to pass as parameter
photo = New Byte(length - 1) {}
'fill byte array
stream.Read(photo, 0, length)
End If
'**************************** photo upload end
what i have done here is... using new function, i m getting thumbnail image created of original image
thumbnaile image should be created in the same location where original image is uploaded...
the thumbnail image will have name as _thumbnail appended in orginal image file...
i.e. if original file name is abc.jpg then thumbnail image will be created in same folder with name as abc_thumbnail.jpg
after that, path of newly created thumbnail image only used to convert into byte... so compressed image will be stored in database...
let me know if any issue...
hope this helps....
