[Resolvido] Baixar imagem via URL

[webfuture 0]

Olá pessoal, preciso montar um script que a partir do momento que ler uma url ele baixe as imagens tipo (http://forum.imasters.com.br/public/style_images/imasters2010/logo.png) para uma pasta do meu HD, alguém ja fez isto ou sabe se é possível com ASP + algum componente ou somente ASP?

 

Xavier

[Patrique 0]

Mano é mais ou menos assim

 

<%
strURLIMG = "http://www.teste.com.br/imagem.jpg"
strNomeando = "imagem-salva.jpg"

Set objXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
Set objBinaryStream = CreateObject("ADODB.Stream")

objXMLHTTP.Open "GET", strURLIMG , false
objXMLHTTP.Send()
objBinaryStream.Type = 1
objBinaryStream.Open
objBinaryStream.SaveToFile server.MapPath("pasta-gravar/" & strnomeando), 2

Set objXMLHTTP = Nothing
Set objBinaryStream = Nothing
%>

[webfuture 0]

Olá Patrique, valeu pela dica, porém, ele até salvou mas o arquivo ele deixou com 0 bytes e não abre...o que será que pode ser?

 

Xavier

[xanburzum 169]

dá uma pesquisada no forum k exite uma funcao k pega determinadas TAGS da url passada, você pode alterar e fazer ler apenas as tags img....

[Patrique 0]

colocou a url com a imagem real? aquele exemplo de url não existe imagem, coloque uma img que realmente existe e faça o teste.

[webfuture 0]

Olá pessoal, coloquei sim, peguei uma imagem qualquer do site do Terra de exemplo.

 

Xavier

[Patrique 0]

opa cometi um errinho, teste assim

 

strURLIMG = "http://forum.wmonline.com.br/uploads/photo-22527.gif"
strNomeando = "imagem-salva.jpg"

Set objXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
Set objBinaryStream = CreateObject("ADODB.Stream")

objXMLHTTP.Open "GET", strURLIMG , false
objXMLHTTP.Send()
objBinaryStream.Type = 1
objBinaryStream.Open
objBinaryStream.Write objXMLHTTP.responseBody
objBinaryStream.SaveToFile server.MapPath("pasta-gravar/" & strnomeando), 2

Set objXMLHTTP = Nothing
Set objBinaryStream = Nothing

agora ta funfando...

 

tava faltando o

 

objBinaryStream.Write objXMLHTTP.responseBody

[webfuture 0]

Valeu!

 

Xavier

[Patrique 0]

beleza http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[webfuture 0]

Olá xanburzum tentei localizar mas não localizei este código que adaptando vai dar para listar somente as tags img.. acho que a busca esta off...

 

Xavier