Image downloading from remote servers in ASP

Published on 5/22/2008 by Site Editor
More articles in ASP

Vote this tutorial:

In this tutorial, we will access to a remote server, download image, rename ths image and save to our file system. We will use one function (getImage) and one subroutine (saveImage) to complete this sampel code.

First part of our code, get image byte array from remote server. Second part contains a subroutine that writes byte array to file system.

Lets's put our function and subroutine calls in the beginning of code.

Creating variables

imageUrl = "htp://www.some-domain-name.com/images/target-image.jpg"
strImageName = "new-image.jpg"

Function and subroutine calls

saveImage getImage(imageUrl), strImageName

Here is code library:

Function getImage(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

getImage = getImageHttp.ResponseBody
End Function

Sub saveImage(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\dotnetindex.com\images\" & (strImageName), adSaveCreateOverWrite
response.Write("Image has been download and saved!")
end sub

Aim of this article, to be a reference how to download bytes from remote servers. You may use this source code after adding some error controlling to sample code.

Image downloading from remote servers in ASP

Latest Posts

Who's online