xml - サービス参照を使用せずに XML ファイルを Web サービスに投稿する

Question

Web サービスの 1 つで問題が発生している vb コードをデバッグしようとしています。非 .Net VB IDE を持っていないため、可能な限り VB コードを模倣するために vb .net で XML ファイルを送信しようとしています。プロジェクトで Web 参照を使用している場合、この問題は発生しません。

これがVB .NetでエミュレートしようとしているVBコードです

Dim oHttp As WinHttp.WinHttpRequest
Set oHttp = New WinHttp.WinHttpRequest


Call oHttp.Open("POST", m_URL, False)
oHttp.setRequestHeader "Content-Type", " text/xml"
Call oHttp.send(request)
Call oHttp.waitForResponse
'Process response
Dim response As String
response = oHttp.responseText
Set oHttp = Nothing

これまでの私のコードは次のとおりです。

    Dim request As WebRequest = WebRequest.Create("http://localhost/service/service.asmx")
    Dim xml As String = String.Empty
    Dim sr As New StreamReader("c:\xmlfile.xml")
    xml = sr.ReadToEnd
    sr.Close()
    sr.Dispose()

    Dim bytesToWrite As Byte() = Encoding.ASCII.GetBytes(xml)

    request.Method = "POST"
    request.ContentLength = bytesToWrite.Length
    request.ContentType = "text/xml"
    request.Headers.Add("SOAPAction", "[web service url]/Submit")

    Dim newStream As Stream = request.GetRequestStream()
    newStream.Write(bytesToWrite, 0, bytesToWrite.Length)
    newStream.Close()

    Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
    Dim dataStream As Stream = response.GetResponseStream()
    Dim reader As New StreamReader(dataStream)

    Dim responseFromServer As String = reader.ReadToEnd()

Web サービスはリクエストを受信して​​いますが、オブジェクトが null です