Indy 10 TCPServer不与Linux上连接的客户端通信

我遇到了一个问题，这让我非常恼火。我正在尝试将Windows上Indy 10客户机/服务器应用程序的服务器端移植到Linux以节省成本。该应用程序最初是使用Delphi2010开发的。我已经将它移植到Lazarus/FreePascal，它在Windows上运行良好。鉴于Lazarus/FreePascal是多平台和免费的，它是这份工作的理想人选

我已经尽我所能让服务器应用程序在Linux上运行，但没有成功。服务器只是不与连接的客户端通信。什么都没有

然后我决定回到原点。我试图得到一个在Linux上工作的非常基本的示例。源代码的相关部分如下所示

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  s: string;
  i: Integer;
begin
  with AContext.Connection.IOHandler do
  try
    WriteLn('Type an integer and Enter');
    s := ReadLn;
    try
      i := StrToInt(s);
      WriteLn(s + ' squared is ' + IntToStr(i*i));
    except
      WriteLn(s + ' is not an integer');
    end;
  finally
    Free;
  end;
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  Binding: TIdSocketHandle;
begin
  {$IFDEF UNIX}
  Binding := IdTCPServer1.Bindings.Add;
  //Binding.IPVersion := Id_IPv4;   <----- Gives compilation error Error: Identifier not found "Id_IPv4"
  {$ENDIF}
  Binding.IP := '127.0.0.1';
  Binding.Port := 6501;
  IdTCPServer1.Active := True;
end;

end.

当我尝试使用telnet从终端连接到服务器时，我得到以下响应

telnet 127.0.0.1 6501
Trying 127.0.0.1...
Connected to 127.0.0.1.
Escape character is '^]'.
7
Connection closed by foreign host.

如您所见，telnet连接到服务器。但是在客户端连接之后，服务器的第一个响应“键入一个整数并输入”没有显示。此外，当我向服务器发送一个数字，例如“7”进行平方运算时，telnet会显示“外部主机关闭了连接”。因此，telnet客户端也根本不接收服务器的响应。我使用的是印地svn版本，所以这不是一个老印地版本的问题

因此，即使这个基本示例在Linux中也不起作用！我不知道如何解决这个问题，所以我真的需要你的帮助。此外，如果您有任何我可以阅读的关于Linux上使用Pascal进行socket编程的资料，我将非常感谢

我在LinuxMint上使用Lazarus0.9.31/FPC2.4.4和Indy10.5.8

---

JDaniel

Id\u IPv4

在IdGlobal.pas中定义，请确保单位位于

uses

子句中。请注意，只有在定义了UNIX的情况下才调用

Bindings.Add（）

，但您正试图访问IFDEF块外部的

Binding

。您根本不需要IFDEF块。Indy默认为IPv4

关于通信问题，如果FreePascal正确地调用了

TIdIOHandler.WriteLn（）

，而不是一些控制台WriteLn（）I/O例程，那么我认为您显示的代码没有任何错误。你能显示客户端代码吗

---

在服务器端，如果您将

TIdIOHandler.DefStringEncoding

属性或全局

giddaultencoding

变量设置为非默认编码，那么我现在能想到的唯一可能出错的事情就是Indy的TIdTextEncoding类在发送/接收字符串时可能出现故障。在非Windows系统上，TIdTextEncoding使用iconv库，Indy的iconv支持目前已知有点问题。另一方面，Indy的默认编码是ASCII，它根本不依赖iconv，因此使用它应该不会有任何失败。

@Remy Lebeau。我找到了答案。我一直在玩文本编码，直到我得到了下面的代码：

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  s: string;
  i: Integer;
begin
  with AContext.Connection.IOHandler do
  try
    {$IFDEF UNIX}
    DefStringEncoding := TIdTextEncoding.Default
    {$ENDIF}
    WriteLn('Type an integer and Enter');
    s := ReadLn;
    try
      i := StrToInt(s);
      WriteLn(s + ' squared is ' + IntToStr(i*i));
    except
      WriteLn(s + ' is not an integer');
    end;
  finally
    Free;
  end;
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  Binding: TIdSocketHandle;
begin
  {$IFDEF UNIX}
  Binding := IdTCPServer1.Bindings.Add;
  Binding.Port := 6501;
  {$ENDIF}
  {IFDEF MSWINDOWS}
  IdTCPServer1.DefaultPort := 6501
  {$ENDIF} 
  IdTCPServer1.Active := True;
end;

这是telnet响应：

telnet 127.0.0.1 6501
Trying 127.0.0.1...
Connected to 127.0.0.1.
Escape character is '^]'.
Type an integer and Enter
7
7 squared is 49
Connection closed by foreign host.

---

但是，我仍然想知道如何设置全局GIdDefaultEncoding变量，以便取消DefStringEncoding:=TIDTextEncoding.Default。谢谢你的帮助。

谢谢你的回复，雷米。a） 客户端是上面的telnet输出。我使用telnet作为客户端来测试服务器，因此没有客户端代码。b） 我根本没有更改默认的编码状态，因为这个简单的服务器所要做的就是将数字的平方发送到telnet客户端。既然如此，问题就在别处。不过，我会调查FreePascal调用TIOHandler.WriteLn的方式，我会随时通知您。您仍然不需要ifdef您仍然不需要ifdef。

绑定

和

DefaultPort

属性在Windows和Linux中的工作方式完全相同。对于

GIdDefaultEncoding

，您可以像设置任何其他变量一样设置它，例如：

IdGlobal.GIdDefaultEncoding:=encOSDefault

，但它仅在

TIdIOHandler.DefStringEncoding

为nil时生效，默认情况下它不是nil，因此您必须为它赋值。为什么使用

TIdTextEncoding.Default

工作没有意义，但是

TIdTextEncoding.ASCII

的默认赋值没有意义。顺便问一下，为什么要在IOHandler上调用

Free（）

？如果要关闭连接，请调用

AContext.connection.Disconnect（）

。如果要保持连接打开，以便客户端可以发送更多命令，只需退出

OnExecute

事件处理程序，然后让

TIdTCPServer

再次启动它（在连接的生命周期内，它在循环中启动）。

IOHandler.DefStringEncoding

属性的赋值应该在

OnConnect

事件中完成。是。我在ServerOneExecute过程中不需要它，但在FormActivate过程中需要它，因为Windows无法编译包含“Binding”的语句。我不知道为什么默认的“TIdTextEncoding.ASCII”不起作用。这对我来说是个谜。至于其余部分，我将根据您的建议更新代码。

Bindings

集合在Windows中运行良好。我从来没有遇到过任何编译器问题。到底什么东西不适合你？

telnet 127.0.0.1 6501
Trying 127.0.0.1...
Connected to 127.0.0.1.
Escape character is '^]'.
Type an integer and Enter
7
7 squared is 49
Connection closed by foreign host.