Developing.ru

Код: Выделить всё

procedure TfmBrowserForm.WebBrowserDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
  sBody:string;
  iDoc:IHtmlDocument2;
  body:IHTMLElement;
begin
  If not assigned((pDisp as IWebBrowser).Document) then Exit;
  (pDisp as IWebBrowser).Document.QueryInterface(IHtmlDocument2,iDoc);
  If not assigned(iDoc) then Exit;
  body:=iDoc.body;
  If not assigned(body) then Exit;
  sBody:=body.innerHTML;
  If (Pos('<H3>Service Unavailable</H3>',sBody)>0) or (Pos('<H3>Gateway Timeout</H3>',sBody)>0) or (Pos('<H1>Internal Server Error</H1>',sBody)>0) then
    begin
      iDoc.url:=iDoc.url;
      Exit;
    end;
end;