VB передает содержимое XML через xmlhttp.send

Question

У меня есть xml-файл размером около 7 МБ, я не хочу его анализировать, я просто хочу отправить этот файл с помощью VB через xmlhttp (post) в сценарий cgi, который может прочитать любую строку, которую я ему предоставляю.проблема связана с этой частью кода xmlhttp.send((xmlDoc)), поскольку xmlDoc загружается, но на самом деле она не интерпретируется как строка.Каков наилучший способ преодолеть это?Я все еще новичок в VB, поэтому любая помощь будет оценена!

Sub Main()

    Dim xmlhttp As Object
    'Dim xmlDoc As New Xml.XmlDocument
    Dim xmlDoc
    xmlDoc = CreateObject("Msxml2.DOMDocument.6.0")
    xmlDoc = XDocument.Load("c:\pos.xml")
    'Console.WriteLine(xmlDoc)
    'xmlDoc.async = False
    xmlhttp = CreateObject("Msxml2.ServerXMLHTTP.6.0")
    'xmlDoc = CreateObject("Msxml2.DOMDocument.6.0")

    'xmlDoc.Load("c:\pos.xml")

    xmlhttp.setOption(2, 4096)
    xmlhttp.Open("POST", "http://10.2.1.195:4980/CM/McPos.cgi?", False)
    xmlhttp.setRequestHeader("Host", "http://10.2.1.195:4980")
    xmlhttp.setRequestHeader("Content-Type", "txt")
    xmlhttp.send((xmlDoc))
    MsgBox("STATUS: " & xmlhttp.Status)
    MsgBox("RESPONSE: ")
    MsgBox(xmlhttp.responseText)

End Sub

Answer 1

Если все, что вы хотите сделать, это отправить текст файла, то я бы порекомендовал использовать FileSystemObject, чтобы получить текст из файла в строку, а затем просто передать эту строку в качестве параметра вашего вызова Send.Вот простой пример отправки строки, хотя и с помощью VBScript, но в основном она такая же.

Как выполнить запрос HTTP POST в ASP?