bajar archivo de imagen con asp

http://groups.google.com/groups?hl=...kmsftngp03

Saludos ... Miguel Angel Martínez Morgan ... 8-)
[ MS - MVP - Visual Basic ] [ Cancún, Quintana Roo, México ]
DISCLAIMER: «Este mensaje se proporciona "como está" sin garantías de
ninguna indole, y no otorga ningún derecho.»


Camilo Acosta wrote:

Hola a todos, tengo la siguiente inquietud.

Tengo un archivo de imagen el cual puedo acceder por una direccion
web: Ej. http://servidor_externo/ap/logo.gif

Necesito bajar este archivo a mi servidor web local por medio de ASP,
ya que necesito el archivo fisico para trabajar con el, es decir
necesito hacer un download de ese archivo y guardarlo en mi disco
duro local.

Alguien sabe como puedo hacer esto,

Muchas Gracias,

Camilo Acosta

Creo que esto no es lo que busco...

Gracias,

"Morgan" escribió en el mensaje
news:

http://groups.google.com/groups?hl=...kmsftngp03

Saludos ... Miguel Angel Martínez Morgan ... 8-)
[ MS - MVP - Visual Basic ] [ Cancún, Quintana Roo, México ]
DISCLAIMER: «Este mensaje se proporciona "como está" sin garantías de
ninguna indole, y no otorga ningún derecho.»


Camilo Acosta wrote:

Hola a todos, tengo la siguiente inquietud.

Tengo un archivo de imagen el cual puedo acceder por una direccion
web: Ej. http://servidor_externo/ap/logo.gif

Necesito bajar este archivo a mi servidor web local por medio de ASP,
ya que necesito el archivo fisico para trabajar con el, es decir
necesito hacer un download de ese archivo y guardarlo en mi disco
duro local.

Alguien sabe como puedo hacer esto,

Muchas Gracias,

Camilo Acosta

¡Importante!: Colabora con el grupo. Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Usa ésta función Puedes recibir la ruta por querystring y pasarsela a la
función según como le pases la ruta usa uno de los 2 nomb (uno está
comentado)
<%

Function getBinaryFile(strFilePath)
Dim TypeBinary, oStream, binFile, nomb, s

if len(strFilePath)>0 then

Set oStream = Server.CreateObject("ADODB.Stream")
nomb = split(strFilePath,"\")(ubound(split(strFilePath,"\")))
' nomb = split(strFilePath,"/")(ubound(split(strFilePath,"/")))
TypeBinary = 1
oStream.Open
oStream.Type = TypeBinary
oStream.LoadFromFile strFilePath
binFile = oStream.read

oStream.Flush
if oStream.State = 1 then oStream.Close
Set oStream = Nothing

Response.Buffer = true
Response.Clear
Response.AddHeader "content-disposition", "attachment; filename=" & nomb
Response.ContentType = "application/" &
split(nomb,".")(ubound(split(nomb,".")))
Response.BinaryWrite binFile

end if
End Function

%>

Sashka
MS MVP Access
MCP ASP.Net

"Camilo Acosta" escribió en el mensaje
news:%

Creo que esto no es lo que busco...

Gracias,

"Morgan" escribió en el mensaje
news:

http://groups.google.com/groups?hl=...kmsftngp03

Saludos ... Miguel Angel Martínez Morgan ... 8-)
[ MS - MVP - Visual Basic ] [ Cancún, Quintana Roo, México ]
DISCLAIMER: «Este mensaje se proporciona "como está" sin garantías de
ninguna indole, y no otorga ningún derecho.»


Camilo Acosta wrote:

Hola a todos, tengo la siguiente inquietud.

Tengo un archivo de imagen el cual puedo acceder por una direccion
web: Ej. http://servidor_externo/ap/logo.gif

Necesito bajar este archivo a mi servidor web local por medio de ASP,
ya que necesito el archivo fisico para trabajar con el, es decir
necesito hacer un download de ese archivo y guardarlo en mi disco
duro local.

Alguien sabe como puedo hacer esto,

Muchas Gracias,

Camilo Acosta

Sashka, muchas gracias.

Voy a probar, pero a primera vista es lo que necesito ya que necesito en una
variable el contenido del archivo (binFile).

Muchas Gracias,

Camilo Acosta

"Sashka" escribió en el mensaje
news:

¡Importante!: Colabora con el grupo. Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Usa ésta función Puedes recibir la ruta por querystring y pasarsela a
la función según como le pases la ruta usa uno de los 2 nomb (uno está
comentado)
<%

Function getBinaryFile(strFilePath)
Dim TypeBinary, oStream, binFile, nomb, s

if len(strFilePath)>0 then

Set oStream = Server.CreateObject("ADODB.Stream")
nomb = split(strFilePath,"\")(ubound(split(strFilePath,"\")))
' nomb = split(strFilePath,"/")(ubound(split(strFilePath,"/")))
TypeBinary = 1
oStream.Open
oStream.Type = TypeBinary
oStream.LoadFromFile strFilePath
binFile = oStream.read

oStream.Flush
if oStream.State = 1 then oStream.Close
Set oStream = Nothing

Response.Buffer = true
Response.Clear
Response.AddHeader "content-disposition", "attachment; filename=" & nomb
Response.ContentType = "application/" &
split(nomb,".")(ubound(split(nomb,".")))
Response.BinaryWrite binFile

end if
End Function

%>

Sashka
MS MVP Access
MCP ASP.Net

"Camilo Acosta" escribió en el mensaje
news:%

Creo que esto no es lo que busco...

Gracias,

"Morgan" escribió en el mensaje
news:

http://groups.google.com/groups?hl=...kmsftngp03

Saludos ... Miguel Angel Martínez Morgan ... 8-)
[ MS - MVP - Visual Basic ] [ Cancún, Quintana Roo, México ]
DISCLAIMER: «Este mensaje se proporciona "como está" sin garantías de
ninguna indole, y no otorga ningún derecho.»


Camilo Acosta wrote:

Hola a todos, tengo la siguiente inquietud.

Tengo un archivo de imagen el cual puedo acceder por una direccion
web: Ej. http://servidor_externo/ap/logo.gif

Necesito bajar este archivo a mi servidor web local por medio de ASP,
ya que necesito el archivo fisico para trabajar con el, es decir
necesito hacer un download de ese archivo y guardarlo en mi disco
duro local.

Alguien sabe como puedo hacer esto,

Muchas Gracias,

Camilo Acosta