Добрый день.
Столкнулись со следующей проблемой при организации тестирования стороннего приложения на 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 - дает сообщение Истина.
В чем причина выполнения теста? И как решить данную проблему?