XMLHTTP组件用于文件下载的应用

博客介绍了MSXML2的应用,包括导入引用、简单文本获取示例、文件下载代码,还指出在ASPX页面开始行需加aspcompat=true,否则会出现“/TestDL”应用程序中接口MSXML2.IXMLHTTPRequest的QueryInterface失败的服务器错误。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

1、导入引用,选择 MSXML2 即可

2、简单例子应用,取文本的:

Dim myxmlhttp As MSXML2.XMLHTTP = New MSXML2.XMLHTTPClass
        url = http://www.163.com
        myxmlhttp.open("GET", url, False, "", "")
        myxmlhttp.send("")

        TextBox1.Text = myxmlhttp.responseText

3、下载文件:

dim imgURL="http://cn.yimg.com/sp/hsxt/zxy05102101.jpg"

Dim _xmlhttp As New MSXML2.XMLHTTP
        Try
            _xmlhttp.open("GET", imgURL, False, Nothing, Nothing)
            _xmlhttp.send("")
        Catch ex As Exception
            Label2.Text = "Can't download the picture!"
            Return StrImage
            Exit Function
        End Try
        Dim status = _xmlhttp.status
        If _xmlhttp.readyState = 4 And status = 200 Then
            If System.IO.File.Exists(StringFilePath) Then
                System.IO.File.Delete(StringFilePath)
            End If
            Dim fs = New System.IO.FileStream(StringFilePath, System.IO.FileMode.CreateNew)
            Dim w = New System.IO.BinaryWriter(fs)
            w.Write(_xmlhttp.responseBody)
            w.Close()
            fs.Close()
        Else
            Label2.Text = _xmlhttp.statusText
        End If

4. 在ASPX页面的开始行需要加上 aspcompat=true,否则会出错,原因不明,如下:

“/TestDL”应用程序中的服务器错误。

接口 MSXML2.IXMLHTTPRequest 的 QueryInterface 失败。

“/TestDL”应用程序中的服务器错误。

接口 MSXML2.IXMLHTTPRequest 的 QueryInterface 失败。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值