Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Проблема приёма пакетов

Автор: S_lip 7.08.2007 15:31

Здравствуйте!
Я использую TClientSocket, чтобы отправит друг за другом несколько пакетов на сервер и сохранить ответы с него. Событие OnRead выглядит так:

procedure TForm1.csRead(Sender: TObject; Socket: TCustomWinSocket);
begin
addtobase(Socket.ReceiveText); //оперируем полученным пакетом
if i<k then begin
socket.SendText(makenewtext(i)); //отправляем новый пакет
inc(i);
end;
end;

Но почему-то эта процедура вызывается только один раз (после приёма первого пакета). Скажите, пожалуйста, почему так происходит и как это можно исправить?

Спасибо за внимание!