WebBrow ser 组件和MSHTML 在Delphi中的使用 由于项目需要，近来研究了一下WebBrowser组件和MSHTML 在Delphi中的使用,整理了一下这段时间研究的结果,写下来一是方便大家查阅,二也可以加深我自己的记忆.希望能对大家有所帮助„ „,同时,如果有更好的处理方式或者我没有提到的问题,请大家也告诉我哦, 咱们一块进步„ ...,其中一部分是我从网络中搜集的资料,谢谢那些兄弟们„ „ MSHTML把HTML页面中的元素封装成了IHTMLInputElement、 IHTMLInputButtonElement、IHTMLInputTextElement、IHTMLTextAreaElement、IHTMLTitleElement、IHTMLFormElement等等组件接口。 在程序中可以通过 MSHTML提供的IHTMLDocument2接口得到整个 Document对象，IHTMLElementCollection接口得到所有页面元素的集合,通过该接口的Item方法可以得到具体的某个组件,然后设置和读取该组件的属性值。 下面是一些常用功能的事例代码. 1． 打开某个页面： web.Navigate(ExtractFilePath(Application.ExeName) + 'Template/login.html'); 2． 取出页面中某个 HtmlElement的Value属性值： function GetValueByElementName(web: TWebBrowser; elementName: string; index: integer): string; begin result := (((web.Document as IHTMLDocument2).body.all as IHTMLElementCollection).item(elementName, index) as IHTMLInputElement ).value end; 3． 给HtmlElement设置 Value属性 procedure SetValueTextAreaName(web: TWebBrowser; elementName, value: string;index: integer); begin (((web.Document as IHTMLDocument2).body.all as IHTMLElementCollection).item(elementName, index) as IHTMLTextAreaElement ).value := value; end; 4． 判断页面执行结果是否成功 因为Web应用中如果出错的一般是采用错误页面的方式呈现给最终用户,所以我们也无 法抓到Http错误,只 能通过在webBeforeNavigate2事件中将 URL参 数 记录 到全 局 变 量 中, 然后在webDocumentComplete事件中根 据 URL参 数 和全 局 变 量 中的URL参 数 来判断执行结果是否正 确 .当 然,这样 需要将 页面地 址 编 码到代码中,降 低 了灵 活 性,但 是这也是我能想 到的唯 一的方法,如果大家有什 么 好的方法,请告诉我哦. 5． 屏 蔽 鼠 标 右 键 和某些快 捷 键 本 功能需要在webBrowser...
