51Testing软件测试论坛

标题: 有关QTP使用Class的问题 [打印本页]

作者: happychap 时间: 2008-10-15 14:36
标题: 有关QTP使用Class的问题
假如我在一个.vbs或.qfl文件中自定义了一个类，那么，我要在QTP脚本中使用这个类，都应该做哪些工作呢？
PS：仅仅在QTP的Setting中指定Resources是不可行的，.vbs或.qfl中定义的类都不能被识别。

作者: 小孩 时间: 2008-10-15 16:10
恩，目前是不能识别得，不过可以同过 ExecuteFile 来执行脚本文件。
就可以支持类了

作者: happychap 时间: 2008-10-15 18:44
我在网上找了半天资料，也没找到具体的方法，现在是通过ExcuteGlobal来完成的，并且还存在缺陷，没办法，先用到吧。

作者: superMax 时间: 2008-10-16 10:40
学习

作者: chenyb85 时间: 2008-10-16 10:54
把vbs文件加载到Resources中后，我用以下方法绕过QTP不识别导入的vbs文件中的类的问题。
在放置class(类)的vbs文件中，放置以下函数：
------------------------------------------------------------------------------------------------------------------
'/****************************************************/
'* 功能：由于QTP不识别导入的VBS文件中的类，因此定义此函数来返回相应的对象
'* 输入参数：className  ：要建立对象的类名
'* 返回值：返回类对象
'* 编写人：  chenyb
'* 编写日期：2008-10-16
'* 其他说明：以下只是方法，根据需要再扩展
'/****************************************************/
Public Function newClass(className)
Dim strSentence,obj
strSentence = strSentence & "set obj = New " & className '创建对象
Execute strSentence  '执行字符串语句
Set newClass = obj '返回对象
End Function
----------------------------------------------------------------------------------------------------
然后就可以通过以下方法来创建类对象了：
------------------------------------------------------------------------------------------------------
Dim e
Set e = newClass("OPEXCEL")
e.setPath = environment("TestDir") & "/../data/test.xls"
e.connection
MsgBox e.getCellDate("Global","列二",1)
-------------------------------------------------------------------------------------------------------

作者: happychap 时间: 2008-10-23 11:17
这种方法好，比我想出来的方法好多了，用之。
使用这种方法，就可以在想用对象的时候随时New出来。

作者: happychap 时间: 2008-10-23 11:23
这种方法不知会不会遇到另一个小问题：
如果有多个文件中都编写了类，那么就需要在每个文件中都写一个这样的方法，而QTP在遇到相同的方法时，好象是在Resources中选择最后一个与指定Function名称匹配的文件，从而可能导致有个类不能通过调用上面的newClass获得。

作者: gy21st 时间: 2008-10-23 12:51
有四种方法
请参考老帖
http://bbs.51testing.com/viewthr ... mp;page=1#pid851721

作者: chenyb85 时间: 2008-10-24 13:09
试了一下并不用每个文件中都写一个这样的方法，只要有一个这样函数就可以了。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)