Загрузка дефектов в QC с использованием Qtp

Question

Есть ли способ загрузить дефекты в QC без использования QCUtil? , поскольку следующее использование может быть использовано только при записи в QTP-тесте, оно не работает при записи в файле vbs или в vba.

Dim QCConnection 
Set QCConnection = QCUtil.QCConnection 
Set BugFactory = QCConnection.BugFactory 
Set Bug = BugFactory.AddItem (Nothing) 

Есть ли альтернатива для загрузки дефектов в Центр качества, кроме использования QCUtil?

Заранее спасибо за вашу помощь,

Answer 1

QCUtils является оболочкой для API КК называется OTA. Вы можете использовать его непосредственно из любой вещи, которая может потреблять COM.

Имеется файл справки Chm с примерами для OTA в справочной странице QC.

Answer 2

Нашел ответ :). это по следующему коду:

Set qtApp = CreateObject("QuickTest.Application") 'Create QTP Object 

qtApp.TDConnection.Disconnect 'Disconnect TDConnection 
qtApp.TDConnection.Connect QCserver, QCdomain, QCproject, QCuser, QCpassword, False 'Connect TDConnection 

Set tdc = qtApp.TDConnection.TDOTA 'Set TDC Connection 
set BugFactory = tdc.BugFactory 
'Add a new, empty defect 

Set Bug = BugFactory.AddItem(Nothing) 

'Enter values for required fields 

Bug.Status = "New" 

Bug.Summary ="issues in verification" 

Bug.DetectedBy = "Jeff" 



Bug.Post