TC里怎么使用Adodb.Stream

似此星辰非昨夜

刚接触TC想问下怎么使用Adodb.Stream对象保存文件，为什么我从网站上获取到的.Resp**eBody写入到Adodb.Stream里却成0字节了呢？(单独弹窗.Resp**eBody有内容，获取字符串长度也有31)
下面是验证码获取部分源码：

1. function 获取验证码()
   
2.     控件是否有效("验证码图片",false)   
   
3.     var URL_验证码, ObjStream
   
4.     URL_验证码=网站&"/code.asp"
   
5.     http.Open("Get", URL_验证码, true)
   
6.     http.Send()
   
7.     if (http.WaitForResp**e() == true)
   
8.         ObjStream=com("Adodb.Stream")
   
9.         ObjStream.Type = 1
   
10.         ObjStream.Mode = 3
    
11.         ObjStream.Open()
    
12.         ObjStream.Write(http.Resp**eBody())
    
13.         ObjStream.SaveToFile(资源路径&"验证码.jpg",2)
    
14.         ObjStream.Close()
    
15.         图片框设置图片("验证码图片","rc:验证码.jpg")        
    
16.     else      
    
17.         图片框设置图片("验证码图片","rc:错误验证码.jpg")
    
18.     end  
    
19.     控件是否有效("验证码图片",true)
    
20. end

复制代码

kevinqq

用http.rest***stream