Delphi 中创建您自己的代理服务器

Delphi 中创建您自己的代理服务器

我们中的许多人（包括我自己）都为代理许可证付费，既可以控制 LAN 连接，也可以做许多其他的事情，我不会在这里详细介绍。

在 Delphi 中，我们可以通过几个步骤和几行编程来创建我们自己的代理服务器。我们澄清，它是一个简单而基本的代理服务器，但是一旦您学会了如何去做，创建专业服务器的选项就很多，您甚至可以出售自己的许可证。

创建代理服务器

要开始创建我们自己的代理服务器，我们将创建一个 Windows VCL 项目，为此我们转到File -> New -> Windows VCL Application菜单

在 Delphi 中创建代理服务器

创建 Windows 的 VCL 项目后，您必须使用您想要的名称保存它，在我的项目名称中作为UMain.pas到单元，FMain到表单和ProxyServer.exe到项目。

Delphi 中的代理服务器

我们代理的主要组件是TIdHTTPProxyServer，我们将它从组件面板的Indy Servers部分拖到我们的表单中。

Delphi 中的代理服务器

接下来，我们在表单中放置 TLabel、一个TEdit和一个TButton，如下图所示：

Delphi 中的代理服务器

在的TLabel我们改变标题属性来港，在TEDIT我们改变NumbersOnly属性，以真，名称以edtPort和文本等于8808，最后以TButton的，我们将改变名称属性来btnStart和标题来启动。

为我们的代理服务器创建代码

在TButton 的OnClick事件中放置以下代码：

procedure TFMain.btnStartClick(Sender: TObject);

begin

  if IdHTTPProxyServer1.Active then

  begin

    IdHTTPProxyServer1.Active := False;

    btnStart.Caption := 'Start';

    edtPort.ReadOnly := False;

  end

  else

  begin

    IdHTTPProxyServer1.DefaultPort := StrToIntDef(edtPort.Text, 8808);

    IdHTTPProxyServer1.Active := True;

    btnStart.Caption := 'Stop';

    edtPort.ReadOnly := True;

  end;

end;

启动服务器代理

使用前面的代码，我们准备好第一次启动我们的服务器代理。

运行项目，如果 Windows 要求您授权以启用防火墙中的端口，请按“允许访问”。

服务器代理运行后，按“开始”按钮，剩下的就是配置您的浏览器以使用我们的代理。从这里开始，可能性几乎是无穷无尽的，这取决于您的想象力。