Объекты TTcpClient и TTcpServer - как отправить несколько сообщений через них?

@Oskaria · Регистрация: 10.07.2009

Студворк — интернет-сервис помощи студентам

Ситуёвина такая: пытаюсь написать простенький... односторонний чат, назовём его так, т.е. клиент отправляет сообщение, а сервер получает его и выводит в memo.
Странность заключается в том, что отправляется только одно сообщение, последующие игнорируются. Кем - неизвестно.

Делаю так:

У клиента включаю TcpCLient, жду ввода. По нажатию кнопки "отправить" происходит

C++
1
2
3
mess = "[ " + Edit2->Text + " ] " + Edit1->Text;
TcpClient1->Sendln(mess);
Memo1->Lines->Add(mess); //без проверки прошло ли оно на сервер

Где Edit2 - ник, а Edit1 сообщение.

На сервере в это время в memo появляется сообщение, на событие OnAccept

C++
1
Memo1->Lines->Add(ClientSocket->Receiveln());

При такой схеме обращения к серверу, проходит только первое сообщение. Второе уже не проходит, а на третье и следующие срабатывает событие OnError TcpClient-а.

Попробовал пр каждом нажатии на "отправить" подключаться, слать сообщение, отключаться, но это уж больно криво и бессмысленно.

Прошу помощи. Никак не могу понять почему проходит только одно сообщение, и что за ошибка на клиенте.

Добавлено через 13 минут
Кто-то посоветовал на OnAccept сервера сделать:

C++
1
2
3
4
5
6
7
do
{
Memo1->Lines->Add(ClientSocket->Receiveln());
}
while(ClientSocket->Receiveln() != "");
 
return;

но в этом случае отправляется только каждое второе сообщение

@GaFBich · 30.11.2010, 00:07

Сообщение от Oskaria

итуёвина такая: пытаюсь написать простенький... односторонний чат

Проблемы я не вижу... Всю информацию, которая будет необходимо готов предоставить.

Сообщение от Oskaria

У клиента включаю TcpCLient, жду ввода.

Тоесть вы используете у клиента компонент линейки Internet?

Сообщение от Oskaria

На сервере в это время в memo появляется сообщение, на событие OnAccept

Только вот Сервера я не вижу, ниже вы приводите текст программы клиента ClientSocket, сервер это ServerSocket

Не могу понять зачем вы используете два разных компонента, использовали бы их в связке ServerSocket и ClientSocket || TCPServer и TCPClient.

@Oskaria · 30.11.2010, 18:45 **[ТС]**

Мне не к чему оба компонента в одной программе, мне необходимо что бы одна отправляла текст в другую. Всегда, когда это нужно, но как я уже писал текст либо шлётся один раз, либо шлётся через раз... Я вот с этим никак не могу понять, что происходит.

@ProstoMad · 01.12.2010, 09:44

Тебе надо любым способом отправлять сообщения с одного клиента на сервер?

@Oskaria · 01.12.2010, 15:36 **[ТС]**

И да, и нет. Любой способ, кроме INDY, и ServerSocket/ClientSocket. Инди я просто не знаю, а эти сокетные компоненты по какой-то причине не устанавливаются в билдер.

@ProstoMad · 02.12.2010, 10:04

Всмысле не устанавливаются? Они разве не стандартные в билдере?

@Oskaria · 02.12.2010, 19:58 **[ТС]**

Неть, они перестали быть предустановленными с тех пор, как борладн стал рад студио. Что бы они появились - надо их установить, пак с ними есть в комплекте, но при попытке их установки, студия ругается, мол не могу установить сейчас. А почему не хочет, и самое главное когда сможет - не говорит.

@Oskaria · 15.12.2010, 00:51 **[ТС]**

Сообщение от GaFBich

Не могу понять зачем вы используете два разных компонента, использовали бы их в связке ServerSocket и ClientSocket || TCPServer и TCPClient.

Я использую TCPClient и TCPServer, подумав, что это будет очевидным не стал писать, мол, "Сервер TCPServer приняв сообщение...".

@fademike · 17.04.2017, 11:28

У меня тоже не работает повторная отправка сообщений без:

C++
1
2
Form1->TcpClient1->Close();
Form1->TcpClient1->Open();

Oskaria, Смогли ли решить проблему, не помните?)

@Oskaria · 17.04.2017, 14:30 **[ТС]**

Ну ты и вопросы задаешь, барин))

Помню, что разобрался и вроде там пришлось, что-то сбрасывать или обновлять... Посмотри серверные методы на предмет refresh/reload...
Но - это вилами по воде, я давно в веб разработке и борланд открывал, последний раз, года 4 назад))

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@Oskaria 3 / 3 / 0 Регистрация: 10.07.2009 Сообщений: 101
	30.11.2010, 18:45 [ТС]
	Мне не к чему оба компонента в одной программе, мне необходимо что бы одна отправляла текст в другую. Всегда, когда это нужно, но как я уже писал текст либо шлётся один раз, либо шлётся через раз... Я вот с этим никак не могу понять, что происходит. 0

@ProstoMad 50 / 40 / 5 Регистрация: 30.06.2010 Сообщений: 1,191
	01.12.2010, 09:44
	Тебе надо любым способом отправлять сообщения с одного клиента на сервер? 0

@Oskaria 3 / 3 / 0 Регистрация: 10.07.2009 Сообщений: 101
	01.12.2010, 15:36 [ТС]
	И да, и нет. Любой способ, кроме INDY, и ServerSocket/ClientSocket. Инди я просто не знаю, а эти сокетные компоненты по какой-то причине не устанавливаются в билдер. 0

@ProstoMad 50 / 40 / 5 Регистрация: 30.06.2010 Сообщений: 1,191
	02.12.2010, 10:04
	Всмысле не устанавливаются? Они разве не стандартные в билдере? 0

@Oskaria 3 / 3 / 0 Регистрация: 10.07.2009 Сообщений: 101
	02.12.2010, 19:58 [ТС]
	Неть, они перестали быть предустановленными с тех пор, как борладн стал рад студио. Что бы они появились - надо их установить, пак с ними есть в комплекте, но при попытке их установки, студия ругается, мол не могу установить сейчас. А почему не хочет, и самое главное когда сможет - не говорит. 0

@Oskaria 3 / 3 / 0 Регистрация: 10.07.2009 Сообщений: 101
	17.04.2017, 14:30 [ТС]
	Ну ты и вопросы задаешь, барин)) Помню, что разобрался и вроде там пришлось, что-то сбрасывать или обновлять... Посмотри серверные методы на предмет refresh/reload... Но - это вилами по воде, я давно в веб разработке и борланд открывал, последний раз, года 4 назад)) 0