Проверка длительности загрузки webbrowser

@montukxd · Регистрация: 21.02.2014

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

Подскажите пожалуйста, как отслеживать длительность загрузки Webbrowser, т.е. нужно создать условие
если страница загружается более 15 секунд then...
Заранее спасибо.

@mss · 25.09.2014, 23:02

Delphi

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if CurDispatch = nil then
    CurDispatch := pDisp; 
end;
 
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if (pDisp = CurDispatch) then
  begin
    CurDispatch := nil; 
    Timer1.Enabled := False;
    DocumentLoaded := True;
    ShowMessage('страница полностью загружена');
  end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ShowMessage('страница загружается более 15 секунд');
end;
 
..
var
  CurDispatch: IDispatch;
  DocumentLoaded: Boolean;
.. 
DocumentLoaded := False;
WebBrowser1.Navigate(..);
Timer1.Interval := 15000;
Timer1.Enabled := True;

@montukxd · 26.09.2014, 00:41 **[ТС]**

Оригинально

, спасибо.

@montukxd 8 / 8 / 3 Регистрация: 21.02.2014 Сообщений: 71
		1
	Проверка длительности загрузки webbrowser 25.09.2014, 20:31. Показов 1691. Ответов 2 Метки нет (Все метки) Подскажите пожалуйста, как отслеживать длительность загрузки Webbrowser, т.е. нужно создать условие если страница загружается более 15 секунд then... Заранее спасибо. 0

@montukxd 8 / 8 / 3 Регистрация: 21.02.2014 Сообщений: 71
	26.09.2014, 00:41 [ТС]	3
	Оригинально , спасибо. 0

Проверка длительности загрузки webbrowser

Решение