【IT168 专稿】
本文介绍了Reporter对象的几个鲜为人知的方法，利用LogEvent、SetContext、UnSetContext方法，可以实现日志的结构化、层次化写入，让你的QTP测试报告看起来更加有条理、分类清晰。
QTP的日志其实有很多的缺点，尤其是当你的脚本依赖函数来执行的时候，因为函数执行时调用Reporter对象来写日志，只会顺序从上到下、扁平、不分类地写下去，如图1所示。
图1 函数执行时调用Reporter对象写日志的问题
而不像在Action中写日志一样，按一定的层次关系来写日志（例如根据调用的关系嵌套）。那么如何让函数调用Reporter对象来写日志时也具备一定的层次关系，让日志展现更加灵活、分类清晰呢？其实QTP的Report对象中暗藏了不少可利用的属性和方法。
Report对象的“私家珍藏”
在关键字视图通过InterlliSense查看QTP的Report对象时（如图2所示），可发现仅有3个属性、1个方法可用，其中最常用的是ReportEvent方法。
图2 Reporter对象的公开方法和属性
而实际上，QTP的Report对象还有其他的方法可用，这些方法并没有对外公开，例如可用LogEvent方法来在日志树中写入一个节点：
' 使用Reporter对象的LogEvent写入新节点
intContext = Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext)
用SetContext方法把某个节点作为父节点，这样的话，后续写入的Log都将在这个父节点之下：
' 调用Reporter对象的SetContext把新写入的节点作为父节点
Reporter.SetContext intContext
如果要退出该节点，返回日志树的上一层，则可调用UnSetContext方法即可，如下脚本所示：
'调用Reporter对象的UnSetContext，返回上一层
Reporter.UnSetContext
Report对象“解密”
有了LogEvent、SetContext、UnSetContext这几个方法，我们就可以实现日志的结构化、层次化写入了，例如下面的例子所示：
' 用一个Dictionary对象来存储节点的信息
Set dicMetaDescription = CreateObject("Scripting.Dictionary")
' 设置节点的状态
dicMetaDescription("Status") = MicDone
' 设置节点的名称
dicMetaDescription("PlainTextNodeName") = "父节点"
' 设置节点的详细描述信息（可以使用HTML格式）
dicMetaDescription("StepHtmlInfo") = "<DIV align=left><H1>这是一个拥有孩子的节点</H1><b>Hello！</b> How are you！.</DIV>"
' 设置节点的图标
dicMetaDescription("DllIconIndex") = 210
dicMetaDescription("DllIconSelIndex") = 210
' 节点图标从ContextManager.dll这个DLL文件中读取
dicMetaDescription("DllPAth") = "D:\Program Files\HP\QuickTest Professional\bin\ContextManager.dll"
' 使用Reporter对象的LogEvent写入新节点
intContext = Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext)
' 调用Reporter对象的SetContext把新写入的节点作为父节点
Reporter.SetContext intContext
' 后续写入的Log都将在这个父节点之下
Reporter.ReportEvent MicPass, "Step1", "Step1 Pass！"
Reporter.ReportEvent MicWarnning, "Step2", "Step2 Pass With Warnning！"
Reporter.ReportEvent MicFail, "Step2", "Step2 Fail！"
'调用Reporter对象的UnSetContext，返回上一层
Reporter.UnSetContext
' 在父节点之外写Log
Reporter.ReportEvent MicPass, "Case2", "Case2 Pass!"
在这个例子中，我们首先用一个Dictionary对象来存储节点的信息，其中Status表示节点的状态，例如MicDone就表示完成状态；PlainTextNodeName表示节点的名称；StepHtmlInfo表示节点的详细内容，可以用HTML格式来写入；还可以用DllIconIndex、DllIconSelIndex、DllPAth这3个属性来表示节点的图标。
然后使用Reporter对象的LogEvent把Dictionary中存储的信息写入一个新节点，再调用Reporter对象的SetContext把新写入的节点作为父节点，这样后续写入的Log都将在这个父节点之下，最后调用Reporter对象的UnSetContext，返回上一层，这样后续写入的Log将在这个父节点之外。
这个例子的运行结果如图3所示。
图3 脚本运行结果
封装成可重用的函数
可以把上面的代码封装成一个可重用的函数，以方便调用。方法如下：
（1）首先在QTP中使用“Function Definition Generator”来定义一个名为“EnterNode”的函数。如图4所示。
图4 定义函数EnterNode
该函数实现的是把日志写入某个节点下，输入参数为NodeName（节点的名称），NodeContent（节点的描述信息）。
函数的脚本如下：
'@Description 指定把日志写入节点下
Public Function EnterNode(ByRef NodeName, ByRef NodeContent)
' 用一个Dictionary对象来存储节点的信息
Set dicMetaDescription = CreateObject("Scripting.Dictionary")
' 设置节点的状态
dicMetaDescription("Status") = MicDone
' 设置节点的名称
dicMetaDescription("PlainTextNodeName") = NodeName
' 设置节点的详细描述信息（可以使用HTML格式）
dicMetaDescription("StepHtmlInfo") = NodeContent
' 设置节点的图标
dicMetaDescription("DllIconIndex") = 210
dicMetaDescription("DllIconSelIndex") = 210
' 节点图标从ContextManager.dll这个DLL文件中读取
dicMetaDescription("DllPAth") = "D:\Program Files\HP\QuickTest Professional\bin\ContextManager.dll"
' 使用Reporter对象的LogEvent写入新节点
intContext = Reporter.LogEvent("User", dicMetaDescription, Reporter.GetContext)
' 调用Reporter对象的SetContext把新写入的节点作为父节点
Reporter.SetContext intContext
End Function
（2）然后再定义一个与“EnterNode”相应的函数“ExitNode”，如图5所示：
图5 定义函数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对象的这些隐藏的方法后，我们就可以充分利用它们为我们服务，让我们的自动化测试脚本更加强大。
