当前位置:编程学习 > Delphi >>

Delphi 设置代理服务

本文说明了用delphi设置IE浏览器的代理服务。
  参数说明:
    Proxy:代理服务器 IP 地址;
    Port:端口号;
    ByPass:对所有的协议均使用相同的代理服务器;
    bEnabled:是否使用代理服务器(代理服务器是否生效)、
 
[delphi] // 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

补充:软件开发 , Delphi ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,