WebBrowser组件和MSHTML 在Delphi中的使用（国外英文资料）.doc

WebBrowser组件和MSHTML 在Delphi中的使用（国外英文资料） WebBrowser components and MSHTML in Delphi Due to project requirement, the recent studies about the WebBrowser component and MSHTML in the use of Delphi, adjusted the results of this period of time study, write down a convenient you consult, 2 also can deepen the memory of my own. Hope to be able to help you... ... At the same time, if there is a better way to deal with it or I didnt mention it, please let me know, lets make progress... ... And part of that is the information I collected from the Internet, thanks to the brothers... ... MSHTML encapsulates elements in the HTML page as IHTMLInputElement, IHTMLInputButtonElement, IHTMLInputTextElement, IHTMLTextAreaElement, IHTMLTitleElement, IHTMLFormElement, etc. In the program can be provided by MSHTML IHTMLDocument2 interface to get the whole Document object, IHTMLElementCollection interface to get a collection of all elements on the page, by using the approach of the interface Item can be a component, and then set and read the component of attribute values. Here are some examples of common functionality. Open a page: The ExtractFilePath (application.exename) + Template/login.html); / / specify a file The Web. ( about: blank ); / / page Remove the Value attribute Value of an HtmlElement in the page: Function GetValueByElementName (web: TWebBrowser; elementName: string; index: integer) : string; The begin Result: (web. Document as IHTMLDocument2) The IHTMLElementCollection).item (elementName, index) as IHTMLInputElement ). The value The end; Set the Value attribute to the HtmlElement Procedure SetValueTextAreaName (web: TWebBrowser; elementName, value: string; index: integer); The begin (web. Document as IHTMLDocument2) The IHTMLElementCollection).item (elementName, index) as IHTMLTextAreaElement Value: = value: The end; Determine if the results are successful Because Web applications if the error is generally adopt the way of error page is presented to the end user, so we can