51Testing软件测试论坛

标题: 关于调用QC的API问题 [打印本页]

作者: huangrong1981    时间: 2008-1-6 11:54
标题: 关于调用QC的API问题
请问在QTP脚本或者VBS文件中如何调用Quality Center的API?
我试过用CreateOjbect("TDConnection")或者CreateOjbect("TDAPIOLELib.TDConnection")方法都没有办法获取QC连接,执行的时候会报错:ActiveX部件不能创建对象。
作者: walker1020    时间: 2008-1-10 00:47
调用Quality Center的API? 楼主想用脚本启动QC 还是?
作者: walker1020    时间: 2008-1-10 00:47
楼主最好是把自己的要求和达到的效果说出来比较好
作者: huangrong1981    时间: 2008-1-10 10:47
我是想在Qtp脚本中访问QC,下载QC上的一些附件到本地目录中。不知道有没有好的办法。我目前是用编写vb.net程序调用QC的API接口来实现这个要求的,但是觉得如果在QTP或者VBS库文件中能够实现会更好。
作者: jackymail    时间: 2008-1-10 14:39
自动化程度很高啊。。。佩服。
作者: ppent    时间: 2008-1-10 17:00
我在文档中看到这么一段,不知有没有帮助。
Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim arrBCAddins ' Declare the variable for storing the component's associated add-ins
Dim blnNeedChangeAddins ' Declare a flag for indicating whether the component's associated add-ins are currently loaded
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible
qtApp.TDConnection.Connect "http://qcserver/qcbin", _
              "MY_DOMAIN", "My_Project", "James", "not4you", False ' Connect to Quality Center
If qtApp.TDConnection.IsConnected Then ' If connection is successful
    qtApp.OpenBusinessComponent "[QualityCenter] Components\MyFolder\MyBC", False ' Open the business component
    MsgBox qtApp.CurrentDocumentType 'Confirm that the open document is a business component
End If




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2