急:VB 分析 数据 为 bin.base64 数据类型时发生错误

[beyondjsq]

Dim xmldoc As New MSXML2.DOMDocument
Dim item As IXMLDOMElement
Dim FileName As String
Dim DispFileName As String
Un_eDocPackage = ""
Un_eDocPackage1 = True
xmldoc.loadXML data
'''MsgBox xmldoc.xml
Err.Clear
Err.Number = 0
On Error Resume Next
Set item = xmldoc.selectSingleNode("/soapenv:Envelope/soapenv:Body/ufseeyon:GetDataResult/ufseeyon:Result/ufseeyon:Success")

If Not (item Is Nothing) Then

If item.Text = "true" Then


Set item = xmldoc.selectSingleNode("/soapenv:Envelope/soapenv:Body/ufseeyon:GetDataResult/ufseeyon:Result/ufseeyon:HasData")

If Not (item Is Nothing) Then

If item.Text = "true" Then
'得到文件的ID
Set item = xmldoc.selectSingleNode("/soapenv:Envelope/soapenv:Body/ufseeyon:GetDataResult/ufseeyon:ExchangeRecord/ufseeyon:ID")
DataId = item.Text


Set item = xmldoc.selectSingleNode("/soapenv:Envelope/soapenv:Body/ufseeyon:GetDataResult/ufseeyon:ExchangeRecord/ufseeyon:FileDataRecord/ufseeyon:FileName")
FileName = item.Text

Set item = xmldoc.selectSingleNode("/soapenv:Envelope/soapenv:Body/ufseeyon:GetDataResult/ufseeyon:ExchangeRecord/ufseeyon:FileDataRecord/ufseeyon:DispFileName")
DispFileName = item.Text

Set item = xmldoc.selectSingleNode("/soapenv:Envelope/soapenv:Body/ufseeyon:GetDataResult/ufseeyon:ExchangeRecord/ufseeyon:FileDataRecord/ufseeyon:FileData")

Dim xmldoc_base64 As New MSXML2.DOMDocument
xmldoc_base64.loadXML "<?xml version=""1.0"" encoding=""utf-8"" ?><base64_data xmlns:dt=""urn:schemas-microsoft-com:datatypes"" dt:dt=""bin.base64"" />"

xmldoc_base64.documentElement.Text = item.Text
程序运行到这儿就报错:
错误为:
实时错误:'-2147467259 (80004005)'
分析'UEsDBQACAAIAHCDnDoAAAAAAAA.....'为bin.base64 数据类型时发生错误.
xmldoc_base64.documentElement.Text = item.Text
这句话报出来的错,item.Text是一个很长的base64字符,大约有8M左右,
兄弟姐妹们,知道原因的快告诉我,十万火急..

Dim Lvarbin() As Byte
Lvarbin = xmldoc_base64.documentElement.nodeTypedValue

'MKDIR mvar_path
'MKDIR mvar_path & "\output"

Open mvar_path & "\" & FileName For Binary As #1
Put #1, , Lvarbin
Close #1

Un_eDocPackage1 = mvar_path & "\" & FileName
mvar_package = mvar_path & "\" & FileName

End If

End If

End If

End If

[嗷嗷叫的老马]

使用小仙妹的BASE64模块试下看看:

http://blog.csdn.net/KiteGirl/archive/2006/06/26/834851.aspx

[beyondjsq]

很奇怪,同一程序生成的BASE64编码,绝大部份能运行正常,少部份不正常.没搞明白为什么....

[用户 昵称]

可能是你的数据格式的问题，俺都是使用直接的程序来操作base64

[guoyingxu]

解决了吗？

[ouyang303]

我也想知道。