标题: 关于调用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