只有注册用户登录后才能阅读该文。 阅读全文
只有注册用户登录后才能阅读该文。 阅读全文
摘要:
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:... 阅读全文