Indy10 TidTCPServer и многопоточность
Прошу помощь, необходимо создать TCPServer с одновременным коннектом до 100 компьютеров.
TMyContext = class(TIdServerContext)
public
procedure SendZapros;
end;
....
procedure TfrmMain.TCPServerExecute(AContext: TIdContext);
begin
TMyContext(AContext).SendZapros;
end;
В принципе работает, но в процедуре SendZapros у меня создается запрос в базу, на выполнение запроса поставил CriticalSection и если обращений много, то клиенты начинают подвисать.
Что нужно сделать, что бы на каждое соединение создавался свой поток?
|