Una pregunta poco usual ...

jgonzale · #1 (**permalink**) 18/08/2002, 19:50

Que mas muchachos y muchachas del foro ASP ...
Antes de preguntar, primero planteo el problema:
El asunto es que una base de datos con varios campos, entre los cuales hay un campo de tipo OLE, el cual almacena una foto de formato JPG (almacena la foto y no la dirección de la foto); este campo no es requerido y por lo tanto, no siempre etará presente; el problema es que no se como especificar si el campo OLE está vacío o no, (Por ejemplo, para un campo texto basta con la siguiente sintanxis para establecer se está vacío o no: "if campo_texto <> "" then ... ... ... else ... ... ... end if" ) yo en mi código coloqué lo siguiente:

<% if oRs.fields("usufot").value <> 0 then
%> <img border="0" src="<%= oRs.fields("usufot").value %>" hspace="5" vspace="5">
<% else
response.write("No hay foto")
end if
%>

Pero como se podrán imaginar, no funciona.

Si alguien sabe lo que sucede, agradecería mucho su ayuda, pues es de carácter urgente y realmente he probado todo.

Agradesco de antemano a todos los usuarios y estoy en espera y atento.

Jean Joel

malex6 · #2 (**permalink**) 18/08/2002, 20:20

Aqui, siempre se ha aconsejado no poner las fotos en la base si no mas bien solo la URL, y si fuere de esa manera tu pregunta ya no tendría fin pues ya la tienes respondida...

el campo de la url es un campo texto y luego si esta vacio, "No hay Foto"

Saludos

<img src="http://www.univercity.cl/imagenes/malex6.gif">

jgonzale · #3 (**permalink**) 18/08/2002, 20:33

Malex6, te agradesco el consejo, y de verdad que lo tengo en cuenta en caso que no halla otra solución, pero la verdad es que soy fanático de dejar lo menos posible fuera de las bases de datos, pues de aqui se pueden controlar mejor los datos (si lo dejo en una carpeta del servidor, esta se podría borrar fácilmente sin borrar el registro que lo direcciona).

De todas maneras, aún sigo atento a cualquier mensaje.

Gracias Malex6 por tu rapidez y servicio.

Jean Joel

malex6 · #4 (**permalink**) 18/08/2002, 21:04

Ok. me parece muy respetable, pero no se te hace pesada la Base con fotos?

<img src="http://www.univercity.cl/imagenes/malex6.gif">

ElAprendiz · #5 (**permalink**) 18/08/2002, 21:42

dame tu mail..tengo una una aplicacion de vgaray que almacena una imagen en la bdd

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

Yoston · #6 (**permalink**) 19/08/2002, 03:08

Hola...no se que BD estas usando..
bueno..con respecto a lo de malex6...depende del tamaño de las fotos...
por ejemplo yo en una bd access con 200 imagenes jpg..capturadas de una webcam no pesa mas de 3.2 mb ...

jean joel...prueba esto...

Código:

  
&lt;!-- #include file=&quot;Adovbs.inc&quot; --&gt;
&lt;%
 mQueryString = &quot;SELECT * FROM imagen where Id=&quot;&amp;codigo
 Set objConn = Server.CreateObject(&quot;ADODB.Connection&quot;)
 objConn.CursorLocation = adUseClient
 objConn.Open &quot;PROVIDER=Microsoft.Jet.OLEDB.4.0;&quot; &amp; &quot;Data Source=C:/BDC.mdb;&quot;
 Set objCmd = Server.CreateObject(&quot;ADODB.Command&quot;)
 objCmd.ActiveConnection = objConn
 objCmd.CommandText = mQueryString
 objCmd.CommandType = adCmdText
 Set objRS = Server.CreateObject(&quot;ADODB.Recordset&quot;)
 objRS.Open objCmd, , adOpenKeySet, adLockPessimistic
 IF objRS.EOF Then
%&gt;
&lt;html&gt;
&lt;head&gt;
&lt;/head&gt;
&lt;body bgcolor=&quot;royalblue&quot;&gt;
&lt;script&gt;
alert(&quot;No hay imagen para este Codigo..&quot;)
window.location.replace(&quot;imagenesC.asp?Cod=200&quot;)   
&lt;/script&gt;
&lt;%    
  Response.end
 else
  SetImgForDisp objRS.fields(&quot;Foto&quot;), &quot;jpeg&quot;
%&gt;
&lt;table border=&quot;1&quot; width=&quot;75%&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;&gt;
   &lt;tr&gt;
     &lt;td width=&quot;20%&quot; valign=&quot;center&quot;&gt;
      &lt;p align=&quot;center&quot;&gt;&lt;IMG height=240 src=&quot;ImagenProxy.asp&quot; width=320&gt;
	&lt;/p&gt;&lt;/td&gt;
   &lt;/tr&gt;

bueno no es todo el codigo..pero es para que pruebes la parte que necesitas...
espero que sirva...chausito

jgonzale · #7 (**permalink**) 19/08/2002, 15:49

Ok, les agradesco a todos el interés.

Para ElAprendiz , mi correo es [email protected] . Creo que me interesaría la aplicación que dices y te agradesco el gesto de enviármelo.

Para Yoston , tu código lo que hace es mostrar una imágen, y verifica que el registro no esté vacío (Que no sea fin de archivo EOF); la verdad, es que no tengo problema al mostrar la imágen, el problema es que no se como verificar si el campo de imágen (el campo y no el registro completo) se encuentra vacío. Cito de nuevo el ejemplo:

Para verificar si un campo de texto está vacío, basta con las siguientes líneas de código:

IF RS.FIELDS("CAMPO_TEXTO) <> "" THEN
'EJECUTA SI NO ESTÁ VACÍO
ELSE
'EJECUTA SI ESTÁVACÍO
END IF

Mi problema es que no se con que comparar el campo imágen para ver si existe o no existe (vacío o no):

IF RS.FIELDS("CAMPO_IMAGEN_OLE") <> ????? THEN
'EJECUTA SI HAY IMÁGEN
ELSE
'EJECUTA SI NO HAY IMÁGEN
END IF

En donde están los interrogantes, es donde no se que colocar. Si alguien sabe, le agradecería me ayudara.

Gracias Yoston, ElAprendiz y Malex6 por su colaboración.

Sigo atento y en espera de cualquier ayuda. Gracias.

Jean Joel

Yoston · #8 (**permalink**) 19/08/2002, 16:26

Hola mira intenta con esto..

'response.write objRS("Foto").ActualSize
'tamaño actual del objeto OLE
IF objRS("Foto").ActualSize > 0 Then
%>
hay imagen...
<%else%>
no hay imagen...
<%end if%>

espero que te sirva....
:cantar:
chausito

jgonzale · #9 (**permalink**) 19/08/2002, 17:09

Yoston, te cuento que el método ActualSize funciona a la perfección, ya no muestra error en ningún lado.

Ahora tengo un problema al mostrar la foto, pero lo intentaré por otro lado (response.binarywrite) y despues posteo que pasa.

Gracias por tu ayuda Yoston, de verdad que eres muy bueno.

Jean Joel

jgonzale · #10 (**permalink**) 19/08/2002, 17:53

Hola de nuevo, El problema ahora es que no muestra la imágen, estoy ulilizando el siguiente código:

<td width="50%" rowspan="5" height="179" valign=center align=center><%
if oRs.fields("usufot").ActualSize <> 0 then
response.ContentType = "image/jpeg"
response.binarywrite oRs.fields("usufot")
else
response.write("Foto No Disponible")
end if
%>

Lo que hace es escribir el código binario en la celda, y no dibujar la foto, que es lo que quiero.

Si alguien sabe que estoy haciendo mal ...

Espero atento a cualquier ayuda ...

Jean Joel

Yoston · #11 (**permalink**) 19/08/2002, 18:05

Hola
intenta con esto....

<<muestaimagen.asp>>

aca esta el if..que tu haces

if..
--->no hay imagen
else
SetImgForDisp objRS.fields("Foto"), "jpeg"

<img src="Imagen.asp" width="320" height="240">

response.End
end if

Function SetImgForDisp(inField, inContentType)
Dim mOleHeadSize, mBytes
Dim mFieldSize, mDumpaway
mOleHeadSize = 78
inContentType = LCase(inContentType)
Select Case inContentType
Case "gif", "jpeg", "bmp"
inContentType = "image/" & inContentType
mBytes = inField.value

Case "ole"
inContentType = "image/bmp"
mFieldSize = inField.ActualSize
mDumpaway = inField.GetChunk(mOleHeadSize)
mBytes = inField.GetChunk(mFieldSize - mOleHeadSize)
End Select
Session("ImageBytes") = mBytes
Session("ImageType") = inContentType
End Function

y esta pagina te sirve como un proxy...(patrones..)

<<imagen.asp>>

<%
response.Expires = 0
response.Buffer = True
response.Clear

response.contentType = Session("ImageType")
response.BinaryWrite Session("ImageBytes")

Session("ImageType") = ""
Session("ImageBytes") = ""

response.End
%>

ojala te sirva.... :cantar:
chausito

jgonzale · #12 (**permalink**) 19/08/2002, 18:28

Ok gracias, esto funciona, pero el problema es que funciona si solo muestro la imagen, pero si además de la imágen intento mostras otros campos de la bd, entonces ya no me muestra la imágen, sino el contenido binario del archivo

.

El problema es que necesito mostrar como unos 9 campos en la misma página (incluyendo el campo de la foto), estos campos se muestran en una tabla.

Pues bien si alguien conoce solución de esto ... Estaré esperando.

Jean Joel

jgonzale · #13 (**permalink**) 19/08/2002, 19:13

Yoston, lo siento, pero lo que dije en el anterior comentario, puede que no sea cierto.

Pues me he dado cuenta que aunque ya cambié los archivos en el servidor, al realizar la petición me da la página que tenía anteriormente, es como si no hubiera remplazado los archivos.

ya eliminé los archivos temporales en mi equipo, reinicié el equipo y aún me sigue leyendo el archivo antiguo.

Es como si el archivo hubiera quedado en el bufer o en memoria del servidor (hosting).

No se como pueda solucionar esto, si alguien cono ce este problema y sabe como solucionarlo, le agradecería mucho.

Jean Joel

jgonzale · #14 (**permalink**) 19/08/2002, 20:19

Yoston, hice el código como digite pero la imágen no se muestra.

Mira la página aqui:

<a href='ir.asp?http://www.centroabastos.com.co/prb/local1.asp?id=0083' target='_blank'>http://www.centroabastos.com.co/prb/loca...</a>

Si puedes, dame tu E-mail y te mando el archivo a ver que estoy haciendo mal.

Disculpenme tanta molestia, pero la duda no me deja tranquilo.

Jean Joel

Yoston · #15 (**permalink**) 19/08/2002, 23:41

Mira lo que entiendo es que te muestra la misma imagen es decir como que no actualiza la siguiente imagen...
bueno lo que yo hago es esto:

<<Mostrarimagen.asp>>
sub redir(codigo)
%>
<script language="javascript">
parent.location.replace("Mostrarimagen.asp?ac =mostrar&amp;Cod=<%=codigo%>");
</script>
<%
end sub

Sub Mostrar_Imagen(codigo_Imagen)
aca el codigo anterior...
que te mande..
sql=".selec..."
if rs...
...no hay imagen
then
...imagen
end if
end sub

accion=CStr(Request.QueryString("ac"))
codigo=CInt(Request.QueryString("Cod"))

Select Case accion
case "mostrar"
call mostrar_Imagen(codigo)

Case else
call redir(codigo)

End Select

el replace permite recargar la pagina...asi la imagen se refresca

bueno espero que te sirva...
mi crreo es [email protected]
chausito..

jgonzale · #16 (**permalink**) 20/08/2002, 01:02

Ok, Yoston, te he enviado un archivo .zip a tu correo, por favor revisalo y me avisas.

Me sigue presentando el mismo problema, no quiere mostrar la imágen.

Gracias...

Jean Joel

Yoston · #17 (**permalink**) 20/08/2002, 02:15

Hola te envie un ejemplo zipeado(paginas y bd)...espero que ahora si puedas hacerlo

chausitooo :cantar:

jgonzale · #18 (**permalink**) 21/08/2002, 01:56

Que mas Yoston, gracias por el ejemplo que me enviaste, funciona a la perfección, pero me queda una duda:

Las imágenes que almaceno en la base de datos, ¿se le adiciona un encabezado o algo así?

Lo digo porque no envías los bytes completos, sino que omites los 78 primeros, ¿Por que lo haces?

Bueno, disculpame la molestia, pero la verdad es que tengo curiosidad, y es para ver si resuelvo una duda, la cual está posteada en el mensaje "Por que no muestra la imágen???" de este mismo foro; por si te pasas por ahi, la dirección es:

<a href='ir.asp?http://www.forosdelweb.com/mensaje.asp?id=96918' target='_blank'>http://www.forosdelweb.com/mensaje.asp?i...</a>

Bueno, no te molesto mas y de verdad te agradesco toda la ayuda que me has brindado.

Jean Joel

Yoston · #19 (**permalink**) 21/08/2002, 02:56

hola--
mira asi yo guardo las imagenes en una BD

Código:

 
 rs.AddNew
 ff = FreeFile
 file = &quot;c:\inetpub\wwwroot\tesis\cap.jpg&quot;
 Open file For Binary Access Read As ff
 n = LOF(ff)
 If n Then
  ReDim b(1 To n) As Byte
  Get ff, , b()
 End If
 Close ff
 rs.Fields(&quot;Foto&quot;).Value = b()
 rs.Update

lo hago con visual basic...
no me meto con los header de las imagenes
pues para mi uso en particular no me interesaban...

bueno...

ahora si...espero que

lo logres

chausito dijo monchito... :cantar:

jgonzale · #20 (**permalink**) 22/08/2002, 00:09

Ok, Yoston, te cuento que el problema es que la foto no se muestra, cuando es de formato jpg y tiene compresión; cuando es de formato gif o de formato jpg sin compresión (alta calidad), no se presenta ningún problema.

Por lo anterior he decidido restringir el upload de fotos solo a formatos gif y jpg sin compresión.

En este caso lo dejaré así, pero si alguien conoce como mostrar fotos jpg con perdida de calidad (jpg comprimidas y/o alisadas) que se encuentren almacenadas en una base de datos, bienbenida la ayuda.

Yoston, de verdad muchas gracias por tu paciencia.

Jean Joel