مشكل در xml.http

[shankimout]

يه مشكل تابو دارم كه همه جوابشو ميدونن . من دارم يه proxify با asp مينويسم . همه چي امادس . وقتي از xml.http يه عكس رو در خواست ميكنم عكسو رو بهم نميده فقط فرمت عكسو ميد . مثلا براي gif ميزنه GIF89a لطفا بكمكيد

 

[shankimout]

يه مشكل تابو دارم كه همه جوابشو ميدونن . من دارم يه proxify با asp مينويسم . همه چي امادس . وقتي از xml.http يه عكس رو در خواست ميكنم عكسو رو بهم نميده فقط فرمت عكسو ميد . مثلا براي gif ميزنه GIF89a لطفا بكمكيد

يني در حقيقت باينري رو ساپورت نميكنه . بچه ها اگه راه حللي براي اين مشكل دارن اگه بگن ممنون ميشم

 

[omidak]

سلام:
خوب كدي كه ميزني چيه؟
راستي Classic یا .Net ؟

من فکر کنم. شما خط اول Binary رو میگیرید.
اگر کد اتون رو بزارید. میشه سه سوت حل اش کرد.

 

[shankimout]

<%
  Response.Buffer = True
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", "http://shankimout.20m.com/snkAVT.gif", False
  xml.Send

  Response.Write xml.responseText
 
  
  Set xml = Nothing
%>

 

[omidak]

سلام:
اون خيلي ناقصه. اما اين بهتره :

sSource = "http://www.microsoft.com/homepage/gif/artTech.gif"
sDest = "test.gif"
sUser = ""
sPassword = ""

set oHTTP = CreateObject("Microsoft.XMLHTTP")
oHTTP.open "GET", sSource, False, sUser, sPassword
oHTTP.send
const adTypeBinary = 1
const adSaveCreateOverwrite = 2
set stream = createobject("adodb.stream")
stream.type = adTypeBinary
stream.mode = adModeReadWrite
stream.open
stream.write oHTTP.responseBody
stream.savetofile sDest, adSaveCreateOverwrite
stream.close
set oHTTP = nothing
set stream = nothing

 

[shankimout]

[align=right:27a393372e]منضور من اين نبود
كار من اين شكليه

<img src="image.asp?src="http://shankimout.20m.com/snkAVT.gif" >

[/align:27a393372e]

 

[omidak]

سلام:
خوب بجايه اينكه با Stream ذخیره اش کنید. اونو با Response.Write رویه صفحه بندازید. 8O

 

[shankimout]

در حقيقت بايد بشه اين
ولي كار نمي كنه

<%
sSource = "http://www.microsoft.com/homepage/gif/artTech.gif" 
sDest = "test.gif" 
sUser = "" 
sPassword = "" 
set oHTTP = CreateObject("Microsoft.XMLHTTP") 
oHTTP.open "GET", sSource, False, sUser, sPassword 
oHTTP.send 
const adTypeBinary = 1 
const adSaveCreateOverwrite = 2 
response.wrtie(oHTTP.responseBody)
set oHTTP = nothing 
%>

 

[omidak]

سلام:
خوب تويه Header چی قرار میدید؟

 

[omidak]

به اين يه نيگاهي بنداز :

Response.ContentType = "image/jpeg"

Response.BinaryWrite(oHTTP.responseBody)