本文整理自网络，侵删。
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 windows xp下屏蔽ctrl_alt_del键的方法
Delphi中如何捕获mediaplayer播放的视频中的每一帧 ?
Delphi fmx 从app程序直接跳转到支付宝付款转帐页面
Delphi firedac在后台线程中从mssql server检索记录的方法
更多相关阅读请进入《Delphi》频道 >>
