delphi设置代理服务器

最新推荐文章于 2025-06-25 16:15:56 发布

原创最新推荐文章于 2025-06-25 16:15:56 发布 · 1.4k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #internet #服务器 #integer

草根程序员专栏收录该内容

8 篇文章

订阅专栏

在Delphi应用程序中，可以通过Registry和WinInet单位来设置代理服务器。在Button1Click事件处理程序中，读取txtIP和txtPort输入的代理服务器IP地址和端口，然后使用InternetSetOption函数更新代理设置，并在注册表中保存这些设置，以实现对Internet选项的更改。

//这2个一定要加上 
uses  Registry,WinInet;
//txtIP是代理服务器IP地址 
//txtPort是代理服务器Port 
procedure TForm1.Button1Click(Sender: TObject);
var sProxy: string;
    Pinfo: INTERNET_PROXY_INFO;
    reg: Tregistry;
begin
    self.Proxy:=txtIP.Text;
    self.port:=txtPort.Text;
    sProxy:=Format('%s:%s',[self.Proxy,self.port]);
    Pinfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
    Pinfo.lpszProxy := pchar(proxy);
    InternetSetOption(nil, INTERNET_OPTION_PROXY, nil, SizeOf(PInfo));
    InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
    reg:=Tregistry.Create;
    try
        reg.RootKey := HKEY_CURRENT_USER;
        if reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings', True) then
        begin
            reg.Writestring('ProxyServer', sProxy);
            reg.WriteInteger('ProxyEnable', integer(true));
        end
    finally
        reg.CloseKey;
        reg.free;
    end;
end;