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 memo1 数字列设定取值范围

Delphi 安卓开发 ioutils文件说明

Delphi之数组

Delphi 变体数组

Delphi整理八（对话框）

Delphi 判断 文本文件 utf-8 bom头

windows关机函数exitwindowsex使用大全（适用windows所有操作平台）

Delphi读ios的设备id

Delphi 简单的截图代码

Delphi循环移位操作

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

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