Добавить снимок экрана в пользовательскую функцию результата UFT - PullRequest
Новая
       21

Добавить снимок экрана в пользовательскую функцию результата UFT

0 голосов
/ 08 июля 2019

У меня есть функция, которая может печатать результаты в произвольном формате, однако эта функция не позволяет мне использовать скриншоты в ней.

Я использовал все возможные способы вставить скриншот в эту функцию, но она просто не работает для меня. 

Public Function CustomResult(nStatus, sStep, sActual, sExpected, brow)
     Set oEventDesc = CreateObject("Scripting.Dictionary")
     oEventDesc("ViewType") = "Sell.Explorer.2"
     oEventDesc("Status") = nStatus
     oEventDesc("EnableFilter") = False
     oEventDesc("NodeName") = sStep
     Capture_Image(brow)
     Dim sHTMLInfo
     sHTMLInfo = "<TABLE border='0'>"
     If nStatus = 1 Then
         sHTMLInfo = sHTMLInfo & "<TR><TD><font color='red' size='2'>Actual Result: " & sActual & "</font></TD></TR>" 
     Else
         sHTMLInfo = sHTMLInfo & "<TR><TD><font color='green' size='2'>Actual Result: " & sActual & "</font></TD></TR>" 
     End If
     sHTMLInfo = sHTMLInfo & "<TR><TD><font color='blue' size='2'>Expected Result: " & sExpected & "</font></TD></TR></TABLE>" 

     oEventDesc("StepHtmlInfo") = sHTMLInfo
     newEventContext = Reporter.LogEvent ("Replay",oEventDesc,Reporter.GetContext) 
  End Function

Эта функция также должна давать скриншот браузера вместе с результатом.

...