QTP Report对象的“私家珍藏”

浅浅的花香味﹌ 2021-09-25 15:40 152阅读 0赞

在关键字视图通过InterlliSense查看QTP的Report对象时（如图2所示），可发现仅有3个属性、1个方法可用，其中最常用的是ReportEvent方法。  
而实际上，QTP的Report对象还有其他的方法可用，这些方法并没有对外公开，例如可用LogEvent方法来在日志树中写入一个节点：  
intContext = Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext) '  使用Reporter对象的LogEvent写入新节点  
用SetContext方法把某个节点作为父节点，这样的话，后续写入的Log都将在这个父节点之下：  
Reporter.SetContext intContext ' 调用Reporter对象的SetContext把新写入的节点作为父节点  
如果要退出该节点，返回日志树的上一层，则可调用UnSetContext方法即可，如下脚本所示：  
Reporter.UnSetContext '调用Reporter对象的UnSetContext，返回上一层  
Report对象“解密”  
有了LogEvent、SetContext、UnSetContext这几个方法，我们就可以实现日志的结构化、层次化写入了，例如下面的例子所示：  
Set dicMetaDescription = CreateObject("Scripting.Dictionary") ' 用一个Dictionary对象来存储节点的信息  
dicMetaDescription("Status") = MicDone ' 设置节点的状态  
dicMetaDescription("PlainTextNodeName") = "父节点" ' 设置节点的名称  
dicMetaDescription("StepHtmlInfo") = "<DIV align=left><H1>这是一个拥有孩子的节点</H1><b>Hello！</b> How are you！.</DIV>" ' 设置节点的详细描述信息（可以使用HTML格式）  
dicMetaDescription("DllIconIndex") = 210 ' 设置节点的图标  
dicMetaDescription("DllIconSelIndex") = 210  
dicMetaDescription("DllPAth") = "D:\\Program Files\\HP\\QuickTest Professional\\bin\\ContextManager.dll" ' 节点图标从ContextManager.dll这个DLL文件中读取  
intContext = Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext)  '  使用Reporter对象的LogEvent写入新节点  
Reporter.SetContext intContext ' 调用Reporter对象的SetContext把新写入的节点作为父节点  
Reporter.ReportEvent MicPass, "Step1", "Step1 Pass！" ' 后续写入的Log都将在这个父节点之下  
Reporter.ReportEvent MicWarnning, "Step2", "Step2 Pass With Warnning！"  
Reporter.ReportEvent MicFail, "Step2", "Step2 Fail！"  
Reporter.UnSetContext '调用Reporter对象的UnSetContext，返回上一层  
Reporter.ReportEvent MicPass, "Case2", "Case2 Pass!" ' 在父节点之外写Log  
在这个例子中，我们首先用一个Dictionary对象来存储节点的信息，其中Status表示节点的状态，例如MicDone就表示完成状态；PlainTextNodeName表示节点的名称；StepHtmlInfo表示节点的详细内容，可以用HTML格式来写入；还可以用DllIconIndex、DllIconSelIndex、DllPAth这3个属性来表示节点的图标。  
然后使用Reporter对象的LogEvent把Dictionary中存储的信息写入一个新节点，再调用Reporter对象的SetContext把新写入的节点作为父节点，这样后续写入的Log都将在这个父节点之下，最后调用Reporter对象的UnSetContext，返回上一层，这样后续写入的Log将在这个父节点之外。  
  
  
  
  
(1)首先在QTP中使用“Function Definition Generator”来定义一个名为“EnterNode”的函数。  
Public Function EnterNode(ByRef NodeName, ByRef NodeContent)  
  Set dicMetaDescription = CreateObject("Scripting.Dictionary")  ' 用一个Dictionary对象来存储节点的信息  
  dicMetaDescription("Status") = MicDone' 设置节点的状态  
  dicMetaDescription("PlainTextNodeName") = NodeName  ' 设置节点的名称  
  dicMetaDescription("StepHtmlInfo") = NodeContent  ' 设置节点的详细描述信息（可以使用HTML格式）  
  dicMetaDescription("DllIconIndex") = 210  ' 设置节点的图标  
  dicMetaDescription("DllIconSelIndex") = 210  
  dicMetaDescription("DllPAth") = "D:\\Program Files\\HP\\QuickTest Professional\\bin\\ContextManager.dll"  ' 节点图标从ContextManager.dll这个DLL文件中读取  
  intContext = Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext)  '  使用Reporter对象的LogEvent写入新节点  
  Reporter.SetContext intContext  ' 调用Reporter对象的SetContext把新写入的节点作为父节点  
End Function  
  
  
(2)然后再定义一个与“EnterNode”相应的函数“ExitNode”，  
ExitNode函数用于退出当前日志节点，需要与EnterNode配对使用，函数的脚本如下所示：  
'@Description 退出当前日志节点（与EnterNode配对使用）  
Public Function ExitNode  
   Reporter.UnSetContext   '调用Reporter对象的UnSetContext，返回上一层  
End Function  
(3)有了EnterNode和ExitNode函数后，我们就可以像下面的例子一样使用EnterNode和ExitNode，实现日志记录的结构化、层次化写入：  
' 进入节点  
EnterNode "父节点","<DIV align=left><H1>这是一个拥有孩子的节点</H1><b>Hello！</b> How are you！.</DIV>"  
' 在节点内写Log  
Reporter.ReportEvent MicPass, "Step1", "Step1 Pass！"  
Reporter.ReportEvent MicWarnning, "Step2", "Step2 Pass With Warnning！"  
Reporter.ReportEvent MicFail, "Step2", "Step2 Fail！"  
' 退出节点  
ExitNode  
' 在节点之外写Log  
Reporter.ReportEvent MicPass, "Case2", "Case2 Pass!"  
　　该脚本首先调用EnterNode，创建一个"父节点"，并自动进入该节点的层次下，然后使用普通的ReportEvent方法写日志，当需要退出该"父节点"时，就调用一下ExitNode，则后续的日志都在该节点之外写。  
小结  
本文介绍了Reporter对象的几个鲜为人知的方法，利用LogEvent、SetContext、UnSetContext这几个方法，可以实现日志的结构化、层次化写入，让你的QTP测试报告看起来更加有条理、分类清晰。  
不知道为什么QTP的帮助文档中没有列出这几个有用的方法，但是不管怎样，在我们揭开了Reporter对象的这些隐藏的方法后，我们就可以充分利用它们为我们服务，让我们的自动化测试脚本更加强大。

原地址：http://tech.it168.com/a2008/0806/199/000000199725.shtml