Публикации Coder7524

#141985 Delphi и TestComplete

Отправлено автор: Coder7524 23 июня 2015 - 12:22 в SmartBear (AutomatedQA) - Functional Testing

Подобный вопрос о TestComplete и Delphi:

Можно ли скопировать процедуру Delphi-скрипта из TestComplete в саму среду Delphi и запускать оттуда, не пользуясь TestComplete?

#141968 Ошибка воспроизведения теста - ячейка Delphi-программы "только для

Отправлено автор: Coder7524 23 июня 2015 - 08:34 в SmartBear (AutomatedQA) - Functional Testing

1. Возможно, неправильно определили объект. Проверьте его в ObjectBrowser-е.

2. Попробуйте через рекордер, что он выдает.

Сергей, спасибо. Я описал ситуацию в Community TestComplete. Мне посоветовали поменять .SetText на .Keys - попробовал, воспроизведение теста прошло на "ура".

#141936 Ошибка воспроизведения теста - ячейка Delphi-программы "только для

Отправлено автор: Coder7524 22 июня 2015 - 08:27 в SmartBear (AutomatedQA) - Functional Testing

При запуске воспроизведения теста (для программы на Делфи) и попытке ввести данные в ячейку программы, появляется сообщение: "Не удалось ввести текст в поле редактирования, так как оно только для чтения". (Failed to enter text in the edit box, since it is read-only. 11:30:31 Normal ) Тест останавливается из-за этой ошибки. При записи теста ввод данных в ячейку проходит нормально.

В другой системе (HP Unified Functional Testing) автоматизированного тестирования ПО, и попытке ввести данные в ячейку Делфи-программы воспроизведение теста проходит без ошибок.

Как разрешить ошибку, чтобы воспроизведение теста в TestComplete прошло без ошибок?

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

Отправлено автор: Coder7524 16 июня 2015 - 14:39 в Hewlett-Packard (Mercury) - Functional Testing

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

Прикрепленные изображения

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

Отправлено автор: Coder7524 16 июня 2015 - 14:04 в Hewlett-Packard (Mercury) - Functional Testing

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

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