Set xmlDom = New DOMDocument Set iStm = New ADODB.Stream iStm.Type = adTypeBinary iStm.Open iStm.Write mbytes If iStm.Size > 0 Then iStm.Position = 0 iStm.SaveToFile "c:\1.tmp", adSaveCreateOverWrite 'xmlDom.Load iStm xmlDom.Load "c:\1.tmp" Kill "c:\1.tmp" Else Set xmlDom = Nothing End If Set iStm = Nothing 以上代码,是使用了临时文件的,在win2000下和xp下通过,可是如果不使用临时文件,就是把保存的那句注释掉,使用xmlDom.Load iStm ,在xp下通过,但是在2000下出问题。
Set iStm = New ADODB.Stream
iStm.Type = adTypeBinary
iStm.Open
iStm.Write mbytes
If iStm.Size > 0 Then
iStm.Position = 0
iStm.SaveToFile "c:\1.tmp", adSaveCreateOverWrite
'xmlDom.Load iStm
xmlDom.Load "c:\1.tmp"
Kill "c:\1.tmp"
Else
Set xmlDom = Nothing
End If
Set iStm = Nothing
以上代码,是使用了临时文件的,在win2000下和xp下通过,可是如果不使用临时文件,就是把保存的那句注释掉,使用xmlDom.Load iStm ,在xp下通过,但是在2000下出问题。