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