QTP的Action间的信息共享的4种方法(转)

2010-05-04  袁军 

通过Action参数来传递数据
 
Action2的脚本如下:
' Input Parameters
Message = Parameter("Msg")
Msgbox Message
 
' Output Parameters
If NOT Message = "" Then
       Parameter("ReturnMsg") = "The Message is " & Message
Else
       Parameter("ReturnMsg") = "The Message is Empty!"
End If
 
' RetuenValue
ExitAction "HAHAHAHHAHA!!!!!"
'ExitAction Parameter("ReturnMsg")
 
 
3种调用Action的方法,Action1的脚本如下:
' 调用Action2,输入参数为 “ Hello!”,把输出参数值写到ReturnMessage1变量
RunAction "Action2", oneIteration,"Hello!" ,ReturnMessage1
Msgbox ReturnMessage1
 
' 调用Action2,输入参数为 “ Hello!”,通过Parameter方法读取输出参数值
RunAction "Action2", oneIteration,"Hello!"
ReturnMessage2= Parameter("Action2","ReturnMsg")
Msgbox ReturnMessage2
 
' 如果被调用的Action使用了ExitAction来退出Action并返回ReturnValue,则可以使用下面的方式来获取Return Value的值
' 注意OutPut Parameters与Return Value的区别
ReturnMessage3 = RunAction( "Action2", oneIteration ,"Hello!")
Msgbox ReturnMessage3
 
        通过全局数据表(Global Data Table)来共享数据
 
在Action1中设置参数值,Action1的脚本如下:
' 获取全局数据表
Set Sheet = DataTable.GetSheet("Global")
' 查找参数列
Set Parameter1 = Sheet.GetParameter("Column1")
Set Parameter2 = Sheet.GetParameter("Column2")
' 设置参数值
Parameter1.Value="Hello"
Parameter2.Value="World!"
' 调用Action2,Action2将使用前面设置的参数值
RunAction "Action2", oneIteration
 
在Action2中读取参数值,Action2的脚本如下:
' 获取全局数据表
Set Sheet = DataTable.GetSheet("Global")
' 读取参数值
Set Parameter1 = Sheet.GetParameter("Column1")
Set Parameter2 = Sheet.GetParameter("Column2")
' 使用参数值
Msgbox Parameter1 &" " & Parameter2


 

343°/3436 人阅读/0 条评论 发表评论

登录 后发表评论