[mw_Kronos]

Вот код простейшего сервера:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

unit Unit1;   interface   uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Web.Win.Sockets;   type   TForm1 = class(TForm)     TcpServer1: TTcpServer;     procedure TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.TcpServer1Accept(Sender: TObject;   ClientSocket: TCustomIpClient); var Buf:array of byte;     BufSize:integer; begin   while ClientSocket.ReceiveBuf(buf) > 0 do     begin       //code...     end; end;   end.

Исследовал немного поведение TTCPServer.
1. При первом подключении (событие OnAccepr), создается от 1 до 3 потоков в DDServer.ServerSocketThread.ThreadPool.
2. Следующие подключения используют созданные потоки до тех пор, пока количество потоков не станет меньше, чем кол-во подключений. Как только очередному подключению не хватило потоков, кол-во потоков увеличивается на n(в моих тестах n менялось от 2-ух до 3-ех). Пример: при первом подключении создалось 3 потока. 2 и 3 подключение будут использовать 2 и 3 поток. 4-ое подключение спровоцирует увеличение кол-ва потоков с 3 до 3+n.
3. Потоки создаются автоматически. Создавать их вручную в обработчике OnGetThread не обязательно.
4. Поток не уничтожается после разрыва подключения. Освободившийся поток используется новыми подключениями.
5. ClientSocket.ReceiveBuf возвращает число меньше нуля, если подключение разорвано. В противном случае ClientSocket.ReceiveBuf ожидает получения данных. Таким образом код

Код:

1 2 3 4

while ClientSocket.ReceiveBuf(buf) > 0 do   begin     //code...   end;

будет выполнятся до тех пор, пока клиент не отключится.
6. Вызов методов TCPServer.Close и TCPServer.Destroy не влечет за собой уничтожение клиентских потоков. Они продолжают работать, если клиент не отключился. Если подключение разорвано, поток лишь останавливается (ClientSocketThread.Finished = True), но не уничтожается.
7. TCPClient никак не реагирует на полное отключение сервера(TCPServer1.Destroy + Application.Terminate + ручное уничтожение потоков в цикле TClientSocketThread(TCPServer1.ServerSocketThread. ThreadPool[i]).Free), и продолжает слать данные в пустоту.

Теперь вопросы:
1. Будет ли сервер на основе вышеприведенного кода работать корректно (при условии ручного уничтожения потоков после остановки сервера)?
2. Зачем во многих примерах в обработчике OnGetThread потоки создаются вручную?
3. Как правильно отследить отключение сервера на стороне клиента, не передавая никаких данных от сервера клиенту?

[M.A.D.M.A.N.]

Чего? Нафига ерундой занимаешься, в сервере единственное событие надо обрабатывать, OnExecute, в нем и происходит обмен данными.
Дельфи какая?

[mw_Kronos]

RadStudio XE5. Во всех примерах работы с TTCPServer, которые нашел, обмен данными происходит именно в OnAccept.

[M.A.D.M.A.N.]

Плохие примеры значит.

[УДАЛЕНО]

[mw_Kronos]

Хм... Чем этот вариант лучше?

[M.A.D.M.A.N.]

Ничем, забудь.