:strip_icc():strip_exif()/u/41063/crop5f22b89b303f2_cropped.jpeg?f=community)
Hoi,
Ik wil op mijn webserver via http een bestand downloaden en het wegschrijven als file. Zodoende kan ik dit bestand later door middel van een inmiddels gevonden componentje converteren en de tekst ervan in de database stoppen.
Door middel van XMLHttp van MS trek ik het gevraagde bestand van een URL, vervolgens schrijf ik het weg via een ADO Stream:
Dim oXML, data
Set oXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXML.Open "GET", URL, False
oXML.Send
data = oXML.responsetext
SEToXML = Nothing
Dim stream
Set stream = Server.CreateObject("ADODB.Stream")
stream.Type = 1 'adTypeBinary
stream.Open
stream.Write data
stream.SaveToFile "C:\kikkers.doc", 2
stream.close
Set Stream = Nothing
Voor zover ik kan zien zou dit moeten werken. Alleen gaat het stream.write niet goed. Komt de data wel als binair blok binnen of moet ik eerst een ascii -> binair conversie uitvoeren voor ik het file kan wegschrijven?
Ik wil op mijn webserver via http een bestand downloaden en het wegschrijven als file. Zodoende kan ik dit bestand later door middel van een inmiddels gevonden componentje converteren en de tekst ervan in de database stoppen.
Door middel van XMLHttp van MS trek ik het gevraagde bestand van een URL, vervolgens schrijf ik het weg via een ADO Stream:
Dim oXML, data
Set oXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXML.Open "GET", URL, False
oXML.Send
data = oXML.responsetext
SEToXML = Nothing
Dim stream
Set stream = Server.CreateObject("ADODB.Stream")
stream.Type = 1 'adTypeBinary
stream.Open
stream.Write data
stream.SaveToFile "C:\kikkers.doc", 2
stream.close
Set Stream = Nothing
Voor zover ik kan zien zou dit moeten werken. Alleen gaat het stream.write niet goed. Komt de data wel als binair blok binnen of moet ik eerst een ascii -> binair conversie uitvoeren voor ik het file kan wegschrijven?
The revenge of the mutant signature of doom is upon us!
