Delphi 设置WebBrowser 代理服务器 与 UserAgent
2015-11-12 17:17
621 查看
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;
标签: Delphi
好文要顶 关注我 收藏该文
欧阳蓝缺
关注 - 0
粉丝 - 4
+加关注
1
0
(请您对文章做出评价)
« 上一篇:iOS界面上方的纸飞飞代码(撕掉纸张留下的头)
» 下一篇:[转]iOS应用性能调优的25个建议和技巧
posted @ 2013-08-03 14:19 欧阳蓝缺 阅读(1456)
评论(0) 编辑 收藏
相关文章推荐
- 用Delphi开发视频聊天软件
- delphi 三层架构简单例
- Delphi的三层开发初学经验
- Delphi操作excel说明
- Delphi基本之pascal语法(第五章.函数与过程程序设计)
- Delphi基本之pascal语法(第四章.循环结构程序设计)
- Delphi基本之pascal语法(第三章.选择结构程序设计)
- Delphi基本之pascal语法(第二章.顺序结构程序设计)
- Delphi基本之pascal语法(第一章.pascal介绍)
- 苹果开发证书相关BLOG与Delphi IOS环境安装(超详细)
- delphi2010 域名转换IP
- How do I use SOCKS proxy in delphi?
- Delphi.NET
- Delphi:InputQuery和InputBox的区别
- Delphi怎么判断一个文件存在与否,文件还是文件夹?
- 用Delphi制作BPL包
- 为Delphi程序增加UAC功能
- Delphi PDF
- Delphi文件操作函数
- Delphi中滚动文字的应用