关于ActiveX Dll在VBSCRIPT里面执行出现形态不符合的错误?急。。。

adminyao 2005-05-13 04:45:30
在这个DLL文件中,有引用 C:\WINDOWS\system32\msxml.dll Microsoft XML, version 2.0 的DLL文件。objxmlDOM.dll里面有这幺一个函数:

Public Function blnChkXmlFile(loXmlDoc As DOMDocument, ByVal lstrFileName As String) As Boolean
blnChkXmlFile = False

loXmlDoc.async = False
loXmlDoc.validateOnParse = False
If Dir(lstrFileName, vbNormal) <> "" Then
loXmlDoc.Load (lstrFileName)
If loXmlDoc.readyState = 4 And loXmlDoc.parseError = 0 Then
blnChkXmlFile = True
End If
End If
End Function

编译成DLL文件后,copy到C:\WINDOWS\system32目录下面注册。注册是成功的。

我在VBSCRIPT里面调用它。
SET xmlcls =CreateObject("objxmlDOM.XmlDOM")

Set xmldoc =CreateObject("MSXML.DOMDocument")

Flag=xmlcls.blnChkXmlFile(xmldoc, "C:\DTD\TEST.DI")

老是提示形态不符合的错误,请问为什幺?高手帮帮忙,先谢谢了。
...全文
106 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
zlt982001 2005-05-16
  • 打赏
  • 举报
回复
1.确保两边 引用的 msxml.dll 版本一致
2.显式定义 DOMDocument对象
Dim xmldoc As MSXML.DOMDocument
Set xmldoc =CreateObject("MSXML.DOMDocument")
Flag=xmlcls.blnChkXmlFile(xmldoc, "C:\DTD\TEST.DI")
qjzrd 2005-05-16
  • 打赏
  • 举报
回复
帮你顶呀
adminyao 2005-05-13
  • 打赏
  • 举报
回复
出错信息是在Flag=xmlcls.blnChkXmlFile(xmldoc, "C:\DTD\TEST.DI")这一行

864

社区成员

发帖
与我相关
我的任务
社区描述
VB COM/DCOM/COM+
c++ 技术论坛(原bbs)
社区管理员
  • COM/DCOM/COM+社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧