Две посылки, один прием

← →
Urvin © (2003-09-20 20:51) [0]

Проблема возникла. Для отсылки на сервер сообщения надо кнопку нажать дважды, это напрягает. код примерно такой:
КЛИЕНТ: ClientSocket1.Host:="Host"; ClientSocket1.Port:=2003; ClientSocket1.Active:=True; ClientSocket1.Socket.SendText("Ну вобщем-то это и есть та строка"); ClientSocket1.Active:=False;
CЕРВЕР: procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var Str: String; begin Str:=Socket.ReceiveText; ShowMessage(Str); end;
Все-таки, два раза нажимать не нравится

← →
Senti (2003-09-21 00:57) [1]

а зачем ты закрываешь сокет после отправки ?
если хочешь пользоваться своим алгоритмом сделай цикл.

i - Нужное число отправки сообщения for j:=1 to i do begin ClientSocket1.Host:="Host"; ClientSocket1.Port:=2003; ClientSocket1.Active:=True; ClientSocket1.Socket.SendText("Ну вобщем-то это и есть та строка"); ClientSocket1.Active:=False; end;

НЕ! не в том дело-то. Послать надо один раз одну строку. Только получается со второго раза. Закрываю все потому, что потом надо переключиться на следующий комп.

Две посылки, один прием Найти похожие ветки