各位兄弟，用Twebbrowser打开网页时，如何判断打开的网页是正确还是错误的。

Question

用Twebbrowser打开网页时，如何判断打开的网页是正确还是错误的。错误网页包括：找开指定网页，无法显示网页等。分不够再加，在线等待。

Answer 1

在网页读取过程中进行一个超时测试,
如果超时,就为读取未成功
就让WebBrowser读取('about:blank')空页面
返回一个Nil的IHTMLDocument2文档;function TForm1.GetTheHtmlDoc(Url: WideString = ''): IHTMLDocument2;
var
  I: Integer;
begin
//  StatusBar1.Panels[2].Text := '从Internet读文档……';
  Result := nil;
  if Url = '' then
  begin
    Web.Navigate('about:blank');
    Exit;
  end; //if Url = ''
  Web.Navigate(Url);
  for I := 0 to 100 * 20 do
  begin
    Sleep(50);
    APPlication.ProcessMessages;
    if Web.ReadyState = READYSTATE_COMPLETE then
    begin
      Result := Web.document as IHTMLDocument2;
//      StatusBar1.Panels[2].Text := '正确取得文档';
      Break;
    end;
{    if CancelByUser = True then
    begin
      Break;
    end;}
  end; //for
  if Result = nil then
  begin
//    StatusBar1.Panels[2].Text := '____超时错';
    Web.Navigate('about:blank');
    {  While 1 = 1 Do
        If Web.ReadyState <> READYSTATE_COMPLETE Then
          WaitAMoment
        Else
          Begin
            Result := Web.document As IHTMLDocument2;
            Break;
          End;}
  end; // If Result = Nil Then}end;

Answer 2

用wininet来测试网络连接就可以了。。

Answer 3

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  document,textrange: olevariant;
begin
  document:=WebBrowser1.Document;
  TextRange:=document.body.createtextrange;  if textrange.text='' then 
  begin
    showMessage('正常：200');
  end
  else if textrange.findtext('404',4000,0) then 
　begin
    showMessage('无法找到文件：404');
  end
  else if i textrange.findtext('500',4000,0) then
  {...}
end;

Answer 4

用  try……except……end 打开网页，应该就可以控制