关于调用QC的API问题

huangrong1981

请问在QTP脚本或者VBS文件中如何调用Quality Center的API？
我试过用CreateOjbect("TDConnection")或者CreateOjbect("TDAPIOLELib.TDConnection")方法都没有办法获取QC连接，执行的时候会报错：ActiveX部件不能创建对象。

walker1020

调用Quality Center的API？ 楼主想用脚本启动QC 还是？

walker1020

楼主最好是把自己的要求和达到的效果说出来比较好

huangrong1981

我是想在Qtp脚本中访问QC，下载QC上的一些附件到本地目录中。不知道有没有好的办法。我目前是用编写vb.net程序调用QC的API接口来实现这个要求的，但是觉得如果在QTP或者VBS库文件中能够实现会更好。

jackymail

自动化程度很高啊。。。佩服。

ppent

我在文档中看到这么一段，不知有没有帮助。
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