marzban
پنج شنبه 24 خرداد 1386, 14:44 عصر
با سلام
جهت اطلاع من قبل از نوشتن تایپک جستجو کردم.مطلب در این باره زیاد بود ولی آن چیزی را که می خواستم پیدا نکردم.
من کد زیر را جهت ارسال فایل به بانک اطلاعاتی دارم.
اگر بخواهم که بجای ارسال فایل به بانک در یک مسیر فیزیکی ذخیره کنم.این کد رو چگونه تغییر بدم.
Function thumbainl_class(ByVal ImageFull As System.Web.UI.HtmlControls.HtmlInputFile)
Dim intImageSize, intThumbSize As Int64
Dim strImageType As String
Dim ImageStream As Stream
' بدست اوردن حجم عکس
intImageSize = ImageFull.PostedFile.ContentLength
' بدست اوردن نوع عکس
strImageType = ImageFull.PostedFile.ContentType
' خواندن عکس
ImageStream = ImageFull.PostedFile.InputStream
' Thumbnail ایجاد
Dim bmpThumb As New Bitmap(ImageStream)
Dim imgThumb As Image = bmpThumb.GetThumbnailImage(56, 56, New Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback), IntPtr.Zero)
Dim imgStream As New MemoryStream
imgThumb.Save(imgStream, Imaging.ImageFormat.Jpeg)
bmpThumb.Dispose()
'کوچک کردن اندازه عکس
Dim ImageContent(intImageSize) As Byte
Dim intStatus As Integer
intStatus = ImageStream.Read(ImageContent, 0, intImageSize)
Dim ThumbContent() As Byte = imgStream.GetBuffer
'ایجاد ارتباط با بانک اطلاعاتی
Dim myConnection As New SqlConnection
myConnection.ConnectionString = " DATABASE=Northwind;SERVER= .;UID=sa;PWD=;"
Dim myCommand As New SqlCommand("insert into tbl_pic(pic, pic_type) values(@pic, @pic_type)", myConnection)
myCommand.CommandType = CommandType.Text
'تعریف مقادیر ارسالی به بانک
Dim ptrpic As New SqlParameter("@pic", SqlDbType.Image)
ptrpic.Value = ThumbContent
myCommand.Parameters.Add(ptrpic)
Dim ptrpic_type As New SqlParameter("@pic_type", SqlDbType.VarChar, 20)
ptrpic_type.Value = strImageType
myCommand.Parameters.Add(ptrpic_type)
'اجرای درخواست
myConnection.Open()
Try
myCommand.ExecuteNonQuery()
Catch ex As Exception
' Response.Write("اشکال در ارسال عکس")
Return "error in send pic"
Finally
myConnection.Close()
End Try
End Function
Public Function ThumbnailCallback() As Boolean
'تعیین شرط برای کوچک کردن عکس
ThumbnailCallback = False
End Function
جهت اطلاع من قبل از نوشتن تایپک جستجو کردم.مطلب در این باره زیاد بود ولی آن چیزی را که می خواستم پیدا نکردم.
من کد زیر را جهت ارسال فایل به بانک اطلاعاتی دارم.
اگر بخواهم که بجای ارسال فایل به بانک در یک مسیر فیزیکی ذخیره کنم.این کد رو چگونه تغییر بدم.
Function thumbainl_class(ByVal ImageFull As System.Web.UI.HtmlControls.HtmlInputFile)
Dim intImageSize, intThumbSize As Int64
Dim strImageType As String
Dim ImageStream As Stream
' بدست اوردن حجم عکس
intImageSize = ImageFull.PostedFile.ContentLength
' بدست اوردن نوع عکس
strImageType = ImageFull.PostedFile.ContentType
' خواندن عکس
ImageStream = ImageFull.PostedFile.InputStream
' Thumbnail ایجاد
Dim bmpThumb As New Bitmap(ImageStream)
Dim imgThumb As Image = bmpThumb.GetThumbnailImage(56, 56, New Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback), IntPtr.Zero)
Dim imgStream As New MemoryStream
imgThumb.Save(imgStream, Imaging.ImageFormat.Jpeg)
bmpThumb.Dispose()
'کوچک کردن اندازه عکس
Dim ImageContent(intImageSize) As Byte
Dim intStatus As Integer
intStatus = ImageStream.Read(ImageContent, 0, intImageSize)
Dim ThumbContent() As Byte = imgStream.GetBuffer
'ایجاد ارتباط با بانک اطلاعاتی
Dim myConnection As New SqlConnection
myConnection.ConnectionString = " DATABASE=Northwind;SERVER= .;UID=sa;PWD=;"
Dim myCommand As New SqlCommand("insert into tbl_pic(pic, pic_type) values(@pic, @pic_type)", myConnection)
myCommand.CommandType = CommandType.Text
'تعریف مقادیر ارسالی به بانک
Dim ptrpic As New SqlParameter("@pic", SqlDbType.Image)
ptrpic.Value = ThumbContent
myCommand.Parameters.Add(ptrpic)
Dim ptrpic_type As New SqlParameter("@pic_type", SqlDbType.VarChar, 20)
ptrpic_type.Value = strImageType
myCommand.Parameters.Add(ptrpic_type)
'اجرای درخواست
myConnection.Open()
Try
myCommand.ExecuteNonQuery()
Catch ex As Exception
' Response.Write("اشکال در ارسال عکس")
Return "error in send pic"
Finally
myConnection.Close()
End Try
End Function
Public Function ThumbnailCallback() As Boolean
'تعیین شرط برای کوچک کردن عکس
ThumbnailCallback = False
End Function