Проблема приёма пакетов через TClientSocket

← →
sashap (2007-08-05 00:09) [0]

Здравствуйте!
У меня возникла небольшая проблема с OnRead компонента TClientSocket. Мне нужно друг за другом отослать разные запросы на сервер и сохранить ответы с него. Вот отрывок кода:

procedure TForm1.csConnect(Sender: TObject; Socket: TCustomWinSocket); begin a:=makenewpacket; socket.SendText(a); end; procedure TForm1.csRead(Sender: TObject; Socket: TCustomWinSocket); begin operate(Socket.ReceiveText); if socketcount<10 then begin a:=makenewpacket; socket.SendText(a); end; end;

Должна происходить цикличность: из csRead отправили, в csRead получили , отправили, получили и т.д. Но этого не происходит и программа прекращает работу, получив всего один ответ. Подскажите, решение, пожалуйста.

← →
patrushevd1982 © (2007-08-14 00:13) [1]

procedure TForm1.csRead(Sender: TObject; Socket: TCustomWinSocket);
begin
operate(Socket.ReceiveText);
if socket.receivelength > 0 then begin
a:=makenewpacket;
socket.SendText(a);
end;
end;

← →
Slym © (2007-08-14 04:53) [2]

sashap (05.08.07 0:09)
стабильной работы не добьешся: в csRead может прийти и пол команды и 2 команды (разбитие/склейка пакетов)... как будешь разбираться?
меняй концепцию

← →
Сергей М. © (2007-08-14 08:05) [3]

> sashap (05.08.07 00:09)

SendText - это функциональный метод.

← →
sashap (2007-08-16 13:24) [4]

patrushevd1982, Slym, Сергей М., спасибо большое за ответы!
Я попробовал IdHTTP из Indy, оказалось то, что и нужно было.

> попробовал IdHTTP из Indy, оказалось то, что и нужно было

Но поскольку ты так и не разобрался в "проблеме", то когда-нибудь при возвращении по какому-либо иному поводу к использованию этого компонента ты получишь теми же граблями по тому же месту)

Проблема приёма пакетов через TClientSocket Найти похожие ветки