delphi设置代理服务器

最新推荐文章于 2016-05-05 16:05:00 发布

mingday

最新推荐文章于 2016-05-05 16:05:00 发布

阅读量1.3k

点赞数

分类专栏：草根程序员文章标签： delphi internet 服务器 integer

本文链接：https://blog.csdn.net/mingday/article/details/3614476

版权

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

摘要由CSDN通过智能技术生成

 
 //这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