尝试下载 XML 文件时出错

Question

我正在尝试下载一个 XML 文件，该文件已存在于指定路径中，我对 VB 不熟悉，可能此代码不正确，我需要帮助能够下载现有的 xml 文件，这是 代码：

Protected Sub DownloadFile(ByVal sPath As String)
        Dim TargetFile As New System.IO.FileInfo(sPath)
        Response.Clear()
        Response.AddHeader("Content-Disposition", "attachment; filename=" +
            TargetFile.Name)
        Response.AddHeader("Content-Length", TargetFile.Length.ToString())
        Response.ContentType = "text/xml"
        Response.WriteFile(TargetFile.FullName)
        Response.End()
End Sub

控制台返回的错误：

未捕获的错误：Sys.WebForms.PageRequestManagerParserErrorException：无法解析从服务器接收到的消息。此错误的常见原因是通过调用 Response.Write()、响应过滤器、HttpModules 或启用了服务器跟踪来修改响应。

将问题情境化：

我已经序列化了一个对象并创建了一个XML文件，然后我只想下载这个文件，我的困难是下载文件。

Dim oObj1 As New System.Xml.Serialization.XmlSerializer(GetType(eSocial.Eventos.evtTabHorTur.eSocial))
Dim sFileName = Date.Now.ToString("yyyyMMddHHmmss") & ".xml"
Dim sPath = Constantes.Ambiente.CaminhoSite & "temp\" & sFileName
Dim oFile As New System.IO.StreamWriter(sPath)
oObj1.Serialize(oFile, eSocialCamposXml)
oFile.Close()

Answer 1

您是说下载时遇到困难，但代码中除了显示写入文件然后序列化文件外没有任何内容。您将使用“StreamReader”或类似方式来读取文件。这是一个简单的例子。假设我在文件位置有一个 xml 结构，其架构如下：

<root>
    <test>Data</test>
</root>

我可以在 VB.NET 中编写它来获得它：

Sub Main()
  Dim xmlFile As XDocument
  Dim fileLocation = "D:\\Test Code\\Test.xml"
  Using sr = New StreamReader(fileLocation)
    xmlFile = XDocument.Parse(sr.ReadToEnd())
  End Using

  Console.WriteLine(xmlFile.Root.Element("test").Value.ToString)

  Console.ReadLine()
End Sub