Micro Focus QTP (UFT) Forums
All captured images I want to assign to Test results in QC - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Others (https://www.learnqtp.com/forums/Forum-UFT-QTP-Others)
+--- Thread: All captured images I want to assign to Test results in QC (/Thread-All-captured-images-I-want-to-assign-to-Test-results-in-QC)



All captured images I want to assign to Test results in QC - govqa - 02-12-2009

Hi Ankur,

In My Oracle automation project I need to capture some forms images for test evidences

All captured images I want to assign to Test results in QC

Capture the Test evidence using “Object.CaptureBitmap, [Override Existing]”

Save it to the “Object.CaptureBitmap, Full file name, [Override Existing]”

How can I define the Quality centre Test result Path, database Location.

How can I send all capture images to my QC Test Results

Cheers

Gov


RE: All captured images I want to assign to Test results in QC - Jackomcnabb - 02-13-2009

try this:

' Adds file to attachment of the associated test in the test lab
' Parameter aFileName: file name including absolute path
Sub AddAttachToTDRun(aFileName)
'Check if attaching files is enabled
Code:
if LCase(GetLocalParameter("bpt.attach")) = "true" Then    
    Dim TDrun, attf, att
    Set TDrun =TDUtil.CurrentRun
    Set attf = TDrun.Attachments
    Set att = attf.AddItem(Null)
    att.FileName = aFileName
    att.Type = 1
    att.Post
    att.Save False
    LogValue "File attached", aFileName
  Else
    LogValue "File not attached", aFileName  
  End If
End Sub

it may be helpful to call this with a bussiness component if you use them.


RE: All captured images I want to assign to Test results in QC - govqa - 02-16-2009

Thanks Jackomcnabb

i will Try this .

Cheers