|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
刚接触TC想问下怎么使用Adodb.Stream对象保存文件,为什么我从网站上获取到的.Resp**eBody写入到Adodb.Stream里却成0字节了呢?(单独弹窗.Resp**eBody有内容,获取字符串长度也有31)
下面是验证码获取部分源码:
- function 获取验证码()
- 控件是否有效("验证码图片",false)
- var URL_验证码, ObjStream
- URL_验证码=网站&"/code.asp"
- http.Open("Get", URL_验证码, true)
- http.Send()
- if (http.WaitForResp**e() == true)
- ObjStream=com("Adodb.Stream")
- ObjStream.Type = 1
- ObjStream.Mode = 3
- ObjStream.Open()
- ObjStream.Write(http.Resp**eBody())
- ObjStream.SaveToFile(资源路径&"验证码.jpg",2)
- ObjStream.Close()
- 图片框设置图片("验证码图片","rc:验证码.jpg")
- else
- 图片框设置图片("验证码图片","rc:错误验证码.jpg")
- end
- 控件是否有效("验证码图片",true)
- end
复制代码
|
|