INDY -SOLVED - How to properly disconnect client from indyTCPserver

[Mongkey]

 

Code: Pascal  [Select][+][-]

1.   begin
2.    for counter := 0 to ServerClientsCount-1 do
3.       if IdTCPServer1.Contexts[counter] doNotExistsInMyConnections then
4.          IdTCPServer1.Contexts[counter].Connection.Disconnect;
5.    end;

I could not found this syntax "IdTCPServer1.Contexts[counter] " on lazarus indy?

Thank you.

[Mongkey]

Thank you bogen85 
SOLVED BY

Code: Pascal  [Select][+][-]

1.  
2. Procedure Tf_main.disconnectTCP();
3. var
4. List: TIdContextList;
5.   Context: TIdContext;
6. begin
7.   IdTCPSERVER.OnDisconnect  := nil;
8.   List := IdTCPSERVER.Contexts.LockList;
9.   //rmemo_listen.Lines.Add('list:' + IntToStr(List.Count));
10.   try
11.     for I := 0 to List.Count - 1 do
12.     begin
13.       Context := TIdContext(List[I]);
14.       Context.Connection.Disconnect;
15.     end;
16.   finally
17.     IdTCPSERVER.Contexts.UnlockList
18.   end;
19. IdTCPSERVER.active := false;
20. end;
21.  

[Remy Lebeau]

You DO NOT need to disconnect active clients manually before deactivating the server.  The TIdTCPServer.Active property setter will handle that internally for you.  So, just deactivate the server normally, let Indy do the rest.

Code: Pascal  [Select][+][-]

1. Procedure Tf_main.disconnectTCP();
2. begin
3.   IdTCPSERVER.OnDisconnect := nil;
4.   IdTCPSERVER.Active := false;
5. end;

[Mongkey]

Thank you remi.