måste va deg i kablaget

3 svar · 239 visningar · startad av eddy1 21 juni 2004

eddy1Medlem sedan aug. 2001969 inlägg

Frågan21 juni 2004 18:38#1

Med mycket hjälp från folk så använder jag denna kod för att hämta en bild från en server för att spara på en annan. Men det går så segt!!

Någon som kan se vad det är som gör att det går så segt och flytta en fil med följande kod...

<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", " http://www.domän.se/minfil.jpg", False
objHTTP.Send
strBild = objHTTP.ResponseBody
Set objHTTP = Nothing

For i = 1 To LenB(strBild)
strTemp = strTemp & Chr(AscB(MidB(strBild, i, 1)))
Next

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.CreateTextFile(Server.MapPath("bild4.jpg"))
objTS.Write(strTemp)
objTS.Close : Set objTS = Nothing
Set objFSO = Nothing
%>

Provade med en fil på cA 150 KB och det står och tuggar i 60 sek och sen får man timeout. Små filer upp till ca 50KB fungerar bra men sen blir det sämre...

HulthMedlem sedan juni 2001272 inlägg

21 juni 2004 19:17#2

Du har ju redan en tråd om detta och jag tycker personligen att du borde hålla dig till den istället.

PalleMedlem sedan apr. 20003 174 inlägg

21 juni 2004 20:51#3

1. Använd Server.CreateObject("MSXML2.ServerXMLHTTP") istället om du kan då det är den senaste versionen med bättre prestanda.
2. Kör en kontroll som kan generera ett meddelande till besökarna istället, så slipper du få script-error, ex.

[red]If (objHTTP.readyState <> 4) OR (objHTTP.Status <> 200) Then

	objHTTP.Abort
	Response.Write "Nått blev fel, testa igen.."

Else

	strTemp = objHTTP.ResponseText

End If[/red]

tohaMedlem sedan dec. 1999707 inlägg

22 juni 2004 07:04#4

Jag laddade hem en kodsnutt som laddar bilder från valfri url och lägger den i temporary internet files-katalogen som man får som returvärde. Det var iofs VB-kod...