QTP / UFT Capturebitmap直接保存到Quality Center(QC)

时间:2014-10-20 13:43:25

标签: vbscript automation qtp qc hp-uft

到目前为止,我所看到的是将现有图像保存为Quality Center(QC)附件的不同方法。没关系,但有没有办法直接将图像保存为Quality Center的附件?

例如,我在自动化框架中设置了特定区域,以便使用以下内容捕获图像:

浏览器("标题:=。")。页面("标题:=。")。CaptureBitmap [fullname,override]

这需要在Quality Center中获取文件夹的路径,但我不确定这是怎么回事?我想将它保存在Quality Center的“测试计划”部分的文件夹下。

2 个答案:

答案 0 :(得分:1)

好的我明白了!您可以将其保存到每台计算机上的临时文件夹中。然后将其保存到QC!

    Dim oWsh, strTempFolderPath, strFilePathToSave, QCConnection, treeManager
    Dim LocalFilePath, Screen1, node, att, atta      

    Set oWsh = CreateObject("WScript.Shell")
    strTempFolderPath = oWsh.ExpandEnvironmentStrings("%Temp%")
    strFilePathToSave = strTempFolderPath & "\Test1.png"

    browser("title:=.*").page("title:=.*").CaptureBitmap strFilePathToSave,True

    Set QCConnection = QCUtil.QCConnection
    Set treeManager = QCConnection.TreeManager
    ' Specify the local path to the file.

    LocalFilePath = strFilePathToSave

    ' Specify the Quality Center path to the desired folder
    Screen1 ="Subject\Path to the folder where you want to save it\"
    Set node = treeManager.nodebypath(Screen1)
    set att = node.attachments
    Set atta = att.AddItem(Null)
    atta.FileName = LocalFilePath
    atta.Type = 1
    atta.Post() 

    Set oWsh = nothing : set QCConnection = nothing : Set treeManager = nothing
    Set node = nothing : set att = nothing : set atta = nothing

答案 1 :(得分:1)

测试运行时,结果存储在本地临时目录中。在运行结束时,运行结果将上载到QC(如果启动结果查看器以查看QC的运行结果,则将重新下载)。

如果您将屏幕截图放在该目录下(可能在单独的“屏幕截图”目录中),那么您的屏幕截图将成为存储在QC中的运行结果的一部分,因此可以像其他一样查看运行结果条目。

您可以使用以下命令获取本地临时目录:

Environment.Value ("ResultDir") & "\Report\"

存储在此目录下的所有内容都被视为运行结果的一部分,并将上传到QC中(并在其中提供)。