Здравствуйте! Экспериментирую с сетью. Написал программу, отдаленно напоминающую чат: 2 поля ввода (memo1 и memo2), 1 кнопка (button1), TcpServer1, Tcpclient1.
TcpServer1.Localport поставил 7000. Такой же порт поставил в TcpClient1.RemotePort. TcpClient1.Remotehost выставил 127.0.0.1
Код программы:

При создании формы все открываем, при закрытии - рассоединяем, при нажатии на кнопку - отсылаем все строки из memo1 с помощью цикла и tcpclient1.Sendln(memo1.Lines[i]);. Сервер прослушивает, если что-нибудь придет, то эту строку добавляем в memo2.
И вот вопросы:
1. Не работает! Приходит только одна строка, только один раз. Потом сообщения не приходят. Каким образом запускается событие TcpServer1Accept? Я думал, что для каждой приходящей строки, отосланной с помощью Sendln, оно генерируется заново. 
Почему вот так:

работает как надо?
2. В книжках после каждой отправки сообщения авторы разрывают связь, перед отправкой сообщения устанавливают заново. Стоит ли это делать при создании реальных приложений? Т.е. есть ли смысл перед каждой отправкой сообщений коннектится, а потом разрывать связь?

Оно поэтому и Receiveln, что получает только одну строчку (line). Почему-то такие функции как Readln и Writeln подобных вопросов не вызывают...

Я помню, в примерах с дельфи поставлялся готовый проект чата.

Akella, да не нужен мне готовый чат, я с сетью разбираюсь   

Poseidon, все равно не пойму - отправляется 3 строки, например, а почему метод TcpServer1Accept вызывается всего 1 раз, принимает одну строку (это логично - ReciveLN)... А при последующих нажатиях - ВООБЩЕ ничего не принимает. Почему так?



Это сообщение отредактировал(а) boobie - 13.6.2013, 13:11

вот и разбирайся на основе готового рабочего примера ;)

Ну, Akella, твой 18000-ый пост мог быть и лучше!   
Я не случайно привел код, который я взял из работающего примера:

он работает... А я не понимаю почему... Почему так работает, а в "моем" случае - нет. Сам механизм не понятен

boobie, ты посылаешь в цикле

т.е. выполняешь Sendln несколько раз. Почему ты думаешь, что прочитать это нужно за один Receiveln?

ну так трассируй, посмотри что и как выполняется с циклом и без

Т.е. процедура TcpServer1Accept запускается один раз и не выходит из процедуры, пока все данные не будут считаны? Так?

А что, F1 выламана?

Эмм... Получается, что данная процедура вызывается сразу после подключения клиента... Создается очередь для хранения клиентских запросов. Эта очередь обслуживается в данной процедуре. Это я понял из справки, бат ай донт спик инглиш. Так? А что происходит с очередью, если ее не обработать в этой процедуре?

ничего не происходит, наверное )))

Дело в том, что если не убрать эту очередь из строк, то в следующий раз захода в процедуру не будет...

здесь ещё пример
http://www.swissdelphicenter.ch/torry/showcode.php?id=2213

Да, там цикл вставлен... Ничего особенного. Пока есть очередь - получай строку и закидывай в мемо. Проблемы начинаются, если очередь большая и с полученными данными надо что-то делать. Без многопотока тогда не обойтись. Да и поведение TcpServer1Accept  неадекватное.