WebBrowser使用的一点小问题,或者说是Assigned

Question

本帖最后由 aCracker 于 2010-06-03 10:27:59 编辑

Answer 1

没有调用完毕？
在OnDocumentComplete里面设置个变量判断下

Answer 2

LZ,
WebBrowser1.Navigate(url);是需要时间的，就像我们用浏览器打开网页，不会马上全部显示一样。用showmessage实际上是做了延时。
建议用把上面的sleep(3000)注释去掉试试。

Answer 3

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

Answer 4

WebBrowser1.Navigate(url);
while   WebBrowser1.ReadyState   <   READYSTATE_COMPLETE   do
Application.ProcessMessages;
加入这个试一下