测试WebBrowser控件加载完没

 /////测试WebBrowser控件加载完没

  while WebBrowser1.Busy or (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) do
  begin
    Application.ProcessMessages;
  end;

 j:=0;
  while j<25000 do
  begin
    str1 :=WebBrowser1.OleObject.document.documentelement.innerhtml;
    j:=Length(str1);
    Memo1.Lines.Add(IntToStr(j));
    Application.ProcessMessages;
    Delay(1000);
  end;
///////////////////////////////控件内文字的多少来判断是否加载完毕，完成后执行后面的程序