上一页 1 ··· 29 30 31 32 33 34 35 36 37 ··· 70 下一页

2020年11月24日

Delphi WebBrowser[13] 网页中插入自定义JavaScript

摘要: Delphi WebBrowser[13] 网页中插入自定义JavaScript var i:integer; h:IHTMLHeaderElement; o:OleVariant; begin o:=webbrowser1.OleObject.document.createElement('scr 阅读全文

posted @ 2020-11-24 08:46 滔Roy 阅读(416) 评论(0) 推荐(0) 编辑

2020年11月23日

Delphi 通过URL地址获取网页源码的方法

摘要: Delphi 通过URL地址获取网页源码的方法 uses WinInet, Classes, Windows; function UrlGetStr(const URL: string; ShowHeaders: boolean = false): string; const Agent = 'In 阅读全文

posted @ 2020-11-23 11:05 滔Roy 阅读(987) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[12] 操作Alert对话框(禁用、获取)

摘要: Delphi TWebBrowser[12] 操作Alert对话框(禁用、获取) 1、禁用方法: //常规方法 procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: 阅读全文

posted @ 2020-11-23 10:38 滔Roy 阅读(308) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[11] 读写html代码

摘要: Delphi TWebBrowser[11] 读写html代码 注意:html 是UTF-8编码的在中文环境下需要转换成GB2312,否则会显示中文乱码 uses ActiveX; function WB_ReadHTML(aBrowser: TWebBrowser): String; begin 阅读全文

posted @ 2020-11-23 10:07 滔Roy 阅读(365) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[10] 防止弹出新窗口的几个方法

摘要: Delphi TWebBrowser[10] 防止弹出新窗口的几个方法 1、方法1 uses MsHTML; WebBrowser1.Silent:=True; //可以防止弹出“语法错误”的窗口。 procedure TForm1.WebBrowser1NewWindow2(ASender: TO 阅读全文

posted @ 2020-11-23 09:55 滔Roy 阅读(637) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[9] 事件Close捕获来防止异常、禁用鼠标右键、回车Enter等键的响应方法

摘要: Delphi TWebBrowser[9] 事件Close捕获来防止异常 以及 禁用鼠标右键方法 1、事件Close捕获 原因:使用TWebBrowser,如果访问的网页有关闭窗口的JavaScript,那么TWebBrowser会被注销,而应用程序本身并没有关闭, 1)在窗体上放置一个TAppli 阅读全文

posted @ 2020-11-23 09:40 滔Roy 阅读(303) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[8] 访问网页中的表格

摘要: Delphi TWebBrowser[8] 访问网页中的表格 use MSHTML; function GetHtmlTableCell(aTable: IHTMLTable; aRow, aCol: Integer): IHTMLElement; var Row: IHTMLTableRow; b 阅读全文

posted @ 2020-11-23 09:34 滔Roy 阅读(280) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[7] 获取网页图片(静态和动态)

摘要: Delphi TWebBrowser[7] 获取网页图片(静态和动态) 1、静态图常用方法: uses WinInet function GetLocalFileNameFromIECache(url:string; var LocalFileName:string):DWORD; var D: C 阅读全文

posted @ 2020-11-23 09:08 滔Roy 阅读(390) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[6] 获取网页所有链接(元素)、下拉菜单及GetElementByID返回值的有效性判定方法

摘要: Delphi TWebBrowser[6] 获取网页所有链接(元素)、下拉菜单及GetElementByID返回值的有效性判定方法 1、获取网页所有链接 var elem: IHTMLElement; coll: IHTMLElementCollection; i: integer; url, ti 阅读全文

posted @ 2020-11-23 09:05 滔Roy 阅读(431) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[5] 获取含框架的网页完整html源码 及多个框架(跨域)的方法

摘要: Delphi TWebBrowser[5] 获取含框架的网页完整html源码 及多个框架(跨域)的方法 1、获取html源码的常规方法: (WebBrowser1.Document as IHtmlDocument2).body.outerHtml; 2、获取含框架frame的完整html源码(<b 阅读全文

posted @ 2020-11-23 08:53 滔Roy 阅读(639) 评论(0) 推荐(0) 编辑

上一页 1 ··· 29 30 31 32 33 34 35 36 37 ··· 70 下一页

导航