Несколько действий(Цепочка процедур)

@vasia2011 · Регистрация: 01.05.2011

Author24 — интернет-сервис помощи студентам

Здраствуйте!
Я работаю с WebBrowser-ом и мне необходимо следующее
Проблема заключается в цепочке действий
То есть сейчас у меня стоит таймер, при активации которого начинается цепочка процедур и они выполняются с интервалом 5 сек
Но Надо чтобы каждая процедура выполнялась после успешного выполнения предыдущей и загрузки страницы браузера на 100%
Наведу пример такой цепочки
1)Перейти на страницу
2) если она загружена и предыдущее выполнено, то вставить в форму данные и нажать на кнопку
3) если опять страница загружена и предыдущее выполнено, то получить данные и нажать на кнопку
4) если страница загружена и предыдущее выполнено, то перейти на другую страницу
P.S. sleep, ondocumentload,tTimer иеня не устраивают ПОТому, что все 4 пункта это должно сделать ПРИ нажатии на 1 кнопку.

Добавлено через 17 минут
на правах апа

@Mawrat · 13.05.2011, 23:01

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

Delphi

var
  gCnt : Integer = 0;
 
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Inc(gCnt);
  case gCnt of
    1: Proc1;
    2: Proc2;
    3: Proc3;
    4: Proc4;
  end;
 
  //В конце сброс счётчика, если это оправдано.
  //if gCnt = 4 then gCnt := 0;
end;

@vasia2011 5 / 5 / 0 Регистрация: 01.05.2011 Сообщений: 36
		1
	Несколько действий(Цепочка процедур) 13.05.2011, 20:18. Показов 1693. Ответов 1 Метки нет (Все метки) Здраствуйте! Я работаю с WebBrowser-ом и мне необходимо следующее Проблема заключается в цепочке действий То есть сейчас у меня стоит таймер, при активации которого начинается цепочка процедур и они выполняются с интервалом 5 сек Но Надо чтобы каждая процедура выполнялась после успешного выполнения предыдущей и загрузки страницы браузера на 100% Наведу пример такой цепочки 1)Перейти на страницу 2) если она загружена и предыдущее выполнено, то вставить в форму данные и нажать на кнопку 3) если опять страница загружена и предыдущее выполнено, то получить данные и нажать на кнопку 4) если страница загружена и предыдущее выполнено, то перейти на другую страницу P.S. sleep, ondocumentload,tTimer иеня не устраивают ПОТому, что все 4 пункта это должно сделать ПРИ нажатии на 1 кнопку. Добавлено через 17 минут на правах апа 0

	13.05.2011, 23:01

Несколько действий(Цепочка процедур)

Решение