Я использую 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;
Но почему-то эта процедура вызывается только один раз (после приёма первого пакета). Скажите, пожалуйста, почему так происходит и как это можно исправить?
Спасибо за внимание!