[ASP] - Plaatje opslaan via HTTP-Request

[Nutcaze]

Ik wil een HTTP Request doen op een plaatje willekeurig ergens op internet en wil dit plaatje dan opslaan. Nou heb ik het volgende stukje code gefabriceerd:

code:

Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.open "GET", "http://www.google.nl/images/logo_sm.gif", False
objXmlHttp.Send
Output = objXmlHttp.responseStream
Set objXmlHttp = Nothing

Nou denk ik dat in Output de juiste data zit maar hoe schrijf ik dit nu weg? Is daar een mogelijkheid toe?

[Ashtaroth]

Je moet de response in een byte array stoppen en vervolgens de array opslaan als plaatje.

code:

Dim arrBytes()       As Byte
Dim intFile          As Integer
Dim strFilePath      As String

strFilePath = "c:\plaatje.jpg"

objXmlHttp.responseBody

'get free handle for that file
intFile = FreeFile
        
'write downloaded data to the file
Open strFilePath For Binary As #intFile
    Put #intFile, , arrBytes()
Close #intFile

[Nutcaze]

Dit werkt misschien in VB wel op deze manier maar in ASP gaat dat niet hoor.

[faabman]

zie onderstaand script

JavaScript:

        dim objRequest : set objRequest = Server.CreateObject("Msxml2.SERVERXMLHTTP")
            call objRequest.Open("GET", url, false)
            call objRequest.Send("")
            
            While objRequest.readyState <> 4
                call objRequest.waitForResponse(1)
            Wend
            
            dim strStream : strStream = objRequest.responseBody
            
        set objRequest = nothing
        
        dim objStream : set objStream = Server.CreateObject("ADODB.Stream")
            objStream.type = 1 'binary
            call objStream.Open()
            call objStream.Write(strStream)
            
                call objStream.saveToFile(Server.MapPath(filePath), 2) '2=adSaveCreateOverWrite
            
            call objStream.Close()
        set objStream = nothing

[Nutcaze]

Heel goed bezig! Dat werkt. Bedankt. Ik had al een vermoeden dat het de ADODB.Stream was maar kwam er niet achter hoe 'm te gebruiken. Ik weet nog steeds precies waar het object nou precies voor dient maar dit werkt in ieder geval. Topic mag worden gesloten.

[RobIII]

Nutcaze schreef op maandag 07 november 2005 @ 23:42:
Heel goed bezig! Dat werkt. Bedankt. Ik had al een vermoeden dat het de ADODB.Stream was maar kwam er niet achter hoe 'm te gebruiken. Ik weet nog steeds precies waar het object nou precies voor dient maar dit werkt in ieder geval. Topic mag worden gesloten.

Het is geen ADODB.Stream, maar gewoon een byte array/stream (en dan valt er te twisten over de benaming "stream", maar van mij mag je ). Dat je ADODB gebruikt om die stream op te slaan is andere koek, maar het heeft er dus geen reet mee te maken.

[ Voor 10% gewijzigd door RobIII op 08-11-2005 03:02 ]