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