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编程如何判断图片文件的真实类型？

Delphi2007-Delphi2010 程序不出现在任务栏的方法

Delphi 获取公网ip地址

Delphi 获取外部程序句柄与发送消息

Delphi2010 图片格式转换bmp, png,jpeg, gif, tiff , wmphoto

Delphi 开关显示器操作

Delphi 根据数据库结构生成treeview

Delphi区分汉字和字母的函数

Delphi xmldocument控件之xml

Delphi 连接dbf数据

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

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