Перейти к содержимому

Фотография

Тестирование Delphi приложения с помощью UFT

UFT Delphi Ошибка воспроизведения теста

  • Авторизуйтесь для ответа в теме
В теме одно сообщение

#1 Coder7524

Coder7524

    Новый участник

  • Members
  • Pip
  • 30 сообщений
  • ФИО:Антон

Отправлено 16 июня 2015 - 14:04

Добрый день.
Столкнулись со следующей проблемой при организации тестирования стороннего приложения на Delphi с помощью UFT.
Доступа к исходным кодам нету.
Cоздаю обычный проект:
1. Прописываю стартовый скрипт, который запускает приложение (запуск выбрал автоматический в настройках UFT).
2. Нажимаю запись скрипта и кликаю на поле ввода пароля у формы, ввожу пароль и жму кнопку подтверждения.
3. Получаю события 

DelphiWindow("DelphiWindow").DelphiEdit("DelphiEdit").SetSecure "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

DelphiWindow("DelphiWindow").DelphiButton("Соединить").Click
4. Теперь пытаюсь проиграть полученный скрипт, получаю ошибку 

Unspecified error
Line (1): "DelphiWindow("DelphiWindow").DelphiEdit("DelphiEdit").SetSecure "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"". 

 

Неопознанная ошибка

 
Строка (1): "DelphiWindow("DelphiWindow").DelphiEdit("DelphiEdit").SetSecure "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"". 

 

 

В чем причина? Как решить данную проблему?

 

 

 

 

 

Прочитав тему: "Тестирование Delphi приложения с помощью QTP" Автора kimplin, от 01 Дек 2011 08:24

, и его переписку с Zenturio , заранее прилагаю свойства окна полученные через Object Spy:

 

"Class Name:=DelphiWindow",
"abs_x:=39",
"abs_y:=390",
"delphi_name:=",
"enabled:=True",
"focused:=False",
"foreground:=False",
"hasborder:=True",
"hascaption:=True",
"hashscroll:=False",
"hassizebox:=False",
"hassystemmenu:=False",
"hasvscroll:=False",
"height:=238",
"hscrollpagesize:=",
"hscrollposition:=",
"hwnd:=263878",
"is child window:=False",
"is owned window:=True",
"ismdichildwindow:=False",
"ispopupwindow:=True",
"istoolwindow:=False",
"leftscrollbar:=False",
"maxhscrollpos:=",
"maximizable:=False",
"maximized:=False",
"maxvscrollpos:=",
"minhscrollpos:=",
"minimizable:=False",
"minimized:=False",
"minvscrollpos:=",
"nativeclass:=TMSConnectForm",
"regexpwndclass:=TMSConnectForm",
"regexpwndtitle:=Соединение",
"rightaligned:=False",
"righttoleftlayout:=False",
"righttoleftreading:=False",
"testobjgentype:=window",
"text:=Соединение",
"topmost:=False",
"visible:=True",
"vscrollpagesize:=",
"vscrollposition:=",
"width:=297",
"window id:=0",
"windowextendedstyle:=257",
"windowstyle:=-1765801984",
"x:=39",
"y:=390"

 

Activate окна добавлял - не помогает, ошибка тогда возникает на Activate.

 

На текст MsgBox DelphiWindow("DelphiWindow").Exist - дает сообщение Истина.

 

В чем причина выполнения теста? И как решить данную проблему?


  • 0

#2 Coder7524

Coder7524

    Новый участник

  • Members
  • Pip
  • 30 сообщений
  • ФИО:Антон

Отправлено 16 июня 2015 - 14:39

P.S. При пропуске строк теста с ошибкой и выполнении строки "выбора элементов меню" (строка 3 и 11) - проверка работает. Прилагаю файл для наглядности. Остальные строки теста - все не работают. Возникает описанная мной ошибка.

Прикрепленные файлы


  • 0



Темы с аналогичным тегами UFT, Delphi, Ошибка воспроизведения теста

Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных