Каждому клиенту по потоку.

[ImmortalAlexSan]

Ребят, на серверной части требуется обрабатывать данные от клиентов, каждые в отдельном потоке, который создается, как только клиент подключился. Вот мой код:

procedure execute (var msg:TMessage);
Var
ClientAddr:TSockAddr;
ClientSock:TSocket;
Data:TLogData; //тип record
buf:string;
size:integer;
begin
ClientSock:=Tsocket(Sock);
If getpeername(ClientSock,ClientAddr,Len)<>SOCKET_ERROR then
begin
Data.IP:=inet_ntoa(ClientAddr.sin_addr);
Data.Port:=ntohs(ClientAddr.sin_port);
Form1.ListBox1.Items.Add(Data.IP);
end;
If msg.lparam=0 then
begin
setlength(buf,1024);
recvfrom(Sock,pointer(buf)^,length(buf),0,ClientAddr,size);
Form1.Listbox1.Items.Add(buf);
end;
end;

procedure TForm1.TakeMsg(var m:Tmessage);
Var
buf:string;
size:integer;
begin
Sock:=TSocket(m.WParam);
SockError:=WSAGetSelectError(m.LParam);
If SockError<>0 then
begin
closesocket(Sock);
Exit;
end;
Case WSAGetSelectEvent(m.LParam) of
FD_ACCEPT:
begin
accept(Sock,@ConnectAddr,@Len);
ClTh:=CreateThread(nil,0,@execute,nil,0,ClThID);
SetThreadPriority(ClTh,THREAD_PRIORITY_IDLE);
end;
FD_READ:
begin
SendMessage(ClTh,WM_THREAD,0,0); //ClTh:Handle
end;
end;
end;

Как вы поляли асинхронность достигается путем отправки сообщений окну, если что-то было сделано с сокетом. А вот теперь вопрос: Как мне организовать работу сервера с несколькими клиентами каждый в своем потоке. Покритикуйте неправильные части кода и если можно, предложите алгоритм создания потока и закрепления его за клиентом. И как в определенный поток передать информацию, которая поступила от клиента, привязанного к потоку? Вобщем вопросов много, надо разбираться.

[ImmortalAlexSan]

Как мне перехватить FD_READ своим потоком? И как привязать вновь созданный поток к клиентскому сокету?