65 публикаций создано Rumata (учитываются публикации только с 28 сентября 2023)
Безымянный.bmp 1,25МБ
39 Количество загрузок:
new_4.txt 68,06К
41 Количество загрузок:
Вопрос № 2 :)
При записи тестов все пишеться отлично только вот идет адресация по ячейкам таблиц не веб страницах. страницы такие что места нужных елементов могут меняться. Как можно еще к ним обращаться?
Рекомендую почитать вот это надеюсь поможет тут находиться очень хорошее руководство!!!
есть идеи, исходника нету :)
варианты:
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 и файл будет генерироваться больше минуты, что обычно не наблюдается и вообще маловероятно =)
Здравствуйте.
Вот, примерчик сделал.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;
я переставил тесткомплит и теперь она занимает всего 20 метров памяти :-)Здравствуйте.
На мой взгляд, такая проблема нуждается в исследовании под профайлером. А это могут сделать только разработчики TestComplete. Вам необходимо написать им на support@automatedqa.com и предоставить пример, воспроизводящий проблему (или просто шаги как этого добится без примера). Насколько я знаю их отношение к подобным проблемам, в следующем обновлении её пофиксят.
Люди подскажите пожайлуста почему ТС 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 individuallyHi 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
устал...
а там еще много...
короче, в любом случае, там слишком много факторов, которые могут влиять (тип приложения, тип тестирования, наличие/отсутствие виртуальных машин, и т.д.), так что вам надо в саппорт
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'?
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).
Здравствуйте.
Попробуйте использовать метод WaitProperty:var metka = <metkaObj>; metka.WaitProperty("Visible", false, 60000);
if (Evaluate(tpm_n_obj+'.WaitProperty(''Visible'', true, 60000)'))and(Evaluate(tpm_n_obj+'.WaitProperty(''enabled'', true, 60000)'))and(Evaluate(tpm_n_obj+'.WaitProperty(''exists'', true, 60000)'))then
sys.refresh; delay(zdk); if (метка.exists)and(метка.visible)and(метка..enabled) then бла-бла-бла
function SendEmail(mFrom, mTo, mSubject, mBody, mAttach);
var
i, schema, mConfig, mMessage : OleVariant;
begin
try
schema := 'http://schemas.microsoft.com/cdo/configuration/';
mConfig := Sys.OleObject('CDO.Configuration');
mConfig.Fields.Item(schema + 'sendusing') := 2; // cdoSendUsingPort
mConfig.Fields.Item(schema + 'smtpserver') := 'бла.бла.бла'; // SMTP server
mConfig.Fields.Item(schema + 'smtpserverport') := 25; // Port number
// mConfig.Fields.Item(schema + 'sendusername') := ''; // User name (if needed)
// mConfig.Fields.Item(schema + 'sendpassword') := ''; // User password (if needed)
mConfig.Fields.Update();
mMessage := Sys.OleObject('CDO.Message');
mMessage.Configuration := mConfig;
mMessage.From := mFrom;
mMessage.To := mTo;
mMessage.Subject := mSubject;
mMessage.HTMLBody := mBody;
for i := 0 to GetCSVCount(mAttach) - 1 do
mMessage.AddAttachment(GetCSVItem(mAttach, i));
mMessage.Send();
Log.Message('Сообщение отправленно!', 'Адресат - '+mTo, pmNormal, debug_attr );
Result := True;
except
Log.Message('Сообщение не отправленно!', '', pmNormal, error_attr );
Result := False;
end;
end;
ОГРОМНОЕ СПАСИБО!!!
РАБОТАЕТ!!!
правда нужно изменить наEvaluate (arr[i] + '.Click;')
да, в ДелфиСкрипте я не силен, однако. Ну, работает - и отлично
delphiscript
tc 5.12
tc ругается на неизвестное имя click
подскажите пжл как можно сделать то что я хочу
т.е. вы пытаетесь из строк сделать объекты?
это, конечно, возможно, но не так, как вы пытаетесь сделать (через VariantArray)
если я правильно понял, задача звучит так: есть текстовый файл, в котором хранятся имена объектов, по которым надо кликать. Хранятся в текстовом виде.
Вам проще сделать так: считать содержимое файла в массив, а затем для каждого элемента массива делать так
допустим, массив строк называется arrEvaluate (arr[i] + '.Click();')не уверен, но по-моему знак "+" в делфискрипте означает конкатенацию строк.
Основной момент здесь - это использование функции Evaluate, которая позволяет выполнить любой кусок текста, как код скрипта
Evaluate (arr[i] + '.Click;')
Community Forum Software by IP.Board Русификация от IBResource
Лицензия зарегистрирована на: Software-Testing.Ru
