delphi WebBrowser的使用方法详解3

最新推荐文章于 2024-10-28 09:53:44 发布

yygyyygy1233

最新推荐文章于 2024-10-28 09:53:44 发布

阅读量616

点赞数

分类专栏：笔记

本文链接：https://blog.youkuaiyun.com/yygyyygy1233/article/details/105463692

版权

WebBrowser 操作记要

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

WebBrowser1.Navigate(‘about:标题页面内容’);
//读取网页脚本中的变量:

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;
假如网页中有这样的语句:
//调用网页脚本中的函数:

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.OleObj