通篇引用mshtml;

一、webbrowser获取滚动条的位置

function GetScrollPositionX(FWB:TEmbeddedWB):Integer;     //水平滚动条位置
begin
  result := FWB.OleObject.document.getElementsByTagName('HTML').item(0).ScrollLeft;
end;

function GetScrollPositionY(FWB:TEmbeddedWB):Integer;  //垂直滚动条位置
begin
  result := FWB.OleObject.document.getElementsByTagName('HTML').item(0).ScrollTop;
end;

二、webbrowser获取滚动条的最大位置

function GetScrollPositionXMax(FWB:TEmbeddedWB):Integer;     //水平滚动条最大位置
var
  doc2 : IHTMLDocument2;
  i,i2 : Integer;
begin
  i := FWB.OleObject.document.getElementsByTagName('HTML').item(0).ScrollWidth;
  doc2 := FWB.document as Ihtmldocument2;
  i2 := doc2.Body.getAttribute('offsetWidth', 0);
  result := i-i2;
end;

function GetScrollPositionYMax(FWB:TEmbeddedWB):Integer;  //垂直滚动条最大位置     
var
  doc2 : IHTMLDocument2;
  i,i2 : Integer;
begin
  i := FWB.OleObject.document.getElementsByTagName('HTML').item(0).scrollHeight;
  doc2 := FWB.document as Ihtmldocument2;
  i2 := doc2.Body.getAttribute('offsetHeight', 0);
  if (i-i2=0) and (i+21>FWB.Height) then
    result := i
  else
  result := i-i2;
end;

三、Webbrowser获取元素的位置(矩形)

function GetElementRect(ele : IHTMLElement):IHtmlRect;//
begin
  Result := (ele as ihtmlElement2).getBoundingClientRect ;
end;

四、Webbrowser滚动条滚动到指定位置

wb1.OleObject.document.parentwindow.scrollby(x,y);  //滚动多少

wb1.OleObject.document.parentwindow.scrollTo(x,y);//滚动到什么位置

五、Webbrowser判断元素是否存在某一属性
var
  ele: IHTMLElement;
  str_property:string;
begin
      if ele.getAttribute(str_property,0)<>null then
      begin
        showmessage('存在该属性');
     end;  

end;

六、Webbrowser关闭安全警告弹出框

function GetHandleByClassTitle(str_class,str_title: string;bl_extract:Boolean): Thandle;
var
  h: HWnd;
  WndText:String;
  WndClass:string;
  p: array[0..254] of char;
begin
  Result := 0;
  h := GetWindow(Application.Handle, GW_HWNDFIRST);
  while h <> 0 do
  begin
    GetWindowText(h,p,Length(p));
    WndText := p;
    GetClassName(h, p, Length(p));
    WndClass := p;
    if WndClass=str_class then
    begin
      if  bl_extract then
      begin
        if WndText=str_title then
        begin
          Result := h;
        end;
      end
      else
      begin   
        if pos(str_title,WndText)>0  then
        begin   
          Result := h;
        end;
      end;
    end;
    h:=GetWindow(h, GW_HWNDNEXT);
  end;
end;

var
  h: HWnd;
  p: array[0..254] of char;
begin
  h := GetHandleByClassTitle('#32770','安全警告',False);
  if h>0 then
  begin
    SendMessage(h,WM_CLOSE,0,0);
  end;
end;

七、delphi如何隐藏webBrowser的滚动条,如何屏蔽右键
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin //水平垂直均可隐藏
WebBrowser1.oleobject.Document.body.Scroll := 'no';
WebBrowser1.oleobject.Document.documentElement.style.overflow := 'hidden';
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
//要加一个ApplicationEvents
with Msg do
begin
if not IsChild(WebBrowser1.Handle,hwnd) then Exit;
Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP) or (message = WM_CONTEXTMENU);
end;

HTML元素相关属性:

nextSibling 返回当前节点的下一个兄弟节点(只读)
previousSibling 返回此节点的前一个兄弟节点(只读)
parentNode 返回父节点(只读)
childNodes 存储节点的子节点列表(只读)
nodeValue 返回节点的文本(可读写)
Text 返回此节点及其后代的文本内容(可读写)
nodeName 返回节点的名字(只读)

Attributes 存储节点的属性列表(只读)
dataType 返回此节点的数据类型
Definition 以DTD或XML模式给出的节点的定义(只读)
Doctype 指定文档类型节点(只读)
documentElement 返回文档的根元素(可读写)
firstChild 返回当前节点的第一个子节点(只读)
Implementation 返回XMLDOMImplementation对象
lastChild 返回当前节点最后一个子节点(只读)
nodeType 返回节点的类型(只读)
nodeTypedValue 存储节点值(可读写)
ownerDocument 返回包含此节点的根文档(只读)
Parsed 返回此节点及其子节点是否已经被解析(只读)
Prefix 返回名称空间前缀(只读)
preserveWhiteSpace 指定是否保留空白(可读写)
url 返回最近载入的XML文档的URL(只读)
Xml 返回节点及其后代的XML表示(只读)

方法:

getElementsByTagName 返回指定名字的元素集合
appendChild 为当前节点添加一个新的子节点,放在最后的子节点后
createElement 创建一个元素节点
createTextNode 创建包括给定数据的文本节点
removeChild 从子结点列表中删除指定的子节点
hasChildNodes 返回当前节点是否有子节点

cloneNode 返回当前节点的拷贝
createAttribute 创建新的属性
createCDATASection 创建包括给定数据的CDATA段
createComment 创建一个注释节点
createDocumentFragment 创建DocumentFragment对象
createEntityReference 创建EntityReference对象
createNode 创建给定类型,名字和命名空间的节点
createPorcessingInstruction 创建操作指令节点
insertBefore 在指定节点前插入子节点
Load 导入指定位置的XML文档
loadXML 导入指定字符串的XML文档
replaceChild 从子节点列表中替换指定的子节点
Save 把XML文件存到指定节点
selectNodes 对节点进行指定的匹配,并返回匹配节点列表
selectSingleNode 对节点进行指定的匹配,并返回第一个匹配节点
transformNode 使用指定的样式表对节点及其后代进行转换
transformNodeToObject 使用指定的样式表将节点及其后代转换为对象

delphi WebBrowser的使用方法详解(六)的更多相关文章

  1. delphi WebBrowser的使用方法详解(五)-难点释疑

    网页代码:<SELECT id=fy onchange=TouchRefresh(1) name=fy> <OPTION selected value=15>每頁顯示15筆&l ...

  2. delphi WebBrowser的使用方法详解(三)

    WebBrowser 操作记要 WebBrowser1.GoHome;  //到浏览器默认主页 WebBrowser1.Refresh;  //刷新 WebBrowser1.GoBack;  //后退 ...

  3. delphi WebBrowser的使用方法详解(四)-webbrowser轻松实现自动填表

    webbrowser轻松实现自动填表 步骤如下:  第一步:获取网页 调用Webbrowser 的Navigate系列函数.等待网页装载完成,得到document对象. 在调用 webBrowser. ...

  4. Delphi中TStringList类常用属性方法详解

    TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的. 常规的用法大家都知道,现在来讨论它的一些高级的用法. 先把要讨论的几个属性列出来: 1.CommaText 2.Delim ...

  5. “全栈2019”Java多线程第六章:中断线程interrupt()方法详解

    难度 初级 学习时间 10分钟 适合人群 零基础 开发语言 Java 开发环境 JDK v11 IntelliJ IDEA v2018.3 文章原文链接 "全栈2019"Java多 ...

  6. “全栈2019”Java第六十五章:接口与默认方法详解

    难度 初级 学习时间 10分钟 适合人群 零基础 开发语言 Java 开发环境 JDK v11 IntelliJ IDEA v2018.3 文章原文链接 "全栈2019"Java第 ...

  7. 并发编程(六)Object类中线程相关的方法详解

    一.notify() 作用:唤醒一个正在等待该线程的锁的线程 PS : 唤醒的线程不会立即执行,它会与其他线程一起,争夺资源 /** * Object类的notify()和notifyAll()方法详 ...

  8. java基础(十六)----- equals()与hashCode()方法详解 —— 面试必问

    本文将详解 equals()与hashCode()方法 概述 java.lang.Object类中有两个非常重要的方法: public boolean equals(Object obj) publi ...

  9. CURL使用方法详解

    php采集神器CURL使用方法详解 作者:佚名  更新时间:2016-10-21   对于做过数据采集的人来说,cURL一定不会陌生.虽然在PHP中有file_get_contents函数可以获取远程 ...

随机推荐

  1. 机器学习 - 开发环境安装pycharm + tensorflow集成篇

    继续上篇的pyspark集成后,我们再来看看当今热的不得了的tensorflow是如何继承进pycharm环境的 参考: http://blog.csdn.net/include1224/articl ...

  2. vscode vue eslint 快捷键格式化代码

    添加vetur , eslint插件   在工作区添加以下代码   "workbench.startupEditor": "welcomePage", &quo ...

  3. GUI相关学习资料

    分类 1,基于OS,包括windows,linux,android,ios 2,基于语言,包括c++,java,c#,javacript 3,按照技术分类,这个其实和os,编程语言分不开,大概可以分为 ...

  4. java 字符集 Charset

    字符集就是为每个字符编个号码.如ASCII编码中,字符 'A' 的号码为 65 (或二进制01000001):GBK编码中,字符 '国' 对应的号码为47610 . 编码:将字符序列转换成二进制序列. ...

  5. sql update操作结果

    Mysql 在MySQL中只有真正对记录进行修改了的情况下,row_count才会去记录影响的行数,否则如果记录存在但是没有实际修改则不会将该次更新记录到row_count中. update操作执行结 ...

  6. kafka_2.11-0.8.2.1生产者producer的Java实现

    转载自:http://blog.csdn.net/ch717828/article/details/50818261 1. 开启Kafka Consumer 首先选择集群的一台机器,打开kafka c ...

  7. CentOS 6 上安装 pip、setuptools

    通常 python 升级后,会带来一系列的出错信息,例如缺少pip.zlib.setuptools等,虽然你已经把python升级到了2.7版本,但是使用的依赖.模块还是旧的,所以要在新的 pytho ...

  8. 开IE时 暴卡

    待打开IE后,在“工具”-“管理加载项”中禁用所有加载项.

  9. java实现PC之间的udp数据单向传输

    本示例包括两个客户端UDPClient和MyServer.UDPClient发送数据到MyServer,MyServer负责接收数据.可传输文本.视频.音频.图片等. 最近我在学习这一块,写个例子. ...

  10. 黄聪:在.NET中使用GeckoFX 29

    GeckoFX is a .NET control, that works similarly to “System.Windows.Forms.WebBrowser” Control, while ...