自定义浏览器的Request

使用IE OLE对象或者WebBrowser控件，我们可以自定义HTTP包的Request信息！方法如下：

uses ComObj ;

procedure TForm1 . FormCreate ( Sender : TObject );

var

 Flags , Headers , TargetFrameName , PostData : OLEVariant ;

 Url , Ref : string ;

 IEApp : OLEVariant ;

begin

 Flags := '1' ;

 TargetFrameName := '' ;

 PostData := '' ;

 Url := 'about:blank' ;

 Ref := 'http://Kingron.delphibbs.com/ ' ;

  // u cannot navigate to the url above without this referer

 Headers := 'Referer: ' + Ref + #10 + #13 ;

 WebBrowser1 . Navigate ( Url , Flags , TargetFrameName , PostData , Headers );

end ;