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

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