Dim fiStream As New FileStream(Opendialog1.FileName, FileMode.Open, FileAccess.Read)
Dim binReader As New BinaryReader(fiStream)
Dim pic() As Byte = {}
pic = binReader.ReadBytes(fiStream.Length)
conn.Open()
cmd = New SqlCommand("select imgfile from myimages where imgname=@param", conn)
cmd.Parameters.Add("@param", SqlDbType.NVarChar, 30)
'myparam.Value = txtimgname.Text
Dim img As Byte() = DirectCast(cmd.ExecuteScalar(), Byte())
Dim str As New MemoryStream()
str.Write(img, 0, img.Length)
Dim bit As New Bitmap(str)
Response.ContentType = "image/jpeg"
bit.Save(Response.OutputStream, ImageFormat.Jpeg)
conn.Close()
'บรรทัดนี้คือเปิด file รูปภาพจาก OpenDialog ครับเป็นไรก็ได้ .bmp .jepg
Dim fiStream As New FileStream(Opendialog1.FileName, FileMode.Open, FileAccess.Read)
Dim binReader As New BinaryReader(fiStream)
Dim pic() As Byte = {}
pic = binReader.ReadBytes(fiStream.Length)
'pic ก็คือ file รูปที่เป็น Byte คับ
conn.Open()
cmd = New SqlCommand("select imgfile from myimages where imgname=@param", conn)
cmd.Parameters.Add("@param", SqlDbType.NVarChar, 30)
'myparam.Value = txtimgname.Text
Dim img As Byte() = DirectCast(cmd.ExecuteScalar(), Byte())
Dim str As New MemoryStream()
str.Write(img, 0, img.Length)
Dim bit As New Bitmap(str)
PictureBox1.Image = bit
conn.Close()
เอาลง pictureBox แบบนี้หรือป่าวครับ
Date :
2012-07-09 23:07:20
By :
mamooba
No. 16
Guest
Response.ContentType = "image/jpeg"
Response คืออะไรอะครับ มันเป็นตัวแปรอะไร
พอเอาไปใช้ใน vb (win app)มัน error ว่า Name 'Response' is not declared. คือเราต้องประกาศตัวแปรว่าอะไรอะครับ
Dim cmd = New SqlCommand("select photo from Pic where P_name=@P_name", con)
cmd.Parameters.Add("@P_name", SqlDbType.NVarChar, 30).Value = TextBox_P_name.Text
Dim img As Byte() = DirectCast(cmd.ExecuteScalar(), Byte())
Dim str As New MemoryStream()
str.Write(img, 0, img.Length)
Dim bit As New Bitmap(str)
PictureBox1.Image = bit