Delphi WebBrowser与网页交互

WebBrowser1.GoHome; //到浏览器默认主页

WebBrowser1.Refresh; //刷新

WebBrowser1.GoBack; //后退

WebBrowser1.GoForward; //前进

WebBrowser1.Navigate('...'); //打开指定页面

WebBrowser1.Navigate('about:blank'); //打开空页面

//打开空页面, 并写入...

WebBrowser1.Navigate('about:<head><title>标题</title><body>页面内容</body>');

//读取网页脚本中的变量:
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i: Integer;
begin
  s := WebBrowser1.OleObject.document.Script.str;
  i := WebBrowser1.OleObject.document.Script.num;
  ShowMessage(s);  //Hello
  ShowMessage(IntToStr(i));  //99
  //也可以这样读:
s := WebBrowser1.OleObject.document.parentWindow.str;
i := WebBrowser1.OleObject.document.parentWindow.num;
  ShowMessage(s);  //Hello
  ShowMessage(IntToStr(i));  //99
end;

假如网页中有这样的语句:
<script>
var
str = "Hello";
i = 99;
</script>

//调用网页脚本中的函数:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.OleObject.document.parentWindow.MB(); //HTML-Js
  //如需指定脚本语言, 需要:
  WebBrowser1.OleObject.document.parentWindow.execScript('MB()','Javascript'); //HTML-Js
end;

假如有这样的脚本:

function MB(){

alert('HTML-Js');

}

</script>

//判断网页及内部框架网页是否全部下载完毕

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

begin

if WebBrowser1.Application = pDisp then

begin

Text := '网页下载完毕！';

end;

//改变背景色或背景图片:

WebBrowser1.OleObject.document.body.bgcolor := '#FF0000';

WebBrowser1.OleObject.document.body.background := '...图片地址';

//操作有 ID 标签的对象:

var

s: string;

begin

s := WebBrowser1.OleObject.document.getElementByIdx_x('span1').innerText;

ShowMessage(s); //这是 span1 标签中的内容

//或者:

s := WebBrowser1.OleObject.document.parentWindow.span1.innerText;

ShowMessage(s); //这是 span1 标签中的内容

//隐藏它:

WebBrowser1.OleObject.document.parentWindow.span1.style.display := 'none';

end;

假如网页中有这样的内容:

<span id=span1>这是 span1 标签中的内容</span>

//获取网页源代码

var

s: string;

begin

s := WebBrowser1.OleObject.document.body.innerHTML; //body内的所有代码

s := WebBrowser1.OleObject.document.body.outerHTML; //body内的所有代码, 包含body标签

s := WebBrowser1.OleObject.document.documentElement.innerHTML; //html内的所有代码

end;

//获取网页全部源代码

uses ActiveX;

var

ms: TMemoryStream;

begin

if not Assigned(WebBrowser1.Document) then Exit;

ms := TMemoryStream.Create;

(WebBrowser1.Document as IPersistStreamInit).Save(TStreamAdapter.Create(ms), True);

ms.Position := 0;

Memo1.Lines.LoadFromStream(ms, TEncoding.UTF8);

// Memo1.Lines.LoadFromStream(ms, TEncoding.Default); {GB2312 等双字节}

ms.Free;

end;

//WebBrowser 中的右键菜单

//先要添加ApplicationEvents1,指定其Message事件

//屏蔽右键菜单

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);

begin

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;

//替换右键菜单

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);

var mPoint: TPoint;

begin

if IsChild(WebBrowser1.Handle, Msg.Hwnd) and

((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then

begin

GetCursorPos(mPoint); //得到光标位置

PopupMenu1.Popup(mPoint.X, mPoint.Y); //弹出popupmenu1的菜单

Handled:=True;

end;

//新页面写入

begin

WebBrowser1.Navigate('about:blank');

WebBrowser1.OleObject.Document.Writeln('ok');

end;

//从流中写入:

var

ms: TMemoryStream;

begin

ms := TMemoryStream.Create;

Memo1.Lines.SaveToStream(ms);

ms.Position := 0;

(WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));

ms.Free;

end;

//禁止提示脚步错误

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

begin

WebBrowser1.Silent := True;

end;

//禁止弹出窗口

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;

var Cancel: WordBool);

begin

Cancel := True;

end;

///

1.获取网页中变量的值
   例如：htm中<script> var currIDS=123</script>
     程序中可以这样调用 id := Form1.WebBrowser1.OleObject.Document.script.currIDS
     备注：变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量currIDS不存在。

2.执行网页中的函数
     tmpf := 'currID = getNextID(currID)'+#13#10;
     Form1.WebBrowser1.OleObject.Document.parentWindow.execScript(tmpf,'Javascript');
     调用函数的方法就是execScript接口,同样,如果函数不存在,或者运行错误也会触发脚本错误异常

3.设置网页背景
背景图片 WebBrowser1.OleObject.Document.body.background := 'http://seelearn.com/bg.gif' ;
背景颜色 WebBrowser1.OleObject.Document.body.bgcolor := '#eeeeee'

4.调用网页中已知对象
src := WebBrowser1.OleObject.document.getElementByIdx_x('img1').src
该方法其实就是javascript中的 getElementByID

5.获取页面中所有的frame
     使用DHTML。
     frames:=wb.OleObject.document.frames;
     for i:=0 to frames.length do
     memo1.lines.Add(frames[i].document.body.innerHTML);

6.BorderStyle=bsNone后Webbrowser会被重新初始化
这是一个让人很意外的一个问题,Delphi在窗口控件的控制方面做得非常好,很少出现这种BUG
根据分析,出现这个现象有很多情况改变FormStyle也会出现 ; 如果 webbrowser.parent 由panel1 改到panel2.也会导致webbrowser重新初始化。

7.直接向Webbrowser中写入html代码,不需要Navigate到实际存在的文件
     var
     StrStream:TStringStream;
     SetNoteStr: string;
     begin
   SetNoteStr :='<body bgcolor=222222 align=center><br><p align=center><font size=+2 color=#FFFFFF>点点博客 http://seelearn.com</font></p>';
   SetNoteStr :=SetNoteStr+'<br><p align=center><font size=+2 color=#FFFFFF>点击左边按钮可查看对应图片</font></p>';
   StrStream:=TStringStream.Create(SetNoteStr);
   WebBrowser1.Navigate('about:blank');
   try
     StrStream.Position:=0;
     ( WebBrowser1.Document as IPersistStreamInit).Load(TStreamadapter.Create(StrStream));
   finally
     StrStream.Free;
   end;

8.前进,后退,刷新
     self.WebBrowser1.GoBack
     self.WebBrowser1.GoForward
     self.WebBrowser1.Refresh

9.捕捉NewWindow2事件,即新开窗口事件
     procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
   var ppDisp: IDispatch; var Cancel: WordBool);
var
   NewWindow: TForm2;
begin
   //exit;
   NewWindow:= TForm2.Create(nil);
   NewWindow.Show;
   ppDisp:= NewWindow.Webbrowser1.DefaultDispatch;
end;
   值得一题的是该方法不能获得新开窗口的URL,退一步的方法只能是等到在新的Webbrowser中触发BeforeNavigate2事件判断了

10.网页中存在iframe时判断页面是否下载结束
       procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
   const pDisp: IDispatch; var URL: OleVariant);
begin
     if WebBrowser1.Application = pDisp then showmessage('页面已全部下载完毕')
end;

备注：每个iframe下载完毕都会触发DocumentComplete事件,所以一个页面在真正下载完毕前可能被触发多次

Delphi WebBrowser与网页交互相关推荐

delphi FMX.WebBrowser与H5交互JavaScript
目录 delphi FMX.WebBrowser与H5交互JavaScript 本文讨论在FMX下,delphi webbrowser与js交互: 一.原理 1.1.前提条件(主要是针对MSWindo ...
delphi webbrowser 显示 html,delphi webbrowser
delphi 怎么判断webbrowser打开网页成功? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Class ...
Delphi WebBrowser控件的使用（大全 good）
Delphi WebBrowser控件的使用 WebBrowser控件属性: 1.Application 如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(ID ...
以太坊智能合约开发第七篇：智能合约与网页交互
原文发表于:以太坊智能合约开发第七篇:智能合约与网页交互上一篇中,我们通过truffle开发框架快速编译部署了合约.本篇,我们将来介绍网页如何与智能合约进行交互. 编写网页首先我们需要编写一个网页 ...
pyqt5讲解9：时间模块timer和网页交互
time 如果要在应用程序中周期性地进行某项操作,则需要用到QTimer定时器,QTimer类提供了重复的和单次的定时器.要使用定时器,需要先创建一个QTimer实例,将其timeout信号连接到相应 ...
用webBrowser打开网页出现脚本错误怎么办
当IE浏览器遇到脚本错误时,在浏览器左下角会出现一个黄色图标,点击可以查看脚本错误的详细信息,并不会有弹出的错误信息框.我们在用webBrowser编写的程序打开网页,遇到脚本有问题是,会弹出一个错误 ...
C# 网络编程之webBrowser获取网页url和下载网页中图片
该文章主要是通过C#网络编程的webBrowser获取网页中的url并简单的尝试下载网页中的图片,主要是为以后网络开发的基础学习.其中主要的通过应用程序结合网页知识.正则表达式实现浏览.获取url.下 ...
delphi php post,delphi idhttp post 网页,该如何解决
当前位置:我的异常网» Delphi » delphi idhttp post 网页,该如何解决 delphi idhttp post 网页,该如何解决 www.myexceptions.net 网 ...
微信小程序与内嵌网页交互实现支付功能
上个月,小程序开放了新功能,支持内嵌网页,所以我就开始了小程序内嵌网页之路,之前我只是个小安卓. 内嵌网页中可使用JSSDK 1.3.0提供的接口,可坑就来了,居然不支持支付接口的调用,经过一番研究, ...
python 使用mechanize进行web网页交互
1. 有状态的网页所谓有状态的网页就是区别于传统html的动态交互式页面,它与用户进行交互显示不同的结果.下面我以新浪邮箱的登陆界面为例: 上面有一个用户登陆的表单,当我们输入正确地用户名密码之后, ...

Delphi WebBrowser与网页交互

Delphi WebBrowser与网页交互相关推荐

最新文章

热门文章