Delphi 设置代理服务

页面导航:首页 > 软件编程 > Delphi > Delphi 设置代理服务

Delphi 设置代理服务

来源: 作者: 时间:2016-01-21 09:33 【

本文说明了用delphi设置IE浏览器的代理服务。 参数说明: Proxy:代理服务器 IP 地址; Port:端口号; ByPass:对所有的协议均使用相同的代理服务器; bEnabled:是否使用代理服务器(代理

本文说明了用delphi设置IE的代理服务。
  参数说明:
    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; 

具体的调用:
[delphi] 设置: 
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; 

摘自 #Define

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<