Question

我遇到了一个让我陷入困境的问题。我试图将Windows上的Indy 10客户端/服务器应用程序的服务器端移植到Linux以节省成本。该应用程序最初是使用Delphi 2010开发的。我已将其移植到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.

这是程序的项目文件squares.lpr

program squares;

{$mode objfpc}{$H+}
// The following line is is necessary for Linux thread support            
{$IFDEF UNIX}{$DEFINE UseCThreads}{$ENDIF}     

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, uSquares
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
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客户端根本不会收到服务器的响应。我正在使用Indy svn版本，因此它不是旧版Indy版本的问题。

所以即使这个基本的例子在Linux中也行不通！我不知道如何解决这个问题所以我真的需要你的帮助。另外，如果你有任何材料我可以在Linux上使用Pascal读取套接字编程，我真的很感激。

我在Linux Mint上使用Lazarus 0.9.31 / FPC 2.4.4和Indy 10.5.8。

JDaniel

Answer 1

Id_IPv4在IdGlobal.pas中定义，请确保该单元位于uses子句中。请注意，仅在定义了UNIX时才调用Bindings.Add()，但是您试图访问IFDEF块之外的Binding。您根本不需要IFDEF块。 Indy默认为IPv4。

关于通信问题，我发现你显示的代码没有错，只要FreePascal正确调用TIdIOHandler.WriteLn()而不是某些控制台WriteLn（）I / O例程。你能展示客户代码吗？

服务器端，我现在唯一可以想到的可能出错的是Indy的TIdTextEncoding类在发送/接收字符串时可能出现故障，如果你设置了TIdIOHandler.DefStringEncoding属性或全局{{ 1}}变量为非默认编码。在非Windows系统上，TIdTextEncoding使用iconv库，而Indy的iconv支持现在已知有点儿错误。另一方面，Indy的默认编码是ASCII，完全不依赖于iconv，所以不应该使用它。

Answer 2

@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 。谢谢你的帮助。

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

2 个答案: