delphi webbrowser1 能否设置来路
webbrowser1访问地址 是否可用设置来路?

解决方案 »

  1.   


    uses Variants;  var   
          Flags,   Headers,   TargetFrameName,   PostData:   OLEVariant;   
          Url,   Ref:   string;   
          IEApp:   OLEVariant;   
      begin   
          Flags   :=   '1';   
          TargetFrameName   :=   '';   
          PostData   :=   '';   
          Url   :=   'c:/BBS_POST2.html';   //我本地的表单网页文件   
          Ref   :=   'http://XXX.XXXX.com/cachedir/1052/37/98/3798915_5.htm';//这里设置来路   
          Headers   :=   'Referer:   '   +   Ref   +   #10   +   #13;   
          Webbrowser1.Navigate(Url,   Flags,   TargetFrameName,   PostData,   Headers);//应该是带有   referer的   载入了本地将要提交的表单网页...