在delphi中的“自定义”浏览器中修改requestHeaders

概述我的deplhi应用程序(IE)中集成了一个浏览器.我需要调用某个Web应用程序,我需要在标题中为来自我的应用程序浏览器的所有请求添加一个新变量,例如 jquery将x_robj添加到HTTP_X_REQUESTED_WITH参数.我怎么能这样做呢？代码样本会很棒.我是TWebBrowser的用户. 您可以使用OnBeforeNavigate2事件修改标头： procedure TForm1.We 我的deplhi应用程序(IE)中集成了一个浏览器.我需要调用某个Web应用程序,我需要在标题中为来自我的应用程序浏览器的所有请求添加一个新变量,例如 jquery将x_robj添加到http_X_REQUESTED_WITH参数.我怎么能这样做呢？代码样本会很棒.我是TWebbrowser的用户.解决方法 您可以使用OnBeforeNavigate2事件修改标头：

procedure TForm1.Webbrowser1BeforeNavigate2(Sender: TObject;  const pdisp: Idispatch; var URL,Flags,TargetFramename,PostData,headers: oleVariant; var Cancel: WordBool);var  Newheaders: oleVariant;begin  // do not allow frames or iframes to raise this event  if (pdisp as IUnkNown) = (Webbrowser1.Controlinterface as IUnkNown) then  begin    // avoID stack overflow: check if our custom header is already set    if Pos('Myheader',headers) <> 0 then Exit;    // cancel the current navigation    Cancel := True;    (pdisp as IWebbrowser2).Stop;    // modify headers with our custom header    Newheaders := headers + 'Myheader: Value'#13#10;    (pdisp as IWebbrowser2).Navigate2(URL,Newheaders);  end;end;

@H_419_22@ 总结

以上是内存溢出为你收集整理的在delphi中的“自定义”浏览器中修改requestHeaders全部内容，希望文章能够帮你解决在delphi中的“自定义”浏览器中修改requestHeaders所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。