Delphi动态的修改WebBrowser加载页面的内容

最新推荐文章于 2025-03-26 22:25:45 发布
转载 最新推荐文章于 2025-03-26 22:25:45 发布 · 1.8k 阅读 · 0
文章标签：

#webbrowser #delphi #2010

本文介绍如何使用WebBrowser控件结合IHTMLTxtRange接口修改已加载页面的内容。通过示例代码展示了获取和更改页面源代码的方法。

核心提示：使用WebBrowser加载页面时，有些时候，为了特殊的目的，要修改加载后的页面为了实现这个目的，必须使用IHTMLTxtRange接口...

procedure DoChangePageCode(Doc: IDispatch);
 var
   tr: IHTMLTxtRange;
   s: string;
 begin
   tr := ((Doc as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
   s := tr.htmlText; // 取出页面的代码
   // 此处就能随意改了
   tr.pasteHTML(s); // 改完后的代码写回去
 end;

 

还有内容使用 TWebBrowser 编辑网页： http://wystec.blog.163.com/blog/static/29614447201002711441148/

Delphi WebBrowser控件
zxm8513优快云博客
11-18 1491
WebBrowser控件属性： 1、Application 如果该对象有效，则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch)。如果在宿主对象中自动化对象无效，程序将返回WebBrowser控件的自动化对象 2、Parent 返回WebBrowser控件的父自动化对象，通常是一个容器，例如是宿主或IE窗口 3、Containe 返回WebBrowser控件容器的自动化对象。通常该值与Parent属性返回的值相同 4、Docum...
DELPHI7 线程自动刷新
10-17
线程的自动刷新，内带详细注释，每一行都有注释，方便新手看代码
webbrowser设置html内容,delphi 修改WebBrowser的内容
weixin_42691065的博客
06-10 509
很多方法都可以修改WebBrowser的内容。比如说修改innerHTML、以流方式修改。以流方式就不说了，网上很多代码。直接修改innerHTML的方法很简单，但是有个缺点，修改后没保存，最近在做一个小东西，需要在WebBrowser编辑模式和浏览模式中切换，直接修改innerHTML的问题是，切换之后修改的数据丢失了。另一种修改方法，利用IHTMLDocument2的write方法写入：pro...
用Delphi动态改变页面内容
PuCooV的天空
06-18 1049
使用TWebBrowser组件可以直接显示网页的内容， 因此在用delphi开发程序时，我们可以使用TWebBrowser来展示一些数据，获得更美观专业的效果，提高应用程序的挡次。    通常的做法时，做一些静态的页面，TWebBrowser装载这些页面后，再通过delphi填写数据。故需要用到的技术就是如何通过delphi读取或者控制TWebBrowser中内容。其实TWebBrowser就是一
Delphi下WebBrowser控件网页加载时实现进度显示
05-15 681
网速较慢或者网页内容较多时，经常加载好半天，在Delphi下用Webbrowser 给人的感觉一片空白。所以需要用进度条来表示以下加载进度，用Delphi中的progressBar实现起来就很简单。 在webBrowser的ProgressChange事件中设置进度条显示即可，代码如下 procedure TFormMain.wb1ProgressChange(ASender: TObje...
为什么你的Delphi应用卡顿？双缓冲+异步刷新性能提升300%.pdf
最新发布
07-17
文档支持目录章节跳转同时还支持阅读器左侧大纲显示和章节快速定位，文档内容完整、条理清晰。文档内所有文字、图表、函数、目录等元素均显示正常，无任何异常情况，敬请您放心查阅与使用。文档仅供学习参考，请勿用作商业用途。 如果你正在寻找一种高效、强大的编程语言来开发跨平台应用，那么Delphi绝对值得考虑！它拥有直观的可视化开发环境，让代码编写变得轻松简单。凭借着快速的编译速度和卓越的性能优化，Delphi能够帮助开发者迅速构建出高质量的应用程序。无论是Windows、macOS、iOS还是Android平台，Delphi都能完美支持，真正实现一次编写，多平台部署。选择Delphi，开启高效开发之旅！
delphi7 多线程测试（40个线程）
12-23
delphi开启40个线程，各不影响，可暂停，结束，但40个线程都运行完的时间明显比一个线程慢，不知为什么
fff.rar_WebBrowser delphi_delphi webbrowser_delphi 界面_webbrowser
09-24
- 设置URL：通过修改WebBrowser的`Navigate`方法或`URL`属性，可以指定要加载的网页地址。 - 监听导航事件：例如`OnBeforeNavigate`和`OnDocumentComplete`，可以捕获导航过程中的状态变化。 2. **交互与控制** ...
Delphi-EmbeddedWB-master_delphiwebbrowser_
10-01
3. HTML注入：利用TEmbeddedWB的Document属性，可以访问到当前页面的HTML文档对象模型（DOM），进而修改页面内容。 4. 错误处理：通过OnStatusTextChange和OnError事件，可以捕获和处理加载过程中可能出现的错误...
Delphi禁止WebBrowser弹出IE的对话框
07-23
当WebBrowser加载的页面中执行了JavaScript代码，比如`alert('Message')`，IE浏览器会显示一个带有指定消息的警告对话框，等待用户点击确定后继续执行后续代码。在大多数情况下，这是与用户交互的一种方式，但在自动...
使用Delphi的WebBrowser控件实现网页内容编辑功能
Delphi中的WebBrowser组件可以通过保存当前页面的方式来实现，但需要注意的是，保存后的文件格式可能与原网页有所不同，需要额外的转换处理。 8. 示例代码和项目结构 Delphi中一个使用WebBrowser实现网页编辑的...
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,100,100); web.OnDocumentComplete:=WebBrowser1DocumentComplete; web.Navigate('http://www.3yeah.com/'); end; procedure TForm1.Button2Click(Sender: TObject); begin // web.Destroy; web.Free ; end; procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin if(web.LocationURL='http://www.qq.com/') then begin // web.OnDocumentComplete:=nil; web.Free; end; end;
Delphi语言的异步编程
2501_91290604的博客
03-26 556
在现代软件开发中，异步编程成为了一个重要的编程范式。随着用户对应用程序响应速度和流畅性的要求不断提高，异步操作在网络通信、文件处理等方面得到了广泛应用。Delphi作为一种高效的编程语言，提供了多种机制来支持异步编程。本文将对Delphi中的异步编程进行深入探讨，包括其基本概念、实现方式、应用场景以及最佳实践。
Delphi - WebBrowser载入自定义HTML内容并显示
Rshh's Blog.
05-09 6300
use Winapi.ActiveX; //调用IPersistStreamInit类 procedure TForm1.Button2Click(Sender: TObject); var PostList: TStringList; Response, StrStream: TStringStream; ResultString: string;
webbrowser从内存中加载并显示页面内容
weixin_34268310的博客
01-18 531
本文需要了解“异步可插协议”（Asynchronous Pluggable Protocols(APPs)），可参考http://www.cnblogs.com/volnet/archive/2008/03/28/About_Asynchronous_Pluggable_Protocols.html下面提供的工程使用wtl，用vs2010编译。代码实现了对mt的解析、显示，但...
Delphi使用THTTPClient实现异步下载
weixin_44002397的博客
07-15 1159
Delphi使用THTTPClient实现异步下载
掌握Delphi7中的Socket异步通信技术
weixin_42583683的博客
11-11 980
本文还有配套的精品资源，点击获取 简介：Socket通信是网络编程中的基础，特别在Delphi7环境下，通过TClientSocket和TServerSocket组件，开发者可以实现高效的网络通信。本文深入探讨了在Delphi7中实现Socket异步通信的机制，包括关键事件处理和数据传输方法。文章通过分析提供的服务器和客户端源码，指导初学者了解和实践Socket异步通信，从...
delphi 动态建立WebBrower
weixin_30376453的博客
08-01 265
//Delphi动态建立WebBrowerunit Main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值