关于TWebBrowser

Question

假如用户输入了一个网址，程序会访问这个网页，如果访问成功刚返回00在TWebBrowser网面上，否则返回11，现在我想要将它返回的00或11在DELPHI中用SHOWMESSAGE的方式SHOW出来，如何才能实现

Answer 1

”程序会访问这个网页” 是以WebBrowser1.Navigate访问的?你的「00」和「11」是从Web Server返回到Client WebBrowser的吗?
是以什麽方式返回的？也就是说网页本身是怎麽表示「00」和「11」的?

Answer 2

ihtmldocument2 doc:= (webbrowser1.document) as ihtmldocument2;
showmessage(doc.body.outerHTML);

Answer 3

下面过程可以判断是否正常访问了网页。procedure TForm1.Button1Click(Sender: TObject);
var
  DocIntf: IHTMLDocument2;
  URL:     WideString;
begin
  URL := 'http://www.zhengcg.net/';
  WebBrowser1.Navigate(URL);
  while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do
    Application.ProcessMessages;
  if WebBrowser1.Document.QueryInterface(IHTMLDocument2, DocIntf) = 0 then
  begin
    if DocIntf.title = '没有可以显示的页面' then   // 不同版本的操作系统可能不同
    begin
      ShowMessage('11');
      Exit;
    end;
  end;
  ShowMessage('00');
end;