2

我有一个小问题（我希望它很小）断开服务器 - 我的意思是 - 仅在我想将它与服务器应用程序断开连接时（server.active = false）。这是我的简单代码：

    type
      PClient = ^TClient;
    type
      TClient = record
        Name: string;
        AContext: TIdContext;
    end;


     clients: TThreadList;
     SERVER: TIdTCPServer; 

    procedure TX.SERVERConnect(AContext: TIdContext);
    var
      NewClient: PClient;
      s:string;
    begin
        s := AContext.Connection.socket.ReadLn();
        GetMem(NewClient, SizeOf(TClient));
        NewClient.name:=s;
        NewClient.AContext := AContext;
        AContext.data := TObject(NewClient);
        try
          clients.LockList.Add(NewClient);
        finally
          clients.UnlockList;
        end;
        AContext.Connection.socket.writeln('E:');//answer to client - "all right"
    End;


    procedure TX.SERVERDisconnect(AContext: TIdContext);
    var
      AClient: PClient;
    begin
      AClient := PClient(AContext.data);
      try
        clients.LockList.Remove(AClient);
      finally
        clients.UnlockList;
      end;
      FreeMem(AClient);
      AContext.data := nil;
    end;

它只能用于向客户端发送数据，因此我在 onconnect 过程中只读取了一条数据行 - 它包含登录名。

在我的代码中发送数据的过程看起来像（很好吗？）：

    var
    procedure TX.send(what: string; where: string);
      i, ile: integer;
      s: string;
      Aclient: PClient;
      list: tlist;
    begin
      list:= SERVER.Contexts.LockList;
      try
        for i := 0 to list.Count - 1 do
          with TIdContext(list[i]) do
          begin
            AClient := PClient(data);
            if where = ActClient^.name then
              Connection.IOHandler.writeln(what);
          end;
      finally
        SERVER.Contexts.UnlockList;
      end;
    end;

看起来效果很好-我的意思是。但是当我想通过 SERVER.active:=false 禁用服务器时，应用程序会冻结吗？我试图释放客户等，但它在我的错误代码中不起作用。

有人可以帮助我并给我建议如何停止此代码的服务器吗？

阿尔蒂克

4

0 回答 0