Delphi WebBrowser设置自己定义User-Agent

最新推荐文章于 2022-01-29 11:59:21 发布

tanqth

最新推荐文章于 2022-01-29 11:59:21 发布

阅读量1.7w

点赞数

CC 4.0 BY-SA版权

文章标签：自定义User-Agent User-Agent WebBrowser Referer delphi

本文链接：https://blog.csdn.net/tanqth/article/details/107901910

前言

我们在浏览网页的时候HTTP协议头里会包括一项数据User-Agent，这个User-Agent会告诉网站服务器，我们是通过什么工具来访问服务的，其中包括操作系统、操作系统版本、浏览器类型及版本等诸多信息。
修改User-Agent信息会是很多爬虫工具所必须的内容。我们自己有时候做项目需要使用到WebBrowser控件，同时不希望所访问的服务器知道某些不希望透露的信息，或是想要对服务端发送一些必须的信息时，也就需要对WebBrowser的User-Agent信息作出一些修改。

这里，简单介绍两种修改User-Agent信息的方式：

使用WebBrowser打开URL时

WebBrowser的Navigate方法，可让我们打开指定的URL，让网页显示到浏览器中，通常我们只是在方法里填写URL地址就可以的。如：WebBrowser1.Navigate(‘http://www.XXXXXX.com’);
实际Navigate方法有多种重载方式：

    procedure Navigate(const URL: WideString); overload;
    procedure Navigate(const URL: WideString; const Flags: OleVariant); overload;
    procedure Navigate(const URL: WideString; const Flags: OleVariant; 
                       const TargetFrameName: OleVariant); overload;
    procedure Navigate(const URL: WideString; const Flags: OleVariant; 
                       const TargetFrameName: OleVariant; const PostD