TServerSocket, stNonBlocking несколько клиентов

← →
Юра (2006-08-03 16:36) [0]

Возник такой вопрос, навеяно serko.

Есть TServerSocket, stNonBlocking.
По событию ServerSocket1ClientRead данные читаются из сокета в буфер, буфер для каждого подключенного клиента свой. Потом в этом же обработчике вызывается процедура, которая разбирает буфер и отсылает клиенту данные в зависимости от результатов разбора.

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
//ID клиента = FindConnection(socket.handle);
//читаем в буфер клиента
//вызываем обработчик ProcessData(ID клиента);
end;

Вопрос такой: что будет, если процедура ProcessData(ID клиента) ЕЩЕ не завершена, а другой клиент пишет данные, т.е. вызывается ServerSocket1ClientRead?

На локальной сети и малом количестве машин ничего ужасного не происходило.

← →
Сергей М. © (2006-08-03 16:50) [1]

В однопоточной среде - пока тело текущего обработчика не завершило свое выполнение. и один последующий обработчик в том же потоке вызван не будет.

Это примитивно как 2 х 2.

← →
Юра (2006-08-03 17:04) [2]

В однопоточной среде - пока тело текущего обработчика не завершило свое выполнение. и один последующий обработчик в том же потоке вызван не будет.
----

Спасибо! Я так и думал, но иногда что-то находит и начинаешь сомневаться в аксиомах.

← →
Сергей М. © (2006-08-03 17:13) [3]

Значит, знания не тверды.

> В однопоточной среде - пока тело текущего обработчика не
> завершило свое выполнение. и один последующий обработчик
> в том же потоке вызван не будет.

Хм хм.
А если в "текущем" вызвать Application.ProcessMessages?

TServerSocket, stNonBlocking несколько клиентов Найти похожие ветки