Добрый день
Замечено, что в момент загрузки страницы ПРОЦ грузит до 50% видимо в первом Application.ProcessMessages

Код:

try
        Wbbr.Navigate(UrlSearch, Flags, TargetFrameName, PostData, Headers);
          repeat
            Application.ProcessMessages; (*видимо тут грузит проц до 50%*)
          until Wbbr.ReadyState >= READYSTATE_COMPLETE;
          if Wbbr.Document <> nil then
          HtmlCodeData := AnsiLowerCase(
          (Wbbr.Document as iHTMLDocument2).body.innerhtml);
          Application.ProcessMessages; (*тут вроде бы и не надо?*)
      except
          CodeSite.EnterMethod( Self, 'Timer' );
          CodeSite.SendError('TWebBrowser failed'); (*бравузер здох*)
          CodeSite.ExitMethod( Self, 'Timer' );
      end;

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

[wendstor]

Вместо Application попробуй Класс TThread, вот ссылка.
а грузить проц будет так как идёт бработка html кода и построение страницы.

потоки это хорошо, но не по теме

уже насоветовали

Код:

repeat
Sleep (1);
Application.ProcessMessages;

надо было просто приложить АПМ к чему то
теперь не более 7% загрузки проца

[Bargest]

Sleep можно и больше 1 миллисекунды сделать. Загрузка снизится почти до нуля.

[NumLock]

а чем события не устраивают?

OnDownloadComplete и прочие не походят, так как нет гарантии что они возникают после закачки и обработки страницы

код в топике гарантирует, в том числе и в ситуации с низкой скоростью закачки, правильную обработку кода(ДОМ). это проверено

[NumLock]

даже в справке написано:

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;

на худой конец:

Код:

  WebBrowser1.OnDocumentComplete:=WebBrowser1DocumentComplete;
  WebBrowser1.Navigate('http://www.sony-ericsson.ru/forums2/index.php');

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if WebBrowser1.ReadyState=READYSTATE_COMPLETE then Caption:='Ok';
end;

справочник - это хорошо
а сам не пробовал? if Wbbr.OnDocumentComplete = True Then .... в своих программах?
а то опять прийдется полдня тестировать

[NumLock]

событие OnDocumentComplete типа TWebBrowserDocumentComplete:

Код:

TWebBrowserDocumentComplete = procedure(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant) of object;

сравнивать его с True нельзя.

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

тот код что приведен в топике хотя бы проверен и проблем замечено не было