Mostrar imagen contenida en campo sql server
Tengo una imagen dentro de una campo tipo img (en formato binario), desearía mostrarlo mediante ASP, en una página HTML. He probado con respondeBinaryWrite(rs("campoimagen")), pero me muestra el código binario.
Es posible hacer lo que quiero.
Es posible hacer lo que quiero.
1 respuesta
Respuesta de kornerson
1
Tienes que comprender lo que estas haciendo.
En ASP todo lo que "escupas" al cliente lo harás en formato HTML/text. O sea... que le volcaras HTML.
Cuando haces una petición de una página web cualquiera y tiene gráficos, por cada gráfico tu navegador hará una petición más. Esa petición va codificada de otra maera. binary/image o algo así -seguro que buscando en la red encuentras las cabeceras correctas. Lo que tienes quehacer es un pequeño aSP que dada la información para recuperar determinada imagen, responda con el contentType requerido y seguidamente hacer un binarywrite
Así funcionara
En ASP todo lo que "escupas" al cliente lo harás en formato HTML/text. O sea... que le volcaras HTML.
Cuando haces una petición de una página web cualquiera y tiene gráficos, por cada gráfico tu navegador hará una petición más. Esa petición va codificada de otra maera. binary/image o algo así -seguro que buscando en la red encuentras las cabeceras correctas. Lo que tienes quehacer es un pequeño aSP que dada la información para recuperar determinada imagen, responda con el contentType requerido y seguidamente hacer un binarywrite
Así funcionara
Lo he hecho como me dices, pero en el mismo ASP y me muestra lo mismo. Obligaroriamente hay que hacerlo en otro ASP. Si es así mediante que método: función, subrutina, include ..
Te adjunto parte del código.
<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "FILEDSN=SQL7DES_PRUEBAS.dsn"
SQLQuery = "SELECT * FROM TBDocusImages"
' Primer Recordset RSCustomerList.
Set rs = OBJdbConnection.Execute(SQLQuery)
%>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=1>
<% Do While Not rs.EOF %>
<TR><TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("DocID")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("DImgID") & ", " %>
</FONT>
</TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%
Response.ContentType = "image/GIF"
response.BinaryWrite(rs("Img"))
Response.ContentType = "text/HTML"
%>
</FONT>
</TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("ImgRuta")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("ImgArchivo")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("ConUsuCod")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("ConModFec")%>
</FONT></TD>
</TR>
<%
rs.MoveNext
Loop
rs.Close
OBJdbConnection.Close
%>
</TABLE>
<%
Set OBJdbConnection = Nothing
%>
Te adjunto parte del código.
<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "FILEDSN=SQL7DES_PRUEBAS.dsn"
SQLQuery = "SELECT * FROM TBDocusImages"
' Primer Recordset RSCustomerList.
Set rs = OBJdbConnection.Execute(SQLQuery)
%>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=1>
<% Do While Not rs.EOF %>
<TR><TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("DocID")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("DImgID") & ", " %>
</FONT>
</TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%
Response.ContentType = "image/GIF"
response.BinaryWrite(rs("Img"))
Response.ContentType = "text/HTML"
%>
</FONT>
</TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("ImgRuta")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("ImgArchivo")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("ConUsuCod")%>
</FONT></TD>
<TD BGCOLOR="f7efde" ALIGN=CENTER>
<FONT STYLE="ARIAL NARROW" SIZE=1>
<%= rs("ConModFec")%>
</FONT></TD>
</TR>
<%
rs.MoveNext
Loop
rs.Close
OBJdbConnection.Close
%>
</TABLE>
<%
Set OBJdbConnection = Nothing
%>
Cuando digo otro asp me refiero a OTRO fichero de código ASP.
El TAG del img seria
<img src="fichero_quedevuelve_imagenes.asp">
el fichero_quedevuelve_imagenes.asp se iniciaria con un
Response.ContentType tipo
(no recuerdo el tipo pero ha de ser algo asi como "binary/image")
y luego hacer el Response.BynaryWrite.
No se si lo entiendes...
El TAG del img seria
<img src="fichero_quedevuelve_imagenes.asp">
el fichero_quedevuelve_imagenes.asp se iniciaria con un
Response.ContentType tipo
(no recuerdo el tipo pero ha de ser algo asi como "binary/image")
y luego hacer el Response.BynaryWrite.
No se si lo entiendes...
