MSXML "El sistema no puede encontrar el recurso especificado"

Question

Tengo una función que utiliza MSXML para publicar un documento XML que ayer comenzó a fallar a pesar de que no se realizó ningún cambio en el código. La función es la siguiente:

Public Function PostFile(ByVal address As String, ByVal data As Byte()) As xmldocument 
    Dim xmlHTTP As New MSXML2.XMLHTTP 
    Dim response As New XmlDocument 

    Dim xmlDoc As New MSXML2.DOMDocument 

    Try 
     xmlDoc.load(data) 
     xmlHTTP.open("post", address, False) 
     xmlHTTP.send(xmlDoc) 

     If xmlHTTP.responseXML.xml <> String.Empty Then 
      response.LoadXml(xmlHTTP.responseXML.xml) 
      Return response 
     Else 
      Dim result As String = "<NO_Response><Error>the post succeeded to " + address + " but there was no responce returned</Error><Hint>Check FireWall Settings</Hint></NO_Response>" 
      response.loadxml(result) 
      Return response 
     End If 

    Catch ex As Exception 
     'Error logging code removed 

    End Try 
    Return Nothing 
End Function 

el documento XML y la dirección en la que se pasa son ambas correctas - la línea que hace que el error es xmlHTTP.send(xmlDoc). He intentado esto en 2 máquinas diferentes con el mismo error cada vez y también he intentado reinstalar MSXML3, sin éxito.

La excepción lanzada es:

InnerException: Nothing 
Message:  "The system cannot locate the resource specified. " 
Source:   "msxml3.dll"  
StackTrace:  " at MSXML2.XMLHTTPClass.send(Object varBody) at comms.HTTPHandler.PostFile(String address, Byte[] data) in D:\SCC\Main\Sender\Http.vb:line 42" 

Answer 1

Resultó ser un problema de red - No sospechaba esto al principio ya que el error se levantó tan rápidamente que no sugieren un problema con el punto final . El problema era con una regla que se había agregado (no preguntar por qué) al cortafuegos que evitaba la comunicación con la dirección de destino.

Answer 2

Si se acaba de procesar el XML o DTD está en línea, puede utilizar: xmlDoc.resolveExternals = False