Delphi. Работа с браузером.

[Exlife]

Всем привет!
Вобщем, есть код на Delphi, который в автоматическом режиме просматривает несколько страниц результата поиска в Яндексе, и при этом с каждой странице в отдельное текстовое поле выписывает ссылки, отфильтрованные по определенному признаку.
Проблема в том, что на моем среднестатистическом ноуте эта прога работает корректно, а вот на тормознутом ноуте 2008 года покупки несколько страниц результатов просто пропускаются, не обработавшись, а иногда просто вылетает ошибка. По всей видимости, процедура, где ссылки фильтруются и записываются в то текстовое поле, выполняется раньше чем прогружается страница в браузере.
Проблему частично решила вот такая ерунда:

begin
   wbBrows2.Navigate(Query((i),edtURLEdit2.Text));
  Application.ProcessMessages;
  Sleep(4000);
    Application.ProcessMessages;
    btnLinks.Click;
  end;

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

[evg_m]

можно. Для этого надо рассказать КАК идет просмотр (в том числе и как (когда) запускается анализ, а не как имитируем ожидание окончания просмотра.
Для того чтобы узнать что что-то произошло есть события
например завершение загрузки страницы OnComplete.

[Exlife]

Анализ как раз и запускается через

btnLinks.Click;

А вот сам алгоритм обработки, если нужен:

procedure TMainForm.btnLinksClick(Sender: TObject);
var a,b,q,w,e,i:integer;
s,g:string;
begin
 Application.ProcessMessages;
     a:=wbBrows2.OleObject.Document.Links.length;
     for i:=0 to a-1 do
     begin
       q:=0;
       w:=0;
       e:=0;
       s:=wbBrows2.OleObject.Document.Links.Item(i);
       b:=Pos('yandex',s);
       b:=b+Pos('mail',s);
       b:=b+Pos('google',s);
       b:=b+Pos('bing',s);
       if b=0 then
       begin
         s:=copy(s,9,Length(s)-8);
         q:=Pos('/',s);
         if Length(s)=q then
         begin
         if Pos('www',wbBrows2.OleObject.Document.Links.Item(i))<>0 then w:=1;
         s:=Copy(s,Pos('.',s)+1,Length(s)-Pos('.',s));
         if Pos('.',s)=0 then w:=w+1;
         if w<>0 then
         mmoLinks.Lines.Add(wbBrows2.OleObject.Document.Links.Item(i))
         end;
       end;
     end;

end;

Не могли бы Вы поподробней рассказать, как в Delphi использовать OnComplete? По идее, весь вышенаписанный код и должен срабатывать только после загрузки страницы...

[evg_m]

F1 Delphi7 TWebBrowser Events OnDocumentComplete Example

This example shows how to detect when a document is completely loaded, even if it includes multiple frames. Only the final OnDocumentComplete event passes the same Dispatch interface as the OnNavigateComplete event handler.

var

  CurDispatch: IDispatch; {save the interface globally }

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);

begin
  if CurDispatch = nil then
    CurDispatch := pDisp; { save for comparison }
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if (pDisp = CurDispatch) then
  begin
    Beep; {the document is loaded, not just a frame }
    CurDispatch := nil; {clear the global variable }
  end;
end;

а так же поиск по форуму и поиск в интернете.(наверное опять же придем сюда).

[Exlife]

Спасибо, но как оказалось моя проблема решается просто:

while wbBrows2.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages();