Delphi WebBrowser浏览器的制作方法_爱在丽江leslex的博客

相关文章推荐

WebBrowser1.GoBack; //后退 WebBrowser1.GoForward; //前进 WebBrowser1.Navigate('...'); //打开指定页面 WebBrowser1.Navigate('about:blank'); //打开空页面 -------------------------------------------------------------------------------- //打开空页面, 并写入... WebBrowser1.Navigate('about:标题页面内容'); -------------------------------------------------------------------------------- //读取网页脚本中的变量: procedure TForm1.Button1Click(Sender: TObject); 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

假如网页中有这样的语句:

-------------------------------------------------------------------------------- //调用网页脚本中的函数: procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.OleObject.document.parentWindow.MB(); //HTML-Js //如需指定脚本语言, 需要: WebBrowser1.OleObject.document.parentWindow.execScript('MB()','JavaScript'); //HTML-Js

假如有这样的脚本:

-------------------------------------------------------------------------------- //判断网页及内部框架网页是否全部下载完毕 procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin if WebBrowser1.Application = pDisp then begin Text := '网页下载完毕！'; -------------------------------------------------------------------------------- //改变背景色或背景图片: WebBrowser1.OleObject.document.body.bgcolor := '#FF0000'; WebBrowser1.OleObject.document.body.background := '...图片地址'; -------------------------------------------------------------------------------- //操作有 ID 标签的对象: s: string; begin s := WebBrowser1.OleObject.document.getElementByID('span1').innerText; ShowMessage(s); //这是 span1 标签中的内容 //或者: s := WebBrowser1.OleObject.document.parentWindow.span1.innerText; ShowMessage(s); //这是 span1 标签中的内容 //隐藏它: WebBrowser1.OleObject.document.parentWindow.span1.style.display := 'none';

假如网页中有这样的内容:这是 span1 标签中的内容

//提取网页所有链接地址 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin ListBox1.Clear; for i :=0to WebBrowser1.OleObject.document.anchors.Length -1do ListBox1.Items.Add(WebBrowser1.OleObject.document.anchors.item(i).href); -------------------------------------------------------------------------------- //获取网页源代码 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内的所有代码 //获取网页全部源代码 uses ActiveX; 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; -------------------------------------------------------------------------------- //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); //替换右键菜单 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; -------------------------------------------------------------------------------- //新页面写入 begin WebBrowser1.Navigate('about:blank'); WebBrowser1.OleObject.Document.Writeln('ok'); //从流中写入: ms: TMemoryStream; begin ms := TMemoryStream.Create; Memo1.Lines.SaveToStream(ms); ms.Position := 0; (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)); ms.Free; //禁止提示脚步错误 procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin WebBrowser1.Silent := True; //禁止弹出窗口 procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin Cancel := True; -------------------------------------------------------------------------------- WebBrowser1.GoHome; //到浏览器默认主页WebBrowser1.Refresh; //刷新WebBrowser1.GoBack; //后退WebBrowser1.GoForward; //前进WebBrowser1.Navigate('

一款使用 Delphi 开发的网页 浏览器 ，源代码来自鱼C论坛，时间有限，做得很粗糙。关于几个 Web Browser 的控制按钮是自己靠着蹩脚英语加上词典猜的 - - 自己本地开phpstudy测试了一下应该是没猜错主页我没用gohome，手动设成了鱼C 但是不知道如何实现不能前进、后退、停止时，按钮的enableb属性为false 我的鼠标是6键的，没查到鼠标上面前进后退键的键值（应该是叫键值吧？），不能用鼠标上的前进后退按钮控制 浏览器 的前进后退。点击新标签浏览的时候会自动以IE打开，回去看看能不能实现多标签（不知道这个功能会不会涉及到 浏览器 的内核）下一步准备回去把界面美化一下，再把以上问题解决，再加一个POST登陆鱼C论坛的功能，搜索引擎和收藏夹。

Delphi 实例之一个简易的 浏览器 的实现 Delphi 7的 Web Browser 组件提供了很多不错的网页设计的功能，下面做一个简单的 浏览器 。组件很简单按照下面摆放就行了。这是运行后的效果 1 unit Unit1; 3 interface 5 uses 6 Windows, Mes...

开发环境 DELPHI 7+winxp 全部源码在Code目录中，其中用到“EmbeddedWB_D2005”，“PaintPanel”，“FavoritesTreeEx”，等几个控件。其中，在安装“EmbeddedWB_D2005”控件时，有两处不过，可暂时屏蔽掉就可以安装上了。总体代码大约三四万行，不能保证完美，定有需要完善之处，望取精华去糟粕。升级部分，在Outpub目录中的“updatelist.exe”为文本文件，里面为一些升级所需要的数据，用来放置到服务器端，再参考升级部分源码，即懂。在做 浏览器 的几年间，得到过许多朋友的支持，在此再一次的感谢。

在使用Python的 web browser 模块打开 浏览器 后，可以使用该模块中的方法关闭 浏览器 。以下是一个使用 web browser 模块打开 浏览器 ，并在5秒后关闭的示例代码： ```python import web browser import time # 打开 浏览器 web browser .open('https://www.example.com') # 等待5秒钟 time.sleep(5) # 关闭 浏览器 web browser .quit() 在这个示例中，我们首先使用` web browser .open()`方法打开了一个网页。然后，使用`time.sleep()`方法暂停了程序执行5秒钟，以便有足够的时间查看网页。最后，使用` web browser .quit()`方法关闭了 浏览器 。