Здравствуйте.

Вы можете задать для проекта формат хранения скриптов UFT-16. Двойным щелчком по проекту в панели Project Explorer открываете редактор проекта, переходите на закладку Properties и меняете значение свойства 'Character Encoding' в группе опций General.

Также читайте раздел справки 'Support for Unicode'. В нём описано как TestComplete может работать с Unicode.

Спасибо теперь после пересохранения символы остаются, но в helpe ссылки на форум а тама я чего то запутался, поэтому ничего так и выяснил :(

Вопрос № 2 :)

При записи тестов все пишеться отлично только вот идет адресация по ячейкам таблиц не веб страницах. страницы такие что места нужных елементов могут меняться. Как можно еще к ним обращаться?

У нас была такая же проблема

Метод Find (даже если бы и помогал) работает так долго что всё преимущество автоматизации убивается
Решения:

1) Писать автотест по строго определённому сценарию, тогда можно хоть как то определить ячейки
2) самый действенный, Просить программистов чтобы они фиксировали имена объектов

Здравствуйте!

Сейчас делал импорт данных из смд, но столкнулся с проблеммой их вводить :)
так вот данные вводяться прекрасно, пока я незапускаю батник из смд, после данные вводяться как одна строка, но если ввести [Enter], то потом данные опять вводяться в поток нормально, объясните почему такое бывает.

вот процедурина

procedure Main;
   var 
   dir,f : string;
   k : integer;
   p, input, output,cmd;
   begin	
   p := dotNET.System_Diagnostics.Process.zctor();
   p.StartInfo.FileName := 'c:\Windows\System32\cmd.exe';
   p.StartInfo.UseShellExecute := false;
   p.StartInfo.RedirectStandardOutput := True;
   p.StartInfo.RedirectStandardInput := True;
   p.Start;
   f := read_name_install_file;
   k := PosEnd(f);
   dir := copy(f,1,k-1);
   f := copy(f,k+1,length(f)-k);  
   input := p.StandardInput;
   output := p.StandardOutput;
   cmd := Sys.Process('cmd',2).Window('ConsoleWindowClass', '*');
   //cmd.Keys('[Enter]');
   input.WriteLine_11('cd '+dir);
   input.WriteLine_11(f);
   input.WriteLine_11('C:\j2sdk1.4.2_12');
   cmd.Keys('[Enter]'); //без этой строки все команды, начиная с предыдущей, 
		 //объединяються в одну и вводятся как одна
   input.WriteLine_11('C:\Sop\jboss-portal-2.6.1.GA');
   input.WriteLine_11('update');
   input.WriteLine_11('127.0.0.1');
   input.WriteLine_11('quit');
 
   while not p.HasExited do 
	 Delay(1000);
   while not output.EndOfStream do
	 Log.Message(output.ReadLine());
   //dotNET.System_Diagnostics.Process.zctor.
   end;

Здравствуйте.

А можно узнать, что такое 'read_name_install_file' и 'PosEnd'?

процедуры

read_name_install_file - возвращает полное имя файла который я запускаю в цмд

PosEnd - последнее вхождение символа в строку


вот я переделал немного, правда теперь приходиться ентер жать после каждого ввода команды

procedure Main;
  var 
  dir,f : string;
  k : integer;
  p, input, output,cmd;
  st : boolean;
  s : string;
  ss : widestring;
  begin 
  opred_form_log;
  file_mame_rez_log := 'Install_server_rezult_log.mht';
  ResultDir := 'C:\NAT_EAR_COPY_RESULTS\';
  ArchiveDir := 'C:\artifakts\';   
  p := dotNET.System_Diagnostics.Process.zctor();
  p.StartInfo.FileName := 'c:\Windows\System32\cmd.exe';
  p.StartInfo.UseShellExecute := false;
  p.StartInfo.RedirectStandardOutput := True;
  p.StartInfo.RedirectStandardInput := True;
  p.Start;
  f := read_name_install_file;
  k := PosEnd('\',f);
  dir := copy(f,1,k-1);  // директория запускаемого батника
  f := copy(f,k+1,length(f)-k); // здесь имя батника который запускаю 
  input := p.StandardInput;
  output := p.StandardOutput;
  cmd := Sys.Process('cmd',2).Window('ConsoleWindowClass', '*'); // вторая запущеная цмд
  input.WriteLine_11('cd '+dir); // переход в директорию батника
  input.WriteLine_11(f); // запуск батника
  // теперь идут запросы батника
  input.WriteLine_11('C:\j2sdk1.4.2_12'); // ввод корня  jsd
  cmd.Keys('[Enter]');					  // эмуляция долбанного ентера
  input.WriteLine_11('C:\Sop\jboss-portal-2.6.1.GA');   // ввод корня  jboss-portal-
  cmd.Keys('[Enter]');				// эмуляция долбанного ентера
  input.WriteLine_11('update');	   // выбор сбособа установки
  cmd.Keys('[Enter]');				// эмуляция долбанного ентера
  input.WriteLine_11('127.0.0.1');	// айпи сервера
  cmd.Keys('[Enter]');				// эмуляция долбанного ентера
  input.WriteLine_11('quit');		 //выход
  st := false;
  Log.Message('3');
  while not p.HasExited do // если еще цмд открыто
	Delay(500);
  ss := '';
  Log.Message('4');
  while not output.EndOfStream do
	begin
	if not(st) then
	  if (pos('INFO  [Server] JBoss ',s)<> 0) and (pos('Started in',s)<> 0) then
		st := true;
	s := output.ReadLine();
	ss := ss+#13+s;	
	end;
  Log.Message('Лог запуска сервера', ss, pmNormal, debug_attr );   
  if st then
	Log.Message('Сервер запущен!', '', pmNormal, debug_attr )  
  else
	Log.Message('Сервер не был запущен!', '', pmNormal, error_attr ); 
  ExportResults(ResultDir + file_mame_rez_log);
  add_results_archive(file_mame_rez_log);
  if st then  
	SendEmail(e-mail, e-mail, 'Логи автоинсталлирования сервера', 'На север была успешно произведена установка обновления'+#13+'Логи во вложении', ArchiveName+'.rar')
  else
	SendEmail(e-mail, e-mail, 'Логи автоинсталлирования сервера', 'Установка обновления на север была не удалась'+#13+'Логи во вложении', ArchiveName+'.rar');
  end;

Привет!

А если на потоке ввода взвести свойство AutoFlush? Поток наверняка буферизованый и то что вы в него пишете, скорее всего, какое-то время лежит в буфере.
Например:
Код output.BaseStream.SetLength(100000);

input.AutoFlush := true;

Или вручную дергать метод Flush, после каждой записи в поток.

Возможно, буфер влияет и на поток вывода. Он переполянется и все. Что если у базового потока увеличить длину.
Вот так:

output.BaseStream.SetLength(100000);

не получается

Здравствуйте.

Я не совсем понял, а CMD.exe в конце закрывается или нет? Если нет, по попробуйте закрывать его (только корректно) перед попыткой чтения выходного потока.

По поводу необходимости нажатия Enter -- это, наверно, приложение не так отрабатывает нажатия, как CMD. Попробуйте использовать метод Write_10(MyCommand + #13).

смд закрываеться , там ведь есть команда quid
Write_10(MyCommand + #13) не работает

у мня счас немного задача изменилась, необходимый мне вывод данных теперь выводится в файл, так что я только ввожу данные а читаю результат после закрытия цмд из текстового файла.

теперь вот пытаюсь стабилизировать всё что делал...

вот весь уже скока мучусь, как то криво получается :(((

может кто знает, извлечь данные из цмд?

причем просто перенаправлять не получиться так как я запускаю батник(а он jar-ник) а потом уже общаюсь с ним.

сей час немного прогу переделал, добавил Delay(1000); после каждого writeline, так команды стали выполняться(интересно с какого?) но в выходной поток не все данные пишутся выводит пары десятков строчек лога и всё :(

в чём причина хз

подскажите пожалуста возможные решения

Delphiscript

Здравствуйте!

Подскажите пожалуйста можно ли в лог выводить форматированные данные (жирный шрифт, курсив, цвет)?

И еще как можно сохранить данные лога в файл так чтоб TC не спрашивал "перезаписать файл?"

пробовал так:
procedure ExportResults;
var FileName : OleVariant;
begin
FileName := Project.ConfigPath + 'Log\MyResults.mht';
Log.SaveResultsAs(FileName, 2);
end;

На счет - удаления файла попробуйте установить небольшую задержку после удаления( у меня на разных компах с разной скоростью удаляются файлы - "не моментально") - Builtin.Delay(300); - файл логов обычно большой может дольше удаляться.И только после задержки создавайте файл.

дело не в паузе у меня видимо в прошлый раз когда я пытался сохранить был ТС неправильно настроен, сейчас всё нормально работает и даже архивирует логи

у меня теперь тоже работает, хотя раньше с Utilities.DeleteFile не получалось

забыл, я пытался файл удалить Utilities.DeleteFile(FileName);, но видимо ТС файл не освобождал и он не удалялся :(

Здравствуйте.



Вот, примерчик сделал.

function getNewFiles(path, oldFileList);
var
  i : Integer;
  SearchRec : TSearchRec;
  newFileList;
begin
  SearchRec := TSearchRec;
  i := FindFirst(path, faAnyFile, SearchRec);
  
  newFileList := '';
  while i = 0 do
  begin
	  if Pos(Utilities.LowerCase(SearchRec.Name), Utilities.LowerCase(oldFileList)) = 0 then
	  begin
		  newFileList := newFileList + SearchRec.Name + #13#10;
	  end;
	  i := FindNext(SearchRec);
	end;
  Utilities.FindClose(SearchRec);
  
  Result := Utilities.Trim(newFileList);
end;

procedure Main;
var
  path, fileList, newFileList; 
begin
  path := 'C:\Folder\*.xls';
  fileList := getNewFiles(path, '');
  Log.Message(path, fileList);

  //.. Создать файл
  
  newFileList := getNewFiles(path, fileList);
  Log.Message(path, newFileList);
end;

ОГРОМНОЕ СПАСИБО!!!
Всё получилось!

delphiscript

Тут опять вопрос появился, может кто что подобное делал?

У меня тестируемое приложение при моих определенных действиях создает в нужной директории файл формата ХХХХХХХХХ_20071008152634.xls

В конце имени файла набор типа датавремя . Дело в том что я не могу точно определить момент создания файла и следовательно узнать его имя, но вне нужно точно знать, создался он или нет.
Может сканировать количество файлов в директории и сравнивать с прошлым значением, а может смотреть в атрибутах директории дату модификации??

Есть у кого нить идеи?
если можно то с исходником

TC 5.12.454.7
Delphiscript

Привет всем!
Подскажите как можно записать в текстовый файл содержимое буфера.
Мне нужно переписать файл.

вот как на delphiscript:


AssignFile( fff, 'c:\123.txt' );
try
Rewrite(fff);
Write(fff,Sys.Clipboard);
finally
CloseFile( fff );
end;

есть идеи, исходника нету :)

варианты:
1) перед запуском программы удалять из папки все XLS файлы, а в нужный момент проверять, что файл с таким расширением появился

2) я так предполагаю, что это какой-то репорт, который генерится при определенных условиях (например, при нажатии на кнопку в приложении). В момент, когда наступают эти условия, можно запомнить время с точностью до минуты и потом проверить, что файл XXXX_YYYYMMDDHHNN**.xls существует. Тут есть один недостаток: допустим, вы запомнили время в момент 11:59:59 и нажали соответствующую кнопку в приложении. Естественно, что файл не будет иметь имя XXX_20071008115959, а будет типа XXX_20071008120030. Еще хуже, если скрипт запомнит время ночью, скажем в 23-59-59/ Там изменится не только время, но и дата

3) ваш вариант с простой проверкой количества файлов не очень удачный, так как в этой папке могут создаваться/удаляться и другие файлы, что повлияет на результат непредсказуемо. То же самое касается проверки даты модификации директории. Если уж и проверять количество, то только файлов формата XXX_YYYY*****.xls

Сам я, когда решал подобную задачу (правда, с помощью СилкТеста, но это не важно), использовал вариант 1+2, т.е. сначала удалял все подобные файлы, потом дожидался, пока текущее время будет HH:NN:01, запоминал эти HH:NN и генерировал репорт, а потом проверял наличие файла XXX_YYYYDDMMHHNN**.xls. У такого варианта есть только один способ свалиться: если запоминаемое время прийдется как раз на 23:59 и файл будет генерироваться больше минуты, что обычно не наблюдается и вообще маловероятно =)

да тоже были похожие мысли
В этой директории файлы никакие другие файлы больше не создаются поэтому ошибок не возникнет
Поэтому самый оптимальный вариант пересчитывать каждый раз количество файлов в директории и по изменившемуся количеству определить создался файл али нет.
Мне в принципе не важно контролировать параметры файла кроме расширения. нужно зафиксировать только то что файл с расширением ".xls" добавился в данную директорию

Только я не знаю как это сделать а время поджимает

Рекомендую почитать вот это надеюсь поможет тут находиться очень хорошее руководство!!!

Спасибо!

спасибо за советы
я нашел способ сделать по другому.
использую параллельно два массива, в первом массиве имя элемента во втором его значение

Привет!

Подскажите плиз, есть ли возможность создать свой тип в тест комплите 5.14(delphiscript)

мне например нужен массив типа запись

Люди подскажите пожайлуста почему ТС 5.12 так жрёт ресурсы
При загрузке в памяти занимает сразу же 60метров а после получаса работы 150-200 и файл подкачки раздувается до гига
ничего такого я не делаю: картинки в логи не пишу(чистил логи та же картина).
Первоначально вроде не так было, переставлять придётся что ли?

а как вы проверяете, что он столько отжирает?
вообще в ньюсгруппе было много вопросов по этой теме
то же самое касается "вылетов" и "зависаний" ТК после долгой работы

из того, что я помню по этой теме: был вопрос как и тут: почему ТК жрет столько ресурсов?
один из ответов был такой: на самом деле это проблема Windows Task Manager, и что мол если через полчаса работы, когда ТК сожрал много памяти, перестартовать Таск Менеджер, то можно увидеть, что ТК опять занимает 70-80 мегабайт.

Посоветовать могу лишь перезапускать ТК (если, конечно, вы говорите о росте используемой памяти во время запусков скриптов, а не во время их написания).

Вот несколько ответов от АКуА саппорта (можете и сами поисать в их ньюсгруппе, я искал по слову "memory")

Most probably, the high memory consumption is caused by the large number
of ODT classes and objects created during the script execution.
Have you tried clearing ODT data and classes when they are no longer
needed by the script?

The problem occurs because of the large amount of Load Testing results - all results are stored in memory until the test run is completed.
It is not possible to disable the Load Testing log.

The only solution I can propose is to split the test in parts and run them individually

Hi Support,
When I use Files.Compare function to compare two large binary files (each one is about 400Mb), I got exception "Out of memory while expanding memory stream".
=====
Thank you for reporting the issue. We will try to fix it in one of future versions of the tool (but not in the upcoming update).

In the meantime, I suggest that you use a third-party file comparing utility. You can set up such a utility in TestComplete so that it is used when the Files.Compare method is called. Please see the 'Stores Options Dialog' help topic for details.

I have tracked it down to the very long strings assigned to variables in the editor. Removing those stops the memory leak. Temporarily, I've been reading those values into a variable from a file instead. It does seem to be the long strings in the editor - see the project. Just opening it and starting to edit that code will cause it to start. Then, just open up your windows task manager and watch your swap file usage in the performance tab begin to grow

We think that the problem you faced is caused by a great number of HTML elements located on the tested web page: If their number exceeds 5000, the memory consumption you observe is normal. To check our assumption, please check the value of the page's document.all.ChildCount property in TestComplete

устал...
а там еще много...
короче, в любом случае, там слишком много факторов, которые могут влиять (тип приложения, тип тестирования, наличие/отсутствие виртуальных машин, и т.д.), так что вам надо в саппорт

Да мне в принципе не критично...
Проверял через Таск Менеджер(память жрётся во время написания скриптов)
Конечно если перестартовать TC ресурсы освобождаются, но у меня тс вырубаеться почемуто минут 5
Закрываю свой проект(file --> close), по идее должны ресурсы освободиться(чего не происходит) а затем закрываю сам TC и у меня таск менеджер показывает освобождение памяти медлено-медленно... если за пол минуты высвободиться метров 30, то это уже хорошо, машина вроде не слабая...
Впрочем это всё риторика...
Всегда памяти будет мало, а программы будут подтормаживать...

Здравствуйте.



Прежде всего хочу заметить, что в TestComplete замечательная справочная система. Задокументировано практически все, и при этом очень доступно и с примерами. Это к вопросу о 1000 в вызове метода WaitSwingObject.



А по поводу невозможности найти объект, в скрипте упоминается 12 объектов -- возможно не находится какой-нибудь другой объект. Запостите сюда сообщение об ошибке вместе с содержимым панели Remarks.

Сейчас невозможно показать поиск потому же объекту что я приводил в начале, поэтому я покажу аналогичный пример.
Здесь он просто переходит по ветке ELSE и выводит в лог "нет"

fff : string;
xx, xxx : olevariant;


Sys.Process('TOTALCMD').Window('TTOTAL_CMD', 'Total Commander 6.03a - ISS GmbH Heidelberg', 1).refresh;
sleep(500);
xx := Sys.Process('TOTALCMD').Window('TTOTAL_CMD', 'Total Commander 6.03a - ISS GmbH Heidelberg', 1).Window('TMyPanel', '', 2);
fff := '[_нет_] 15 122 276 КБ из 61 440 560 КБ свободно';
xxx := xx.WaitSwingObject('TMyPanel', fff, 1, 1000);
if xxx.exists then
log.message('есть')
else
log.message('нет');



Параллельно проверял кодом

if Sys.Process('TOTALCMD').Window('TTOTAL_CMD', 'Total Commander 6.03a - ISS GmbH Heidelberg', 1).Window('TMyPanel', '', 2).Window('TMyPanel', '[_нет_] 15 122 276 КБ из 61 440 560 КБ свободно', 1).exists then
log.message('есть 1')
else
log.message('нет 1');

и процесс нормально обнаруживается

чегото у меня не работает и зачем нужна 1000 в ('DefaultListCellRenderer$UIResource', logName, 0, 1000); ???
не может найти объект

Здравствуйте.



Как я понимаю, вам надо проверить существование объекта в приложении, а не процесса. Сделать это можно с помощью метода WaitSwingObject.

logName := '20070918.log.gz';
  w1 := Sys.Process('javaw').SwingObject('JDialog', 'Окно архивирования лог файла', -1).SwingObject('JRootPane', '', 0).SwingObject('null.layeredPane').SwingObject('null.contentPane').SwingObject('LogArchivePanel', '', 0).SwingObject('JPanel', '', 0).SwingObject('JScrollPane', '', 0).SwingObject('JViewport', '', 0).SwingObject('JList', '', 0).AWTObject('CellRendererPane', '', 0);
  w2 := w1.WaitSwingObject('DefaultListCellRenderer$UIResource', logName, 0, 1000);
  if w2.Exists then
	Log.Message('Log file is found')
  else
	Log.Error('Log file is not found');

Я сам разобрался, нужно было использовать WaitWindow вместо WaitSwingObject

Люди подскажите пожайлуста почему ТС 5.12 так жрёт ресурсы
При загрузке в памяти занимает сразу же 60метров а после получаса работы 150-200 и файл подкачки раздувается до гига
ничего такого я не делаю: картинки в логи не пишу(чистил логи та же картина).
Первоначально вроде не так было, переставлять придётся что ли?

Привет Всем!
помогите плиз вопрос возник

TestComplete 5.12.474.7
delphiscript
приложение на Java

У меня есть процесс:
Sys.Process('javaw').SwingObject('JDialog', 'Окно архивирования лог файла', -1).SwingObject('JRootPane', '', 0).SwingObject('null.layeredPane').SwingObject('null.contentPane').SwingObject('LogArchivePanel', '', 0).SwingObject('JPanel', '', 0).SwingObject('JScrollPane', '', 0).SwingObject('JViewport', '', 0).SwingObject('JList', '', 0).AWTObject('CellRendererPane', '', 0).SwingObject('DefaultListCellRenderer$UIResource', '20070918.log.gz', 0)


в конце имя лог файла 20070918.log.gz и оно меняется

мне нужно подставлять в цикле вместо этого имени значение строковой переменной и проверять наличие этого процесса
если его нет то я провожу действие в тестируемом приложении(перехожу на другую запись в списке) в результате которого меняется имя лог-файла в процесе(который реально существует) и опять проверяю наличие моего процесса ; если есть то делаю определённое действие

вопрос : как сделать проверить существование процесса в имени которого можно динамически менять параметр

Здравствуйте.

На мой взгляд, такая проблема нуждается в исследовании под профайлером. А это могут сделать только разработчики TestComplete. Вам необходимо написать им на support@automatedqa.com и предоставить пример, воспроизводящий проблему (или просто шаги как этого добится без примера). Насколько я знаю их отношение к подобным проблемам, в следующем обновлении её пофиксят.

я переставил тесткомплит и теперь она занимает всего 20 метров памяти :-)
Теперь примерчик не представишь, правда выгружается всё равно долго, когда терпение кончаеться приходиться таск менеджером убивать
А что на support писать "Программа виснет, помогите!"? глупо по моему причину всё равно не определишь...
поэтому буду чуть мучиться... :-)