Многопоточность в Tserversocket

← →
Ezorcist (2007-04-27 22:39) [0]

Собственно искал информацию тут, на исходники.ру и в DRKB, но вопрос так и не решился.

Необходимо реализовать многопоточную обработку данных от клиента, как я понял необходимо создать просто TServerSocket перевести stThreadBlocking и в OnGetThread создавать поток-наследник от TServerClientThread, задавая новую Execute.

Объясните пожалуйста как собственно обрабатывать в этой Execute пришедшие от клиента данные? и как определять тот момент когда данные приняты?

← →
Сергей М. © (2007-04-28 08:15) [1]

Например, так:

procedure TMyTransportThread.ClientExecute; begin while not Terminated and ClientSocket.Connected do try BytesRead := ClientSocket.ReceiveBuf(..); //ожидание и получение данных клиентского запроса if BytesRead >= 0 then begin .. обработка принятых BytesRead байт ClientSocket.SendBuf(..); //ответ клиенту, если необходимо end else ClientSocket.Close; except ClientSocket.Close; end; end;

← →
Ezorcist (2007-04-28 17:27) [2]

А значение размера буфера для ClientSocket.ReceiveBuf просто ставиться какой-то константой?

← →
Ezorcist (2007-04-28 21:47) [3]

???

И еще вопросик по завершению потока. если к серверу подключен только один человек, то ServerSocket1.Socket.Connections[0].Close; потк почему-то не завершается. ?

← →
Ezorcist (2007-04-29 17:45) [4]

Многопоточность в Tserversocket Найти похожие ветки