zoukankan      html  css  js  c++  java
  • Delphi 设置WebBrowser 代理服务器 与 UserAgent

    uses UrlMon, WinInet;
    
    {-------------------------------------------------------------------------------
      过程名:    SetProcessProxy
      作者:      kelei
      日期:      2013.08.03
      参数:      aProxyServer代理服务器; aProxyPort代理服务器端口
      返回值:    True设置成功
      SetProcessProxy('127.0.0.1', 80);
    -------------------------------------------------------------------------------}
    function SetProcessProxy(const aProxyServer: string; const aProxyPort: Integer): Boolean;
    var
      vProxyInfo: TInternetProxyInfo;
    begin
      vProxyInfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
      vProxyInfo.lpszProxy := PChar(Format('http=%s:%d', [aProxyServer, aProxyPort]));
      vProxyInfo.lpszProxyBypass := PChar('');
      Result := UrlMkSetSessionOption(INTERNET_OPTION_PROXY, @vProxyInfo, SizeOf(vProxyInfo, 0) = S_OK;
    end;
    
    {-------------------------------------------------------------------------------
      过程名:    SetProcessUserAgent
      作者:      kelei
      日期:      2013.08.03
      参数:      aUserAgent HTTP请求头UserAgent内容
      返回值:    True设置成功
      SetProcessUserAgent('Mozilla/5.0 (iPhone; CPU iPhone OS 5_0 like Mac OS X) AppleWebKit/534.46 (KHTML, like Gecko) Version/5.1 Mobile/9A334 Safari/7534.48.3')
    -------------------------------------------------------------------------------}
    function SetProcessUserAgent(const aUserAgent: string): Boolean;
    begin
      Result := UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, PChar(aUserAgent), Length(aUserAgent), 0) = S_OK;
    end;
  • 相关阅读:
    VS2010 创建 windows service 程序
    应用程序 调用 webservice
    管理随笔-组织无全面系统目标和规划
    笔记1——自写综保模块非语言实现方式
    测试模型V模型和W模型
    常用研发模型
    测试方法分类
    初识测试
    IntelliJ IDEA使用快捷键生成各种for循环。增强for循环等等
    java之jdbc数据库连接
  • 原文地址:https://www.cnblogs.com/klaus/p/3234588.html
Copyright © 2011-2022 走看看