karim orooji
شنبه 13 تیر 1388, 21:00 عصر
اللهم عجل لوليك الفرج
با سلام به دوستان
من عكس رو بانك ذخيره ميكنم و براي اوردن اون توي برنامه تعريف كردن كه زماني كه شماره اي كه باعكس ذخيره شده رو بدي برات عكس رو در صفحه باز ميكنه
حالا من ميخوام كه بياد عكس رو درون يك image قرار بده
راهنمايي كنيد
Dim ms As System.IO.MemoryStream = New IO.MemoryStream()
Dim connect AsNew SqlConnection("Data source=.\SQLEXPRESS; integrated security=true; initial catalog=ali")
Dim com AsNew SqlCommand("select image from kaka where id ='" & TextBox1.Text & "' ", connect)
com.Parameters.AddWithValue("@id", txt.Text)
connect.Open()
Dim img AsByte() = DirectCast(com.ExecuteScalar(), Byte())
connect.Close()
ms.Write(img, 0, img.Length)
Dim bitmap AsNew System.Drawing.Bitmap(ms)
Response.ContentType = "image/gif"
bitmap.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)
ms.Close()
با سلام به دوستان
من عكس رو بانك ذخيره ميكنم و براي اوردن اون توي برنامه تعريف كردن كه زماني كه شماره اي كه باعكس ذخيره شده رو بدي برات عكس رو در صفحه باز ميكنه
حالا من ميخوام كه بياد عكس رو درون يك image قرار بده
راهنمايي كنيد
Dim ms As System.IO.MemoryStream = New IO.MemoryStream()
Dim connect AsNew SqlConnection("Data source=.\SQLEXPRESS; integrated security=true; initial catalog=ali")
Dim com AsNew SqlCommand("select image from kaka where id ='" & TextBox1.Text & "' ", connect)
com.Parameters.AddWithValue("@id", txt.Text)
connect.Open()
Dim img AsByte() = DirectCast(com.ExecuteScalar(), Byte())
connect.Close()
ms.Write(img, 0, img.Length)
Dim bitmap AsNew System.Drawing.Bitmap(ms)
Response.ContentType = "image/gif"
bitmap.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)
ms.Close()