如何防止 MSXML 将其自己的命名空间添加到我的 XML base64 编码文档中？

Question

我正在对文档进行编码，以将其作为 base64 编码元素附加到 xml 文档中进行传输。这很简单，我只需将整个文件放入字节数组中，然后在将数据放入元素中时使用 MSXML 的 nodeTypedValue 对数据进行 Base64 编码。然而，问题在于 MS XML 随后将其自己的命名空间和数据类型属性添加到元素中，从而导致 xml 输出无法通过验证。我正在使用的代码以及输出如下。

如何抑制附加到元素的“xmlns:dt="urn:schemas-microsoft-com:datatypes" dt:dt="bin.base64"”属性？

Private Function xmlBinaryDocument(filePath As String) As IXMLDOMElement
    Dim xmlDOM As MSXML2.DOMDocument60
    Set xmlDOM = New MSXML2.DOMDocument60

    Set xmlBinaryDocument = xmlDOM.createNode(NODE_ELEMENT, "document", NS)

    Dim strExtension As String
    Dim strMimeType As String
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject

    ' Info about file
    strExtension = fso.GetExtensionName(filePath)
    strMimeType = extToMime(strExtension)

    ' Now read the file as binary data into a byte array
    Dim file() As Byte
    file = GetFileBytes(filePath)

    ' Store it in the xml element as a base64 datatype
    xmlBinaryDocument.dataType = "bin.base64"
    xmlBinaryDocument.nodeTypedValue = file

    ' attributes
    xmlBinaryDocument.setAttribute "document_content_type", strMimeType 
    xmlBinaryDocument.setAttribute "document_encoding_type", "base64"
    xmlBinaryDocument.setAttribute "document_extension", strExtension
End Function

输出：

<document xmlns:dt="urn:schemas-microsoft-com:datatypes" dt:dt="bin.base64" 
document_content_type="application/rtf" document_encoding_type="base64" 
document_extension="rtf">***base64 encoded file here***</document>

Answer 1

应该在当地人中多挖掘一下：

xmlBinaryDocument.removeAttribute "dt:dt"