Как узнать что страница в Webbroswer загружена?

[Mobiel]

Написал примерно такой код:

WebBrowser1.Navigate('http://vk.com/drug2012');
sleep(10000);
webbrowser1.oleobject.document.getelementbyid('post_field').value:=Edit3.Text;
WebBrowser1.OleObject.Document.GetElementByID('send_post').Click;

но Sleep(10000); тут как то не к месту ведб время загрузки страницы разное
зачем тормозить процес?...
подскажите как сделать что бы только после полной загрузки страницы
выполнялось

webbrowser1.oleobject.document.getelementbyid('post_field').value:=Edit3.Text;
WebBrowser1.OleObject.Document.GetElementByID('send_post').Click;

Пожайлуста подскажите...

[Кольша]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var
  download:boolean:false;
implementation

{$R *.dfm}

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
dowload:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://vk.com/drug2012');
repeat until download;
webbrowser1.oleobject.document.getelementbyid('post_field').value:=Edit3.Text;
WebBrowser1.OleObject.Document.GetElementByID('send_post').Click;
end;

end.

[Mobiel]

Ну раз уж так быстро ответили? как отловить каптчу, вывсети ее для ввода в ручную(а программу в это время поставить на паузу...)

[Пепел Феникса]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
webbrowser1.oleobject.document.getelementbyid('post_field').value:=Edit3.Text;
WebBrowser1.OleObject.Document.GetElementByID('send_post').Click;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://vk.com/drug2012');
end;

end.

почему все так любят проц грузить...

[Mobiel]

Сообщение от Пепел Феникса

почему все так любят проц грузить...

В смысле проц грузить? А как по другому сделать?

[Пепел Феникса]

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

[navalih]

PHP код:

procedure TForm1.wb1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
 if URL=wb1.LocationURL then
  begin
    код.....
  end;
end;