Компоненты палитры Internet (TTcpClient и TTcpServer)

@GaFBich · Регистрация: 18.03.2010

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

Ситуация такая, разговоров много о чатах (клиент сервер), хотелось бы написать чат именно с компонентами из палитры Internet (TTcpClient и TTcpServer), Создаю Серверную часть программы и Клиентскую с помощью тех компонентов, соединение происходит успешно, проблема в том, что одно сообщение я передаю, а вот повторно послать мне не удается.

Серверная часть.

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::TcpServer1Accept(TObject *Sender,
      TCustomIpClient *ClientSocket)
{
do
{
Memo1->Lines->Add(ClientSocket->Receiveln('\n'));
}
while(ClientSocket->Receiveln() == ' ');
}

почему это происходит

Клиентская часть.

C++
1
2
3
4
5
6
void __fastcall TForm1::Button4Click(TObject *Sender)
{
TcpClient1->Connected;
TcpClient1->Sendln(Memo4->Lines->Text);
TcpClient1->Disconnect();
}

Искал по поискам, ничего не нашел, только с компонентами Indy.

Использую Builder 6 c++

@Зоти Сергей · 19.03.2010, 14:48

Сервер:

C++
1
2
3
4
5
void __fastcall TDlgMainWindow::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
        Memo1->Lines->Add(Socket->ReceiveText());
}

клиент:

C++
1
2
3
4
void __fastcall TDlgMainWindow::Button1Click(TObject *Sender)
{
        ClientSocket1->Socket->SendText(Memo4->Lines->Text);
}

Добавлено через 9 минут
И еще, зачем вы после каждой посылки отключаетесь?
Не проще ли сделать:
например, при открытии формы: ClientSocket->Active=true;

при закрытии формы: ClientSocket->Active=false;

@GaFBich · 19.03.2010, 15:58 **[ТС]**

Спасибо за ответ, но теперь еще несколько вопросов что это за объект TDlgMainWindow.

C++
1
2
3
4
void __fastcall TDlgMainWindow::Button1Click(TObject *Sender)
{
        ClientSocket1->Socket->SendText(Memo4->Lines->Text);
}

Видимо вы использовали объекты ClientSocket и ServerSocket.

Посоветуйте где можно почитать умных статей.

@Black Fregat · 19.03.2010, 18:52

Собственно, главная ошибка Вашего первоначального кода - кривой цикл приёма. Сделайте его как-то по-другому. Особенно обратите внимание, что Receiveln в условии цикла - это уже чтение следующего куска, а не проверка того , что принято ранее.

@Зоти Сергей · 19.03.2010, 20:33

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

Спасибо за ответ, но теперь еще несколько вопросов что это за объект TDlgMainWindow.

Форма у меня так называется.
В Вашем случае это Form1

@GaFBich · 20.03.2010, 19:33 **[ТС]**

Всем большое спасибо, буду пробовать). Если чего мигом вернусь и напишу, че до как!

Добавлено через 22 часа 45 минут
Всем здравствуйте, Чат реализовал с помощью палитры Internet с помощью объектов ClientSocket и ServerSocket, далее задача такого характера, расширяя возможности данного чата, хотелось бы иметь список собеседников, а соответственно нужно чтобы сервер получал IP адреса от клиетов(принудительно), то есть клиент соединяется с сервером и отправляет без участия собеседника первым сообщением индифицирующие данные типа (Ник,IP адрес), это необходимо еще чтобы собеседники общались друг с другом через сервер.

Главное условие, чтобы клиент отсылал IP не посредственно тот по которому соединился с сервером.

С Уважением, Сергей

@Black Fregat · 20.03.2010, 21:09

Сервер ведь может и самостоятельно определить адрес, с которого осуществлено соединение

@GaFBich · 20.03.2010, 23:10 **[ТС]**

Сообщение от Black Fregat

Сервер ведь может и самостоятельно определить адрес, с которого осуществлено соединение

Это у меня получилось, а если соединений несколько?
Мне то надо контакт-лист, а каждому псевдониму присущ свой IP.

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	19.03.2010, 18:52
	Собственно, главная ошибка Вашего первоначального кода - кривой цикл приёма. Сделайте его как-то по-другому. Особенно обратите внимание, что Receiveln в условии цикла - это уже чтение следующего куска, а не проверка того , что принято ранее. 1

@GaFBich 22 / 22 / 5 Регистрация: 18.03.2010 Сообщений: 331
	20.03.2010, 19:33 [ТС]
	Всем большое спасибо, буду пробовать). Если чего мигом вернусь и напишу, че до как! Добавлено через 22 часа 45 минут Всем здравствуйте, Чат реализовал с помощью палитры Internet с помощью объектов ClientSocket и ServerSocket, далее задача такого характера, расширяя возможности данного чата, хотелось бы иметь список собеседников, а соответственно нужно чтобы сервер получал IP адреса от клиетов(принудительно), то есть клиент соединяется с сервером и отправляет без участия собеседника первым сообщением индифицирующие данные типа (Ник,IP адрес), это необходимо еще чтобы собеседники общались друг с другом через сервер. Главное условие, чтобы клиент отсылал IP не посредственно тот по которому соединился с сервером. С Уважением, Сергей 0

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	20.03.2010, 21:09
	Сервер ведь может и самостоятельно определить адрес, с которого осуществлено соединение 0