mohsenaminzare
شنبه 22 بهمن 1384, 10:08 صبح
با سلام به دوستان من کدی برای ذخیره ی image دانلود کردم که طرز کارش را نمی دانم لطفا من را راهنمایی کنید و بگویید که image full که در این کد استفاده شده از چه نوع است و چطور می توانم عکسی در آن قرار دهم. با تشکر:قلب: :قلب:
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Data
Imports System.Data.SqlClient
Public Function ThumbnailCallback() As Boolean
'تعیین شرط برای کوچک کردن عکس
ThumbnailCallback = False
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
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("اشکال در ارسال عکس")
Finally
myConnection.Close()
End Try
End Sub
End Class
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Data
Imports System.Data.SqlClient
Public Function ThumbnailCallback() As Boolean
'تعیین شرط برای کوچک کردن عکس
ThumbnailCallback = False
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
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("اشکال در ارسال عکس")
Finally
myConnection.Close()
End Try
End Sub
End Class