[Resolvido] Download de imagens, renomeando e salvando

[xanburzum 169]

Neste tutorial, vamos acessar um servidor remoto, faremos download de imagens, e poderemos renomear e salvar ao nosso sistema de arquivos. Iremos usar uma função (pegaImagem) e uma sub-rotina (salvaImagem). Primeira parte do nosso código, pegue array de bytes da imagem de um servidor remoto. A segunda parte contém uma sub-rotina que grava array de bytes para arquivo de sistema.

 

Coloque a nossa função e chamadas de subrotina no início do código.

 

Criando variáveis

imageUrl = "htp://www.algum-nome-de-domínio.com /imagens/imagem.jpg"
strImageName = "nova-imagem.jpg"



Function and subroutine calls

salvaImagem pegaImagem(imageUrl), strImageName


Aqui é uma biblioteca de código:

Function pegaImagem(strImageUrl)
' Set objHttp = CreateObject("Microsoft.XMLHTTP")
' Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
' Set Http = CreateObject("WinHttp.WinHttpRequest")
objHttp.Open "GET", URL, False
objHttp.Send

pegaImagem = pegaImagemHttp.ResponseBody
End Function

Sub salvaImagem(ByteArray, strImageName)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1

Set objBinaryStream = CreateObject("ADODB.Stream")
objBinaryStream.Type = adTypeBinary

objBinaryStream.Open
objBinaryStream.Write ByteArray
objBinaryStream.SaveToFile "C:\Inetpub\wwwroot\diretorio\images\" & (strImageName), adSaveCreateOverWrite
response.Write("A imagem fez o download e salvou!")
end sub