1、基本操作
1.1、激活

var doc,url:Olevariant ;

begin

url:='about:blank' ;//或者一个有实际意义的url

WebBrowser1.Navigate2(url);//这样就激活了！

end;

1.2、写HTML代码

var doc:Olevariant ;

s:string;

begin

doc:=WebBrowser1.Document;

doc.clear;//清楚缘由内容，以便写新内容

doc.write('<html>');

//其它代码

doc.write('</html>');

doc.close;//这样就生效了！

end;

1.3、获得HTML文本

var doc:Olevariant ;

s:string;

begin

doc:=WebBrowser1.Document;

s:=doc.documentElement.outerHTML;//s里就是HTML文本了

//处理s就行了

end;

2、中级操作
2.1、获得其中HTML元素的值

var doc:olevariant;

s:string;

begin

doc:=WebBrowser1.Document;

s:=doc.all.btn.value;

end;

2.2、改写其中HTML元素的值

var doc:olevariant;

begin

doc:=WebBrowser1.Document;

doc.all.btn.value:='';

end;

3、高级操作
3.1、触发其中HTML元素的事件

var doc:olevariant;

begin

doc:=WebBrowser1.Document;

doc.all.btn.onclick;

end;

3.2、让其中的元素执行webbrowser之外的delphi代码
本来，这有很复杂的解决办法，但那部分属于ATL的知识比较难掌握，因此绕了一下：
让那些需要执行delphi的HTML元素，调用一个函数叫做triggerExEvent，参数是HTML元素的名称，然后是若干参数。
triggerExEvent是javascript函数，有不确定个参数，但第一个肯定是表示元素的名称。 triggerExEvent将参数组成字符串，然后前面冠以"#OnTriggerExEvent:"，作为url，然后导航。
在webbrowser的onNavigator2事件里，判断url中是否包含"#OnTriggerExEvent:"，如果包含怎作如下处理：
a、cancel这次导航；b、将"#OnTriggerExEvent:"之后的信息截取，作为参数传递给webbrowser的新增一个事件OnTriggerExEvent事件，其参数有两个：1、控件名称；2、一个字符串参数。
这样，用户可以在OnTriggerExEvent事件里处理HTML的点击等事件了
例如，我为webbrowser派生新类，叫做webbrowserEx，它有一个事件叫做OnTriggerExEvent
有个js文件包含这样的函数：

function triggerExEvent(cmpnt_id,event_nm,optionstr)

{url='#triggerExEvent:id=';

url=url+cmpnt_id+';eventnm='+event_nm;

if(optionstr) url=url+';params=optionstr';

location=url;}

在HTML文本里可以这样写：

<input type="button" name="Submit" value="按钮" onClick="triggerExEvent('Submit','click',null);">

这样，点击网页里的按钮时，会触发delphi写的代码，这些代码根据传递过来的参数，再进行调用其它合适的事件，也可以让webbrowserEx自动寻找合适的事件来触发，只有寻找不到时才去找JS的方法。

delphi中WEBBrowser网页html相互调用（一）的更多相关文章

  1. delphi中EmbeddedWB网页html相互调用（二）

    我们可以通过控件 EmbeddedWB_D5-D2010_Version_14.69.1 来响应html事件,还可以自定义html响应哪些html元素. 控件下载 点击下载 里面有demos文件夹大家 ...

  2. Delphi中WebBrowser控件打开部分网站报"Invalid floating point operation”解决

    Delphi中WebBrowser控件打开部分网站报"Invalid floating point operation”解决 EmbeddedWBWebBrowserDelphi  最近用E ...

  3. Delphi 中的DLL 封装和调用对象技术（刘艺，有截图）

    Delphi 中的DLL 封装和调用对象技术本文刊登2003 年10 月份出版的Dr.Dobb's 软件研发第3 期刘 艺摘 要DLL 是一种应用最为广泛的动态链接技术但是由于在DLL 中封装和调用对 ...

  4. vue中的父子组件相互调用

    vue中的父子组件相互调用: 1.vue子组件调用父组件方法:子组件:this.$emit('xx'); 父组件:定义yy方法,并在引用子组件时传参,如@xx="yy" 2.vue ...

  5. java 中 this 和 super 说明及在构造器中super()和this()相互调用执行顺序

    this this 表示当前对象 使用上细分的话,this有 this. 和this()的使用情况 ,下面我们开始细撸 this . 使用场景一: 在成员方法中,this.变量名 指带当前对象的变量, ...

  6. delphi中webbrowser的用法

    WebBrowser1.GoHome; //到浏览器默认主页 WebBrowser1.Refresh; //刷新 WebBrowser1.GoBack; //后退 WebBrowser1.GoForw ...

  7. delphi中WebBrowser的parent改变时变成空白问题的解决（覆盖CreateWnd和DestroyWnd）

    这段时间在做一个delphi界面打开网页的功能,且此网页所在窗口可完整显示,可缩小到另一个窗口的panel上显示 可是在改变网页所在窗口时,WebBrowser控件变成了空白 上网google了半天, ...

  8. Delphi中WebBrowser拦截网页Alert对话框消息(转)

    interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, O ...

  9. delphi中Webbrowser疑难问题集锦<转>

    1.获得网页中变量值      htm中<script> var currID=123</script>      程序中可以这么调用 id := Form1.WebBrows ...

随机推荐

  1. 百度编辑器1.4.3 .net版在vs2008的使用方法

    由于在官方下载的ueditor包是在vs2012下开发的,可以在vs2010中使用,但在vs2008中就会报错.折腾了一翻,现将解决方法分享给需要的朋友,其实就是把里面包含.net4.0的元素换成.n ...

  2. C#中params使用

    1.参数被params修饰即为可变参数,params只能修饰一维数组. 2.给可变参数赋值的时候,可以直接传递数组的元素. 3.在调用的时候,会自动将这些元素封装为一个数组,并将数组传递. 4.可变参 ...

  3. 调试环境部署续：vs远程调试

    原文http://www.bitscn.com/weixin/464994.html 第一步  IIS的配置 进入iis,点击网址,选择你的网站,在窗口的右边编辑网站中点击绑定,如图所示. 进入网站绑 ...

  4. iOS toolbar

    初学ios,对toolbar初步了解: self.navigationItem.title=@"显示工具栏"; // 显示工具栏 //self.navigationControll ...

  5. ACM——A + B Problem (4)

    A + B Problem (4) 时间限制(普通/Java):1000MS/3000MS          运行内存限制:65536KByte总提交:2496            测试通过:124 ...

  6. 插入排序算法--直接插入算法，折半排序算法，希尔排序算法（C#实现）

    插入排序算法主要分为:直接插入算法,折半排序算法(二分插入算法),希尔排序算法,后两种是直接插入算法的改良.因此直接插入算法是基础,这里先进行直接插入算法的分析与编码. 直接插入算法的排序思想:假设有 ...

  7. FFT —— 快速傅里叶变换

    问题: 已知A[], B[], 求C[],使: 定义C是A,B的卷积,例如多项式乘法等. 朴素做法是按照定义枚举i和j,但这样时间复杂度是O(n2). 能不能使时间复杂度降下来呢? 点值表示法: 我们 ...

  8. OpenGL_Qt学习笔记之_05(纹理映射)（转）

    转自:http://www.cnblogs.com/tornadomeet/archive/2012/08/24/2654719.html 纹理映射基础知识 什么叫纹理映射,一开始我也不明白,感觉这个 ...

  9. Qt 操作Excel

    Qt对Excel的数据读/写操作没有现存的类,需要使用QAxObject,下面是从网上下载下来的一个封装好的类,感觉还可以,一般情况下够用,拿来给大家分享. 头文件: #ifndef EXCELENG ...

  10. PHP curl 采集内容之规则 1

    <?phpheader("Content-type:text/html; charset=utf-8");$pattern = '/xxx(.*)yyyy/isU'; //i ...