Delphi 设置代理服务
2012-01-06 08:19
387 查看
本文说明了用delphi设置IE浏览器的代理服务。
参数说明:
Proxy:代理服务器 IP 地址;
Port:端口号;
ByPass:对所有的协议均使用相同的代理服务器;
bEnabled:是否使用代理服务器(代理服务器是否生效)、
具体的调用:
参数说明:
Proxy:代理服务器 IP 地址;
Port:端口号;
ByPass:对所有的协议均使用相同的代理服务器;
bEnabled:是否使用代理服务器(代理服务器是否生效)、
// uses Wininet, registry; function ChangeProxy(const Proxy, Port,ByPass: string; const bEnabled: boolean = True): boolean; var reg: Tregistry; info: INTERNET_PROXY_INFO; Fproxy: string; begin Result := False; FProxy :=Format('%s:%s',[Proxy,Port]); reg :=Tregistry.Create; try reg.RootKey :=HKEY_CURRENT_USER; if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True) then begin reg.Writestring('ProxyServer', Fproxy); reg.WriteInteger('ProxyEnable', integer(bEnabled)); info.dwAccessType :=INTERNET_OPEN_TYPE_PROXY; info.lpszProxy :=pchar(proxy); info.lpszProxyBypass :=pchar(ByPass); InternetSetOption(nil, INTERNET_OPTION_PROXY, @info, SizeOf(Info)); InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0); Result:=True; end finally reg.CloseKey; reg.free; end; end;
具体的调用:
设置: procedure TForm1.Button1Click(Sender: TObject); begin ChangeProxy('202.99.29.27','80','1',true) end; 取消: procedure TForm1.Button2Click(Sender: TObject); begin ChangeProxy('202.99.29.27','80','1',false) end;
相关文章推荐
- android上本机httpd代理服务设置
- Ubuntu14.04代理服务squid3的安装和设置并配置android studio代理
- 如何使用Red Had Linux8.0设置双网卡代理服务
- webservice如何设置代理服务
- 设置代理调用WMTS服务
- 通过三种方法为apt-get设置http代理服务
- OSB (Oracle Service Bus)上代理服务的安全设置(一)
- idhttp 在delphi7下如何设置代理IP和Port
- webpack设置服务代理
- 通过三种方法为apt-get设置http代理服务
- OSB (Oracle Service Bus)上代理服务的安全设置(一)
- 调用web服务的代理设置问题
- idhttp 在delphi7下如何设置代理IP和Port
- OSB (Oracle Service Bus)上代理服务的安全设置(一)
- delphi调用webservice代理设置
- 设置DHCP中继代理,帮助广播跨越不同VLAN。给不同VLAN下的客户机提供DHCP服务;
- 代理服务介绍和设置
- 通过三种方法为apt-get设置http代理服务
- Windows7和Ubuntu16.04通过Samba服务共享的设置方法
- linux设置开机服务自动启动