Delphi TWebBrowser（1）

最新推荐文章于 2022-06-27 16:14:23 发布
最新推荐文章于 2022-06-27 16:14:23 发布
阅读量1.5k 收藏 1
点赞数
分类专栏： 网络通信/分布式开发 文章标签： delphi TWebBrowser
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lailai186/article/details/8822029
版权

1.WebBrowser 操作记要

WebBrowser1.GoHome;  //到浏览器默认主页                                 WebBrowser1.Refresh;  //刷新WebBrowser1.GoBack;  //后退                                                        WebBrowser1.GoForward;  //前进WebBrowser1.Navigate('...');  //打开指定页面                 WebBrowser1.Navigate('about:blank');  //打开空页面

2.//打开空页面, 并写入...
WebBrowser1.Navigate('about:<head><title>标题</title><body>页面内容</body>');
 
3. //判断网页及内部框架网页是否全部下载完毕
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if WebBrowser1.Application = pDisp then
  begin
    Text := '网页下载完毕！';
  end;
end;
 
4. //改变背景色或背景图片:
WebBrowser1.OleObject.document.body.bgcolor := '#FF0000';
WebBrowser1.OleObject.document.body.background := '...图片地址';
 
5. //获取网页源代码
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;
 
6. //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;
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;
end;
 
7 //新页面写入
begin  WebBrowser1.Navigate('about:blank');  WebBrowser1.OleObject.Document.Writeln('ok');end;
 
8. //禁止提示脚步错误
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;
 
9. 从 TWebBrowser 获取 DOM 中的 window 对象
 
10.获取 window 对象的时机
{当页面打开完毕时获取 window 对象}
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;  const pDisp: IDispatch; var URL: OleVariant);
begin
  if pDisp = (ASender as TWebBrowser).Application then
  begin    window := ((ASender as TWebBrowser).Document as IHTMLDocument2).parentWindow;
  end;
end;
 
10. 使用 TWebBrowser 编辑网页
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(WebBrowser1.OleObject.document.body.innerText);
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin  {这里是让整个页面可编辑, 也可以单独编辑某个元素}  WebBrowser1.OleObject.document.body.contentEditable := CheckBox1.Checked;  {有些浏览器需要这样设置: document.designMode = "On";}
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Align := alTop;
  CheckBox1.Anchors := [akTop, akRight];
  Button1.Anchors := CheckBox1.Anchors;
  CheckBox1.Caption := '编辑';    Button1.Caption := '显示网页文本'; 
 WebBrowser1.Align := alClient;  WebBrowser1.Navigate('http://www.cnblogs.com/del/archive/2009/04/16/1437417.html');
end;
 
11. 如何放缩 TWebBrowser 中的页面
const  OLECMDID_OPTICAL_ZOOM = 63;
procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://del.cnblogs.com');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var  ZoomIn: OleVariant;
begin
  ZoomIn := 150;
 WebBrowser1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, ZoomIn);
end;
 
 
 
 
 
 
 
 
 
落幕年代
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
delphi 中使用TWebBrowser控件
06-01
1.获得网页中变量值 2.执行网页中的函数 3.设置网页背景 4.调用网页中已知对象
delphi 从TWebBrowser WebBrowser得到全部html源码
12-06
delphi 从TWebBrowser WebBrowser得到全部html源码 收藏 网上查询出很多方法，归结起来有两种
[delphi]应用程序中包含的WebBrowser Control控件时，默认WebBrowser使用的是IE7，这是个很重要的知识点。
狼缘的博客
08-18 1125
在做答题自动填表的程序时，发现在webbrowser浏览时提交会报js错误，而在本机ie中提交则没有问题 最后发现是这个问题导致的结果。 按照网上的方法，强制指定webbrowser 使用本机上安装的ie版本内核问题得到解决。 可参考   https://www.cnblogs.com/doscanner/p/5611434.html     https://www.cnblogs...
Delphi 浏览器WebBrowser
weixin_33810302的博客
08-19 206
WebBrowser1.Navigate(URL); while WebBrowser1.busy do Application.ProcessMessages; while WebBrowser1.ReadyState &lt;&gt; READYSTATE_COMPLETE do Application.ProcessMessages; whil...
Delphi 设置系统默认浏览器为IE
yueyun889的专栏
08-09 869
设置默认浏览器的功能其实还是通过修改注册表项来实现，本文的例子中使用了完整的Delphi源码来实现该功能，且不需要重启机器。 百度各种资料会发现，基本上给出的答案都是修改HKEY_CLASSES_ROOT\HTTP\Shell\open\command就可以，可是经过我的多次验证——呵呵，并不行。 于是又重新搜索了各种资料，终于让我找到了： procedure TForm1.SetDefa...
delphi twebbrowser小例子。
10-24
1. 在Delphi的Form设计界面中，从“ActiveX”类别下找到TWebBrowser组件，将其拖放到表单上。 2. 设置属性：TWebBrowser的主要属性包括`URL`（加载的网页地址）、`Silent`（是否静默加载页面，防止弹出对话框）和`...
delphi的TWebBrowser控件，实际上是IE，版本比较低，经济打不开网页，可以通过修改注册表的方法进行修改成IE11
03-18
在Delphi编程环境中，TWebBrowser控件是一个非常实用的组件，它允许开发者在应用程序中嵌入一个基于Internet Explorer（IE）的Web浏览器。然而，由于TWebBrowser控件是基于IE内核的，它的功能和性能受限于系统中安装...
DELPHI TWebBrowser控件使用
12-24
### DELPHI TWebBrowser控件使用详解 #### 一、引言 在Delphi开发环境中，`TWebBrowser`控件是一个非常重要的组件，它允许开发者在其应用程序中嵌入Web浏览功能。本文将深入探讨如何在Delphi中有效地使用`...
delphi动态 WebBrowser 释放问题.txt
02-13
delphi动态 WebBrowser 释放问题.txt var web:TwebBrowser; procedure TForm1.Button1Click(Sender: TObject); begin web:=TWebBrowser.Create(Self); web.ParentWindow:=Self.Handle; web.SetBounds(100,100,...
delphi Twebbrowser IE版本选择
zhuangd的专栏
06-27 515
资料来源网上，如有异议请联系删除。经过验证和修改。twebbrowser如果不设置，默认使用系统默认核心，一般是IE8。由于IE8版本较低，在特殊情况下，浏览网页会发生异常错误，不兼容等。需要修改调研的默认IE版本，默认使用系统的最高IE版本{增加Registry引用} function GetIEVersionStr: string; var Reg:TRegistry; begin Result := ''; Reg := TRegistry.Create; try
Delphi WebBrowser 将一段HTML文字显示在浏览器中.rar
07-10
Delphi WebBrowser 将一段HTML文字显示在网页浏览器中，实际是创建了一个HTML格式内容并显示出来，主要使用Delphi中内置的WebBrowser方法来实现： 　　WebBrowser1.Navigate('about:blank'); 　　while(tag=0) do Application.ProcessMessages; 　　vv := VarArrayCreate([0, 0], varVariant); 　　HTMLDocument := WebBrowser1.Document as IHTMLDocument2; 　　HTMLDocument.Write(PSafeArray(TVarData(vv).VArray)); 　　HTMLDocument.Close;
delphi WebBrowser1 delphi 开发浏览器
yahoha1的专栏
08-29 3811
delphi WebBrowser1 delphi 开发浏览器字号：T|T Delphi3开始有了TWebBrowser构件，不过那时是以ActiveX控件的形式出现twebbrows activex delphi的，而且需要自己引入，在其后的4.0和5.0中，它就在需要引入自己封装好shdocvw.dll之后作为Internet构件组之一出现在构件面板上了。internet shdocvw 之一常常听到有人骂Delphi的帮助做得极差，这次的TWebBrowser又是Microsoft的东tweb
delphi WebBrowser的使用方法详解
caidaqin001的专栏
06-24 1366
网页代码：<SELECT id=fy onchange=TouchRefresh(1) name=fy> <OPTION selected value=15>每頁顯示15筆</OPTION> <OPTION value=30>每頁顯示30筆</OPTION> <OPTION value=60>每頁顯示60筆</OPTION></SELECT> 1.webbrowser执行网页中的JS函数 如果要执行To.
Delphi WebBrowser与网页交互
caonumber的专栏
11-03 9612
WebBrowser1.GoHome;  //到浏览器默认主页 WebBrowser1.Refresh;  //刷新 WebBrowser1.GoBack;  //后退 WebBrowser1.GoForward;  //前进 WebBrowser1.Navigate('...');  //打开指定页面 WebBrowser1.Navigate('about:blan
delphi WebBrowser的使用方法详解（五）-难点释疑
weixin_33935777的博客
11-13 601
网页代码：<SELECT id=fy onchange=TouchRefresh(1) name=fy> <OPTION selected value=15>每頁顯示15筆</OPTION> <OPTION value=30>每頁顯示30筆</OPTION> <OPTION value=60&...
Delphi WebBrowser1.Navigate Post 提交数据
winderain的专栏
07-19 3267
procedure TForm1.Button1Click(Sender: TObject);  var postData:OleVariant; vheader:OleVariant; vflags:OleVariant; vtargetFrame:OleVariant; str :String; i : integer; begin  str := 'message='  
delphi html解析
最新发布
08-01
TWebBrowser组件是Delphi中用于显示和操作Web页面的组件。它使用底层的Internet Explorer浏览器引擎来解析和渲染HTML页面。 要使用TWebBrowser组件进行HTML解析，首先需要在Delphi中创建一个应用程序，并在窗体上...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值