使用 TWebbrowser 控件的时候如果设置了referer的值,Web服务器就可以更好的统计http请求的地址。这在广告系统中经常用到。
Delphi中是这样设置的
procedure TForm1.Button1Click(Sender: TObject);
var
Flags, Headers, TargetFrameName, PostData: OLEVariant;
Url, Ref: string;
IEApp: OLEVariant;
begin
Flags := '1';
TargetFrameName := '';
PostData := '';
Url := 'http://www.dach.de/weiterempfehlen.php';
Ref := 'http://www.dach.de/';
Headers := 'Referer: ' + Ref + #10 + #13;
Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
end;