2

我使用这个片段来创建一个 Indy10 TCPServer 的新实例：

procedure TPortWindow.AddPort (Item : TListItem);
var
  Socket : TIdTcpServer;
begin
  Socket  := TIdTcpServer.Create(nil);
  try
    Socket.DefaultPort  := strtoint (item.Caption);
    Socket.OnConnect    := MainWindow.OnConnect;
    Socket.OnDisconnect := MainWindow.OnDisconnect;
    Socket.OnExecute    := MainWindow.OnExecute;
    Socket.Active       := TRUE;
  except
    Socket.Free;
    OutputError   ('Error','Port is already in use or blocked by a firewall.' + #13#10 +
                  'Please use another port.');
    Item.Data     := Socket;
    Item.Checked  := FALSE;
  end;
end;

我用它来删除实例：

procedure TPortWindow.RemovePort (Item : TListItem);
var
  Socket        : TIdTcpServer;
begin
  if Item.Data = NIL then Exit;
  Socket := TIdTcpServer(Item.Data);
  try
    Socket.Active := FALSE;
  finally
    Socket.Free;
  end;
  Item.Data := NIL;
end;

由于某种原因，实例不会停止侦听并且所有客户端都保持连接。当我尝试创建前一个端口的新实例（删除后）时，它说该端口已在使用中，这意味着它没有停止侦听。

如何正确关闭此实例（并断开所有连接的客户端）？

编辑：

procedure TMainWindow.OnConnect(AContext: TIdContext);
begin
  ShowMessage ('connected');
end;

procedure TMainWindow.OnDisconnect(AContext: TIdContext);
begin
  ShowMessage ('disconnected');
end;

procedure TMainWindow.OnExecute(AContext: TIdContext);
begin
 // Not defined yet.
end;
4

1 回答 1

4

将Active属性设置为 False 是正确的做法。它将自动关闭侦听端口并关闭所有活动的客户端连接。

但是，您需要注意的是，当主线程忙于停用服务器时，请确保您的服务器事件处理程序没有对主线程执行任何同步操作，否则会发生死锁。

于 2013-07-16T20:11:38.740 回答