0

以下のコードを使用してサービスに正常に接続しましたが、応答を XML ファイル results.xml に保存する必要があります。

Dim xml As New System.Xml.XmlDocument()

     xml.Load("c:\testfile.xml")


    Dim req = WebRequest.Create("????")
    req.Method = "POST"
    req.ContentType = "application/xml"

    Using ms = New MemoryStream()
        xml.Save(ms)
        req.ContentLength = ms.Length
        ms.WriteTo(req.GetRequestStream())
    End Using

    Dim results As XmlReader = XmlTextReader.Create(req.GetResponse().GetResponseStream)

    Dim settings As New XmlWriterSettings()
    settings.Indent = True
    settings.IndentChars = vbTab
    Dim writer As XmlWriter = XmlWriter.Create("c:\results.xml", settings)
    writer.WriteNode(results, False)

コードは実行されますが、空のファイルしか生成されません。どんな助けでも感謝します。

4

1 に答える 1

0

もう 1 つの設定を追加します。

settings.CloseOutput = True

あと、最後見逃した？

writer.WriteEndDocument()
writer.Flush()
writer.Close()
于 2013-09-04T13:29:02.177 に答える