上一页 1 ··· 7 8 9 10 11
只有注册用户登录后才能阅读该文。 阅读全文
posted @ 2015-08-09 20:37 EEEEEEEEEEEEEEEEEEE 阅读(17) 评论(0) 推荐(0) 编辑
摘要: 主要用到的是MSAA(Microsoft Active Accessibility) 函数:ObjectFromLResult,该函数在动态链接库 oleacc.dll 中定义。uses SHDocVw, MsHtml, ActiveX;type TObjectFromLResult = funct... 阅读全文
posted @ 2015-08-09 20:36 EEEEEEEEEEEEEEEEEEE 阅读(642) 评论(0) 推荐(0) 编辑
摘要: 最近在编写一个使用到TWebBrowser控件的软件,浏览网页时经常会弹出各种各样的窗口,尤其是广告,让人烦不胜烦,参考网上的一些资料,针对不同的弹窗方式采取相应的措施就能禁止各种弹窗。1. 将TWebBrowser控件的Silent属性设置为True可以防止弹出“语法错误”的窗口。2. 编写TWe... 阅读全文
posted @ 2015-08-09 20:35 EEEEEEEEEEEEEEEEEEE 阅读(492) 评论(0) 推荐(0) 编辑
摘要: 以前介绍过通过编写Webbrowser1的OnDocumentComplete事件响应代码可以拦截网页弹出的Alert等对话框,代码如下:procedureTForm1.WebBrowser1DocumentComplete(Sender:TObject;constpDisp:IDispatch;v... 阅读全文
posted @ 2015-08-09 20:34 EEEEEEEEEEEEEEEEEEE 阅读(267) 评论(0) 推荐(0) 编辑
摘要: 当TWebBrowser控件访问的 Web 页上的脚本调用window.close方法时,TWebBrowser控件可能会在窗体中消失。我们的程序应该对此作出反应,否则再次访问TWebBrowser控件将引发异常。当TWebBrowser控件销毁前会向其父窗口(即我们的程序窗体)发送WM_PAREN... 阅读全文
posted @ 2015-08-09 20:33 EEEEEEEEEEEEEEEEEEE 阅读(500) 评论(0) 推荐(0) 编辑
摘要: Delphi 可以像JavaScript 脚本语言一样使用GetElementByID方法访问网页中指定ID的元素,一般要配合TWebBrowser组件使用。首先使用TWebBrowser浏览网页,然后访问网页的元素,例如:procedureTForm1.Button1Click(Sender:TO... 阅读全文
posted @ 2015-08-09 20:32 EEEEEEEEEEEEEEEEEEE 阅读(692) 评论(0) 推荐(0) 编辑
摘要: 最近帮朋友做一个软件,其中要自动化某网页中的操作,最简的操作是调用自己写的代码。代码如下:procedure TForm1.Button2Click(Sender: TObject);var i:integer; h:IHTMLHeaderElement; o:OleVariant;begin o:... 阅读全文
posted @ 2015-08-09 20:30 EEEEEEEEEEEEEEEEEEE 阅读(335) 评论(0) 推荐(0) 编辑
摘要: 使用MD5的方法比对CXimage里图片是否改变: Delphi7实现方法: uses IdHashMessageDigest function TForm1.GetImageMD5(cxImage: TcxImage): string; var tmpMD5: TIdHashMessageDige 阅读全文
posted @ 2015-07-27 23:10 EEEEEEEEEEEEEEEEEEE 阅读(679) 评论(0) 推荐(0) 编辑
摘要: 1.添加网页到收藏夹的函数:procedure AddURL(Folder, Url, Title: string);var MyUrlFile: TextFile;begin if Folder[Length(Folder)] '\' then Folder := Folder + '\';... 阅读全文
posted @ 2015-07-14 22:47 EEEEEEEEEEEEEEEEEEE 阅读(360) 评论(0) 推荐(0) 编辑
摘要: 1.格式化文本,动态添加空格 1 2 3 4 5 6 7 8 9 10 11 12 13 14 function formatStr(const srcStr: string;Leng:integer): string; var i, iLen: integer; begin //先把原字符串赋值给 阅读全文
posted @ 2014-09-26 22:20 EEEEEEEEEEEEEEEEEEE 阅读(311) 评论(0) 推荐(0) 编辑
上一页 1 ··· 7 8 9 10 11