Hämta bild från webb

3 svar · 221 visningar · startad av Glitter 6 feb. 2004

GlitterMedlem sedan juli 2003465 inlägg

Frågan6 feb. 2004 08:37#1

jag har ett litet problem med att spara ned bilder från en websida
jag får ned information om bilden och jag kan spara ned den men informationen är inte samma som orginalet och jag kan inte titta på den nedsparade bilden hur skall jag göra ??

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")

objHTTP.Open "GET", url & "bild.jpg" , False
objHTTP.setRequestHeader "Content-type","image/jpeg"
objHTTP.Send

text = objHTTP.responseBody

Set fs = CreateObject("Scripting.FileSystemObject")

fil = Server.MapPath("test.jpg")

if fs.FileExists(fil) then
	fs.DeleteFile(fil)
'end if

Set fss = fs.CreateTextFile(fil, true)
set fss = nothing

set fss = fs.OpenTextFile(fil, 2, true, TristateMixed)
fss.Writeline(text)
fss.Close

set fss = nothing
set fs = nothing

GlitterMedlem sedan juli 2003465 inlägg

6 feb. 2004 10:31#2

det löste sig :)

OveRRidEMedlem sedan feb. 200112 078 inlägg

6 feb. 2004 11:11#3

Hur då? :q

GlitterMedlem sedan juli 2003465 inlägg

6 feb. 2004 12:51#4

Så här:

Set bild_objHTTP = Server.CreateObject("Microsoft.XMLHTTP")

bild_objHTTP.Open "GET", bild_url , False
bild_objHTTP.setRequestHeader "Content-type","image/jpeg"
bild_objHTTP.Send

bildtext = bild_objHTTP.responseBody
bildtext = [B]BinToText(bild_objHTTP.responseBody,35000)[/B]

Set bild_fs = CreateObject("Scripting.FileSystemObject")

fil = filsokvag

if bild_fs.FileExists(fil) then
	bild_fs.DeleteFile(fil)
end if

Set bild_TextFile = bild_fs.CreateTextFile(fil)

bild_TextFile.Write(bildtext)
bild_TextFile.Close

set bild_fs = nothing

var tvungen att ha functionen för att konvertera:

function BinToText(varBinData, intDataSizeInBytes)
	const adFldLong = 128
	const adVarChar = 200
	set aobjRS = Server.CreateObject("ADODB.Recordset")
  
	aobjRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
	aobjRS.Open
	
	aobjRS.AddNew
	aobjRS.Fields("txt").AppendChunk(varBinData)
	tmp = aobjRS("txt").Value
	aobjRS.Close
	set aobjRS = nothing
	BinToText = tmp
	
	set objRS = nothing
end function