Android 如何解决Delphi2007服务器和RAD XE7客户端之间的Indy套接字错误#111连接被拒绝？

当我单击服务器中的按钮时，调试器显示两个线程已启动，我假设一个是主线程，另一个是服务器的线程，但从未执行ServerExecute过程，我认为这会导致连接被拒绝错误

我怎样才能修好它

服务器代码：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer, IdContext,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdTCPServer1: TIdTCPServer;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure ExecuteServer(AContext : TIdContext);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPServer1.Bindings.Add.IP := '0.0.0.0';
  IdTCPServer1.Bindings.Add.Port := 2811;
  IdTCPServer1.OnExecute := ExecuteServer;
  IdTCPServer1.Active := True;
end;

procedure TForm1.ExecuteServer(AContext: TIdContext);
begin
  Sleep(Random(3000));
  Memo1.Lines.Add('Hello World');
  AContext.Connection.IOHandler.WriteLn('Hello World');
end;

end.

客户端代码：

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, FMX.Layouts,
  FMX.Memo, FMX.StdCtrls, IdGlobal, IdIntercept;

type
  TpocForm1 = class(TForm)
    ButtonConnect: TButton;
    ButtonDisconnect: TButton;
    Memo1: TMemo;
    procedure ButtonConnectClick(Sender: TObject);
    procedure ButtonDisconnectClick(Sender: TObject);
    procedure AddLine(text : String);

  private

  public
    { Public declarations }
  end;

  TpocTCPClientThread = class(TThread)
    TCPClient: TIdTCPClient;
  protected
    procedure Execute; override;
    procedure AddLineToMemo;
    procedure Connect;
    procedure Disconnect;
  end;

var
  pocForm1: TpocForm1;

implementation
{$R *.fmx}
Const
  PC_IP = '192.168.32.252';
  PORT = 2811;

var
  thread: TpocTCPClientThread;

procedure TpocForm1.ButtonConnectClick(Sender: TObject);
begin
  Memo1.Lines.Add('Client connected with server');
  thread:= TpocTCPClientThread.Create(False);
end;

procedure TpocForm1.ButtonDisconnectClick(Sender: TObject);
begin
  thread.Terminate;
  thread.WaitFor;
  FreeAndNil(thread);
  Memo1.Lines.Add('Client disconnected from server');
end;

procedure TpocForm1.AddLine(text : String);
begin
  Memo1.Lines.Add(text);
end;


procedure TpocTCPClientThread.Execute();
begin
  Connect;

  while not Terminated do
  begin
    Synchronize(AddLineToMemo);
  end;

  Disconnect;
end;

procedure TpocTCPClientThread.AddLineToMemo;
begin
  pocForm1.AddLine(TCPClient.IOHandler.ReadLn(IndyTextEncoding_OSDefault()));
end;

procedure TpocTCPClientThread.Connect;
begin
  TCPClient := TIdTCPClient.Create;
  TCPClient.Host := PC_IP;
  TCPClient.Port := PORT;
  TCPClient.Connect;
end;

procedure TpocTCPClientThread.Disconnect;
begin
  TCPClient.Disconnect;
  TCPClient.Free;
end;


end.

编辑 我忘了提到，客户端应该在android上运行。

这是错误的：

IdTCPServer1.Bindings.Add.IP := '0.0.0.0';
IdTCPServer1.Bindings.Add.Port := 2811;

您正在创建两个独立的绑定（这就是为什么要启动两个线程的原因）-一个绑定到

0.0.0.0:0

，另一个绑定到

0.0.0:2811

将其更改为：

with IdTCPServer1.Bindings.Add do begin
  IP := '0.0.0.0';
  Port := 2811;
end;

或者这个：

IdTCPServer1.Bindings.Add.SetBinding('0.0.0.0', 2811, IdIP_v4);

或者，只需将

TIdTCPServer.DefaultPort

设置为2811，并且根本不填写

绑定

，那么服务器将在激活时为您创建一个绑定到

0.0.0:2811

的默认项

尽管如此，您的代码还存在一些其他问题

服务器：

procedure TForm1.ExecuteServer(AContext: TIdContext);
begin
  Sleep(Random(3000));
  Memo1.Lines.Add('Hello World'); // <- must be synchronized!
  AContext.Connection.IOHandler.WriteLn('Hello World'); // <- default ASCII encoding used
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ...
  IdTCPServer1.OnConnect := ConnectServer;
  ...
end;

procedure TForm1.ConnectServer(AContext: TIdContext);
begin
  AContext.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8();
end;

procedure TForm1.ExecuteServer(AContext: TIdContext);
begin
  Sleep(Random(3000));
  TThread.Synchronize(nil,
    procedure
    begin
      Memo1.Lines.Add('Hello World');
    end
  );
  AContext.Connection.IOHandler.WriteLn('Hello World');
end;

客户：

procedure TpocTCPClientThread.Execute();
begin
  Connect;

  while not Terminated do
  begin
    Synchronize(AddLineToMemo); // <- calling ReadLn() inside of Synchronize()
  end;

  Disconnect; // <- not called if an exception is raised
end;

TCPClient.IOHandler.ReadLn(IndyTextEncoding_OSDefault()) // <- OSDefault is not consistent across platforms

procedure TpocForm1.ButtonConnectClick(Sender: TObject);
begin
  thread := TpocTCPClientThread.Create(False);
end;

procedure TpocForm1.ButtonDisconnectClick(Sender: TObject);
begin
  thread.Terminate;
  thread.WaitFor;
  FreeAndNil(thread);
end;

procedure TpocTCPClientThread.Execute();
begin
  Connect;
  try
    AddLineToMemo('Client connected with server');

    TCPClient.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8();

    while not Terminated do
    begin
      AddLineToMemo(TCPClient.IOHandler.ReadLn());
    end;
  finally    
    Disconnect;
    AddLineToMemo('Client disconnected from server');
  end;
end;

procedure TpocTCPClientThread.AddLineToMemo(text: string);
begin
  Synchronize(
    procedure
    begin
      pocForm1.AddLine(text);
    end
  );
end;

---

我收到通知说，

DefStringEncoding

和

IndyTextEncoding\u UTF8（）

未声明。我使用的是units

IdBaseComponent、IdComponent、IdCustomTCPServer、IdTCPServer、IdContext、IdGlobal

。我缺少一个吗？

DefStringEncoding

是

TIdIOHandler

的一个属性，它在

IdIOHandler

单元中声明，因此将其添加到

uses

子句中。至于

IndyTextEncoding_UTF8（）

，它是在

IdGlobal

单元中声明的，因此如果它未定义，则必须使用较旧版本的Indy（当前版本是10.6.2，

IndyTextEncoding_f8（）

函数）。在您的版本中，可以使用

IndyUTF8Encoding（）

或

enUTF8（）

。