displaying image not working inside user control

[sean]

Hi There,

I am storing images in SQL server ans trying to retrieve them into an image
control but I can't seem to get the image to show. If I load the image page
(ReadRealImage) on it's own it works no problem, what I am trying to do is
to load the image into a user control page with an image control on it.. The
querystring variable has a corresponding ListingID in the database.

Could someone help me out with the syntax please!

Sean


Sub Page_Load(sender As Object, e As EventArgs)

If Not Page.IsPostBack Then
Dim strImageID as Integer = Request.QueryString("ListingID")
End If

End Sub
Function FormatURL(strImageID) as Integer

Return
("../ReadRealImage.aspx?ListingID=" & strImageID)

End Function
</script>
</head>

<tr valign="top"><td width="220">
<asp:Image Width="200" Height="200" alt="Listing Image" ImageUrl='<%#
FormatURL(strImageID) %>' Runat=server />
</td>
<td width="270">
</td></tr>

!--- code for image page

Public Sub Page_Load(sender As Object, e As EventArgs)

Dim strImageID as Integer =
Request.QueryString("ListingID")

Dim myConnection As New
SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))

Dim myCommand As New SqlCommand("Select
ListingImageType, ListingImage from tblListings Where ListingID=" &
strImageID, myConnection)

Try
myConnection.Open()
Dim myDataReader as
SqlDataReader
myDataReader =
myCommand.ExecuteReader(CommandBehavior.CloseConnection)
Do While
(myDataReader.Read())

Response.BinaryWrite(myDataReader.Item("ListingImage"))

'Response.BinaryWrite(myDataReader.Item("ListingImageType"))

Loop
myConnection.Close()
Response.Write("image
displayed")
Catch SQLexc As SqlException
Response.Write("Read Failed
: " & SQLexc.ToString())
End Try
End Sub

 

[Cor Ligthert]

Hi Sean,

My standard old sample for it, it makes as well a thumbnail from the picture
that has to be showed. (I see now I have to revise it soon because I do not
use a parameter in the where clause)

I hope this helps?

Cor

\\\For the database the image database sample from the Resource kit.
\\\It needs 2 forms with a listbox, a picturebox and a label on form1
\\\webform1
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Dim conn As New SqlClient.SqlConnection _
("Server=localhost;" & "DataBase=Northwind;" & _
"Integrated Security=SSPI")
Dim da As New SqlClient.SqlDataAdapter _
("SELECT FileName, PictureID FROM Picture", conn)
Dim ds As New DataSet
Me.Image1.Visible = False
ListBox1.AutoPostBack = True
Try
da.Fill(ds)
ListBox1.DataSource = ds.Tables(0)
ListBox1.DataTextField = "FileName"
ListBox1.DataValueField = "PictureID"
ListBox1.DataBind()
Catch sqlExc As SqlClient.SqlException
Me.Label1.Text = sqlExc.ToString
Catch exc As Exception
Me.Label1.Text = exc.ToString
End Try
End If
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles ListBox1.SelectedIndexChanged
Session.Item("img") = ListBox1.SelectedItem.Value
Image1.Visible = True
Image1.ImageUrl = "http://localhost/WebImage/WebForm2.aspx"
End Sub
///
\\\Webform1
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As New SqlClient.SqlConnection("Server=localhost;" & _
"DataBase=Northwind;" & "Integrated Security=SSPI")
Dim sqlstr As String = _
String.Format("SELECT Picture FROM Picture WHERE (PictureID = {0})", _
CInt(Session.Item("img")))
Dim cmd As New SqlClient.SqlCommand(sqlstr, conn)
conn.Open()
Dim rdr As SqlClient.SqlDataReader = cmd.ExecuteReader()
rdr.Read()
Dim arrImage() As Byte
arrImage = (CType(rdr.Item("Picture"), Byte()))
Dim ms1 As New System.IO.MemoryStream(arrImage)
Dim origimage As System.drawing.Image
origimage = System.Drawing.Image.FromStream(ms1)
Dim PThumbnail As System.drawing.Image
PThumbnail = origimage.GetThumbnailImage(100, 100, Nothing, New IntPtr)
Dim ms2 As New System.IO.MemoryStream
PThumbnail.Save(ms2, Imaging.ImageFormat.Bmp)
arrImage = ms2.GetBuffer
Response.BinaryWrite(arrImage)
rdr.Close()
conn.Close()
End Sub
///