Foros del Web » Programando para Internet » ASP Clásico »

help!!!! please

Estas en el tema de help!!!! please en el foro de ASP Clásico en Foros del Web. hola amigos: miren tengo este problemin...., tengo una base de datos sybase y quiero guardar la imagen en el servidor. tengo este codigo, pero no ...
  #1 (permalink)  
Antiguo 28/04/2006, 08:08
 
Fecha de Ingreso: marzo-2006
Mensajes: 36
Antigüedad: 18 años, 3 meses
Puntos: 0
help!!!! please

hola amigos:

miren tengo este problemin...., tengo una base de datos sybase y quiero guardar la imagen en el servidor.

tengo este codigo, pero no me funciona porque me guarda todo menos la imagen.

aqui les dejo el codigo, para que le revisen y me digan que puedo hacer

Dim oConn,strSQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DSN=DESARROLLO;UID=sa;PWD=smartsoft")
strSQL="INSERT INTO PERSONAS_FOTOS (CODIGO_TRABAJADOR, CORRELATIVO, TIPO_DOCUMENTO,FOTOGRAFIA) VALUES ('" & fnameInput & "',1,'FOTO', '')"
oConn.Execute(strSQL)

strSQL= "declare @punt varbinary(16) "
strSQL= strSQL & "select @punt = textptr(FOTOGRAFIA) from PERSONAS_FOTOS where CODIGO_TRABAJADOR = '" & fnameInput & "' and CORRELATIVO =" & 1 & " and TIPO_DOCUMENTO=" &"'FOTO' WRITETEXT PERSONAS_FOTOS.FOTOGRAFIA @punt '"& FOTOGRAFIA &"'"
oConn.Execute(strSQL)

ojalá me ayuden
oConn.CLOSE
Set oConn = nothing
  #2 (permalink)  
Antiguo 28/04/2006, 11:41
 
Fecha de Ingreso: noviembre-2005
Mensajes: 658
Antigüedad: 18 años, 7 meses
Puntos: 3
Lo que pasa es que tienes que usar por el lado de ASP el appendchunck y por el lado del server lo que estas usando....yo se que hice todo eso alguna vez pero solo tengo a mano el extraer foto ....y para eso hice lo siguiente

1.- Un procedimiento almacenado que me traia el tamaño de la foto... este

create procedure spa_size_foto (
@cd_empresa int,
@nr_ficha int
)
as
declare @cant integer
select @cant = datalength(foto_trabajador)
from XXXX_FOTOS
where cod_empresa = @cd_empresa
and nro_trabajador = @nr_ficha
if @cant is NULL
select @cant = 0
select @cant CN_BYTES

2.- Despues tenia otro proc para sacar la foto

create procedure spa_exporta_foto (
@cd_empresa int,
@nr_ficha int,
@inicio smallint,
@final int
)
as
declare @punt varbinary(16)
select @punt = textptr(foto_trabajador) from XXX_FOTOS
where cod_empresa = @cd_empresa
and nro_trabajador = @nr_ficha
READTEXT XXX_FOTOS.foto_trabajador @punt @inicio @final using bytes
go


Y en el ASP los llamaba asi.

<% OPTION EXPLICIT
Server.ScriptTimeout = 200
Response.Buffer = true
Response.Expires = 0
Response.ContentType = "image/jpg"
%>
<!--#INCLUDE FILE="include/org_sesion.asp" -->
<%
' EXTRAE FOTOS
dim imagen, cd_empresa, nr_ficha, cn_bytes, mensaje

cd_empresa = request("cd_empresa")
nr_ficha = request("nr_ficha")

connect(" ")

ejecuta("spa_size_foto " & cd_empresa & "," & nr_ficha)
cn_bytes = rs("CN_BYTES")


ejecuta("spa_exporta_foto " & cd_empresa & "," & nr_ficha & "," & 21 & "," & cn_bytes)
imagen = rs("foto_trabajador").GetChunk(cn_bytes)

disconnect()

response.BinaryWrite imagen
response.end
%>
<!--#INCLUDE FILE="include/org_shared.asp" -->

Olvidate del 21;lo que pasa es que las fotos se grabaron con centura y les pone un delta de 21.... eso es....

Lo que si me acuerdo es que para grabar use el appendchunck y otro proc que tenia el writetext

Espero te haya ayudado
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:13.