delphi 用WebBrowser给要访问的页面加上Referer(来路)参数

本文整理自网络，侵删。

 procedure TForm1.Button1Click(Sender: TObject);
var
Flags, Headers, TargetFrameName, PostData: OLEVariant;
Url, Ref: string;
IEApp: OLEVariant;
begin
Flags := '1';
TargetFrameName := '';
PostData := '';
Url := 'http://localhost/test/referer.asp'; //我本地的表单网页文件
Ref := 'http://XXX.XXXX.com/cachedir/1052/37/98/3798915_5.htm';//这里设置了 referer
Headers := 'Referer: ' + Ref ;
Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);//应该是带有 referer的 载入了本地将要提交的表单网页...
end;
 

相关阅读 >>

Delphi 如何在窗体标题栏添加按钮

Delphi获取本地全部盘符并存如combobox1

Delphi有关asqlite控件支持中文路径的解决方案

文件占坑对付云安全

Delphi 10.3 断点调试相关快捷键

Delphi idwhois1 简单的用法

Delphi 创建大窗口

Delphi实现文件的拖放功能

Delphi中复制线程

Delphi 10.3.1新的变量的声明方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 用WebBrowser给要访问的页面加上Referer(来路)参数