只有注册用户登录后才能阅读该文。 阅读全文
只有注册用户登录后才能阅读该文。 阅读全文
摘要：
Delphi通过TWebBrowser浏览网页，然后访问该网页中的下拉菜单：uses MsHtml;procedure TForm1.Button1Click(Sender: TObject);var doc: IHTMLDocument2; coll: IHTMLElementCollection... 阅读全文
只有注册用户登录后才能阅读该文。 阅读全文
摘要：
主要用到的是MSAA(Microsoft Active Accessibility) 函数：ObjectFromLResult，该函数在动态链接库 oleacc.dll 中定义。uses SHDocVw, MsHtml, ActiveX;type TObjectFromLResult = funct... 阅读全文
摘要：
最近在编写一个使用到TWebBrowser控件的软件，浏览网页时经常会弹出各种各样的窗口，尤其是广告，让人烦不胜烦，参考网上的一些资料，针对不同的弹窗方式采取相应的措施就能禁止各种弹窗。1. 将TWebBrowser控件的Silent属性设置为True可以防止弹出“语法错误”的窗口。2. 编写TWe... 阅读全文
摘要：
以前介绍过通过编写Webbrowser1的OnDocumentComplete事件响应代码可以拦截网页弹出的Alert等对话框，代码如下：procedureTForm1.WebBrowser1DocumentComplete(Sender:TObject;constpDisp:IDispatch;v... 阅读全文
摘要：
当TWebBrowser控件访问的 Web 页上的脚本调用window.close方法时，TWebBrowser控件可能会在窗体中消失。我们的程序应该对此作出反应，否则再次访问TWebBrowser控件将引发异常。当TWebBrowser控件销毁前会向其父窗口（即我们的程序窗体）发送WM_PAREN... 阅读全文
摘要：
Delphi 可以像JavaScript 脚本语言一样使用GetElementByID方法访问网页中指定ID的元素，一般要配合TWebBrowser组件使用。首先使用TWebBrowser浏览网页，然后访问网页的元素，例如：procedureTForm1.Button1Click(Sender:TO... 阅读全文
摘要：
最近帮朋友做一个软件，其中要自动化某网页中的操作，最简的操作是调用自己写的代码。代码如下：procedure TForm1.Button2Click(Sender: TObject);var i:integer; h:IHTMLHeaderElement; o:OleVariant;begin o:... 阅读全文