[R] connexion a QC en methode objet par librairie OTAcom

[khitan72]

bonjour,
Pourriez vous m'aider pour construire un script de connection l'outil Quality Center (ancien test Director) et de créer un recordset pour récupérer le contenu d'un plan de test , le tout en methode objet
cela marche par des macros excel, avec la librairie OTAcom 9.0, mais je ne sais pas comment la transposer pour faire un script autoit, et mettre les resultats (recordset) dans un tableau
merci d'avance pour votre aide
Khitan72

les paramètres important sont :

Code : Tout sélectionner

serveur => http://mon_IP:qcPort/qcbin
qcHostName = "mon_IP"
qcDomain = "mon_domaine"
qcProject = "mon_projet"
qcUser = "mon_user"
qcPassword = "mon_password"
qcPort = "8000"

sous Vba excel on fait comme cela avec en reference la librairie ota com 9.0:

Code : Tout sélectionner

Dim tdc As New TDconnection
Dim qcServer As String
Set tdc = New TDconnection
tdc.InitConnectionEx qcServer

' MsgBox tdc.ServerName 'http://<qcServer>/qcbin/wcomsrv.dll

    tdc.Login qcUser, qcPassword 'Log on to server
    tdc.Connect qcDomain, qcProject ' Connect to the project and user
    makeConnection = SUCCESS
RequeteBis tdc
'====================
Public Sub RequeteBis(tdc As TDconnection)
'façon de voir TD en objet :
'on a un oTDCconnection > TestSetTreeFactory > TestSet > TSTestFactory > TSTest > RunFactory
'ou oTDCconnection > TestSetFolder> TestSetFactory>
'en pratique on retrouver sous TD
'un TEST_LAB>CAMPAGNE_01>Campagne_name="Khitan72" et la listes des TEST_NAMES,status....
    
    Dim oTestSetTreeManager As TestSetTreeManager
    Dim oTestSetFolder As TestSetFolder
    Dim oTestSet As TestSet
    Dim oTestFactory As TSTestFactory
    Dim oTest As TSTest
    Dim list_TestList As List, list_TestSetList As List
    Dim nb_inList_Testlist As Integer
    Dim cpt_ligne As Integer
    
    ' instanciation
    
    Set oTestSetTreeManager = tdc.TestSetTreeManager
    Set oTestSetFolder = oTestSetTreeManager.NodeByPath("Root\campagne_01")
    Set list_TestSetList = oTestSetFolder.FindTestSets("Khitan72") 'si on met rien on les a tous
    Set oTestSet = list_TestSetList.Item(1)
    Set oTestSetFactory = oTestSet.TSTestFactory
    Set list_TestList = oTestSetFactory.NewList("")
    
    'MsgBox oTestSetFolder.Name 'result = campagne_01
  
    Sheets("Feuil1").Select
    nb_inList_Testlist = list_TestList.Count
    
    cpt_ligne = 2
    Range("A1").Value = "TEST_ID"
    Range("B1").Value = "TEST_NAME"
    Range("C1").Value = "TEST_STATUS"
    
    For Each oTest In list_TestList
        Range(Chr(65) & cpt_ligne).Value = oTest.ID 'a partir A2 testID
        Range(Chr(66) & cpt_ligne).Value = oTest.Name ' partir de B2 test Name
        Range(Chr(67) & cpt_ligne).Value = oTest.Status
        cpt_ligne = cpt_ligne + 1
    Next
endsub
'===============

sous excel on obtient donc ce type de resultat

Code : Tout sélectionner

TEST_ID TEST_NAME   TEST_STATUS
13      Test_1      Completed
5       Test_2      Passed

[ani]

Normalement çà devrait fonctionner

► Afficher le texte

Code : Tout sélectionner

Dim $tdc, $qcServer,$qcHostName, $qcPort ,$qcProject
Dim $qcDomain,$qcUser,$qcPassword
$qcHostName = "mon_IP"
$qcPort = "8000"

$qcServer = "http://" & $qcHostName & ":" & $qcPort & "/qcbin"
$qcUser = "mon_user"
$qcPassword = "mon_password"

$qcDomain = "mon_domaine"
$qcProject = "mon_projet"


Global $tdc =  ObjCreate("TDApiOle80.TDConnection")
$tdc.InitConnectionEx($qcServer)
; MsgBox(0,"",$tdc.ServerName) ;http://<qcServer>/qcbin/wcomsrv.dll
$tdc.Login($qcUser, $qcPassword)
$tdc.Connect($qcDomain, $qcProject)
;?$makeConnection = SUCCESS
RequeteBis($tdc)
$tdc = 0
Exit

Func RequeteBis($tdc)

    Dim $oTestSetTreeManager
    Dim $oTestSetFolder
    Dim $oTestSet 
    Dim $oTestFactory
    Dim $oTest
    Dim $list_TestList, $list_TestSetList
    Dim $nb_inList_Testlist
    Dim $cpt_ligne
    Dim $Excel, $Sheets

    
    Local $oTestSetTreeManager = $tdc.TestSetTreeManager
    Local $oTestSetFolder = $oTestSetTreeManager.NodeByPath("Root\campagne_01")
    Local $list_TestSetList = $oTestSetFolder.FindTestSets("Khitan72")
    Local $oTestSet = $list_TestSetList.Item(1)
    Local $oTestSetFactory = $oTestSet.TSTestFactory
    Local $list_TestList = $oTestSetFactory.NewList("")
    
    ;MsgBox(0,"", $oTestSetFolder.Name) ;result = campagne_01
    
    Local $Excel = ObjCreate("Excel.Application")
    $Excel.WorkBooks.Add()
    Local $Sheets = $Excel.ActiveSheet
    $Sheets("Feuil1").Select
    
    $nb_inList_Testlist = $list_TestList.Count
    $cpt_ligne = 2
    
    $Sheets.Range("A1").Value = "TEST_ID"
    $Sheets.Range("B1").Value = "TEST_NAME"
    $Sheets.Range("C1").Value = "TEST_STATUS"
    
    For $oTest In $list_TestList
        $Sheets.Range(Chr(65) & $cpt_ligne).Value = $oTest.ID ;a partir A2 testID
        $Sheets.Range(Chr(66) & $cpt_ligne).Value = $oTest.Name ; partir de B2 test Name
        $Sheets.Range(Chr(67) & $cpt_ligne).Value = $oTest.Status
        $cpt_ligne = $cpt_ligne + 1
    Next
    ; Enregistrement du résultat
    $Excel.ActiveWorkbook.SaveAs("c:\QC_Demo.xls")
    $Excel.Quit

    ; On vide l'objet précédement crée
    $Excel = 0

EndFunc

[khitan72]

bonjour,
merci beaucoup, cela fonctionne à merveille
c'est génial


cordialement
Khitan72