Jag har ett litet problem, det går aldeles utmärkt att hämta filer från andra servrar med XML, men bara dom är i text-format... Jag skulle behöva hjälp med en kod så att man han hämta bilder mm från andra servrar... <code></code>Problem med att hämta fil från annan server med XML
Set http = CreateObject("MSXML2.XMLHTTP")
http.open "GET", "http://www.sunet.se", False
http.send
Response.Write http.responseText
fungerar ju om man ska hämta t.ex. html-filer....Sv: Problem med att hämta fil från annan server med XML
Du använder http.responseBody istället för http.responseText.
Om du ska spara den på servern:
<code>
Dim http
Dim Stream
Const adTypeBinary = 1
Const adModeReadWrite = 3
Const adSaveCreateOverWrite = 2
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "http://www.pellesoft.nu/bilder/logonew.jpg", False
http.send
Set Stream = CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Mode = adModeReadWrite
Stream.Open
Stream.Write http.responseBody
http.abort 'Laggt till den för att rensa upp.
Set http = Nothing
Stream.SaveToFile "c:\logonew.jpg", adSaveCreateOverWrite
Stream.Close
Set Stream = Nothing
</code>
Annars kan du använda BinaryWrite på Response objektet.