Delphi 2010 - 套接字端口 119 不起作用

发布于 2024-10-21 18:38:50 字数 367 浏览 8 评论 0原文

我正在端口 119 上打开一个套接字（使用 idHttpServer），它打开正常（没有报告错误，我可以通过查看 netstat 看到端口 119 已打开）。但是当我的套接字客户端向服务器119端口发送请求时，服务器没有收到请求，客户端也无法工作。如果我将套接字端口更改为另一个端口（例如 90、80、120），它就可以正常工作。
我猜想套接字端口 119 是一个 SO 保留端口（但该端口上没有任何运行，我确信这一点）。我还知道新闻协议使用端口 119（但没有新闻服务器）。
有谁知道为什么我无法连接到 119 端口？ 110 端口也会发生同样的情况（pop，但 pop 服务器未打开）。这让我发疯。

德尔福2010
最新独立版本
Windows 2003服务器企业版。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

情仇皆在手 2024-10-28 18:38:50

它应该是您的开发机器中的某个东西，因为将 119 端口（或任何其他可用端口）与 INDY HTTP Server 一起使用是完全有效的。考虑到不建议使用 1024 个保留端口以下的 80 以外的端口，但这是另一回事。

我做了一个简单的测试，两个应用程序。以下是相关部分：

Server

dfm

object Form2: TForm2
  Caption = 'Server'
  object IdHTTPServer1: TIdHTTPServer
    Active = True
    Bindings = <>
    DefaultPort = 119
    Left = 56
    Top = 40
  end
end

Client

dfm

object Form3: TForm3
  Caption = 'Form3'
  object Memo1: TMemo
    Left = 16
    Top = 8
    Width = 185
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object Button1: TButton
    Left = 207
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 207
    Top = 39
    Width = 75
    Height = 25
    Caption = 'Disconnect'
    TabOrder = 2
    OnClick = Button2Click
  end
  object IdTCPClient1: TIdTCPClient
    OnStatus = IdTCPClient1Status
    ConnectTimeout = 0
    Host = 'localhost'
    IPVersion = Id_IPv4
    Port = 119
    ReadTimeout = -1
    Left = 32
    Top = 40
  end
end

pas

procedure TForm3.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Connect;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  IdTCPClient1.Disconnect;
end;

procedure TForm3.IdTCPClient1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
begin
  Memo1.Lines.Add(AStatusText);
end;

结果：

成功连接

不要忘记允许防火墙上的流量，例如接受默认 Windows 对话框（如果使用 Windows 防火墙）：

“防火墙警告”

It shall to be something in your development machine, because it is perfectly valid to use the 119 port (or any other available port) with INDY HTTP Server. Take in account it is not recommended to use ports different than 80 below the 1024 reserved ports to to that, but that's another thing.

I made a simple test, two applications. Here are the relevant parts:

Server

dfm

object Form2: TForm2
  Caption = 'Server'
  object IdHTTPServer1: TIdHTTPServer
    Active = True
    Bindings = <>
    DefaultPort = 119
    Left = 56
    Top = 40
  end
end

Client

dfm

object Form3: TForm3
  Caption = 'Form3'
  object Memo1: TMemo
    Left = 16
    Top = 8
    Width = 185
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object Button1: TButton
    Left = 207
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 207
    Top = 39
    Width = 75
    Height = 25
    Caption = 'Disconnect'
    TabOrder = 2
    OnClick = Button2Click
  end
  object IdTCPClient1: TIdTCPClient
    OnStatus = IdTCPClient1Status
    ConnectTimeout = 0
    Host = 'localhost'
    IPVersion = Id_IPv4
    Port = 119
    ReadTimeout = -1
    Left = 32
    Top = 40
  end
end

pas

procedure TForm3.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Connect;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  IdTCPClient1.Disconnect;
end;

procedure TForm3.IdTCPClient1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
begin
  Memo1.Lines.Add(AStatusText);
end;

The result:

Successfully connected

Dont forget to allow traffic on the firewall, for example by accepting the default windows dialog (in case of using windows firewall):

Firewall warning

回复收藏 0 原文