Создание сетевого чата на C++ Builder 6

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

Создаем две папки: сервер и клиент.

Для начала создадим сервер.  Запустим билдер,  создадим новый проект (File->New->Application).  Сразу сохраним его в папку «сервер». Добавляем на формы следующие компоненты и изменяем свойства:

• Label1 — В свойстве Caption пишем «Порт»
• Edit1 — В свойстве Text пишем «5648», это будет наш порт для подключения, можно задать любой другой.
• Button1 — В свойстве Caption пишем «Создать»
• Memo1 — В свойстве Lines удаляем все строки
• Edit2 — В свойстве Text стираем все символы
• Button2 — В свойстве Caption пишем «Отправить»
• ServerClient1 — Ничего не меняем

Теперь необходимо переименовать наши компоненты,  для этого изменяем свойство «Name»:

• Label1 — Оставим как есть
• Edit1 -> EditPort
• Button1 -> ButtonStart
• Memo1 -> MemoMessages
• Edit2 -> EditMessage
• Button2 -> ButtonSend
• ServerClient1 -> ServerClient
• Form1 -> FormMain

Все компоненты аккуратно расставили, и теперь начинаем писать код. Дважды щелкаем по кнопке «Создать», пешем следующий код:

EditPort->Enabled = false; //Отключаем поле ввода порта
ButtonStart->Enabled = false; //Отключаем кнопку запуска
ServerSocket->Port = EditPort->Text.ToInt(); //Задаем серверу порт
ServerSocket->Active = true; //Включаем сервер

Далее нам необходимо написать функцию рассылки сообщений, ее нужно писать после функции __fastcall TFormMain::TFormMain(TComponent* Owner). Код:

void TFormMain::SendingMessages(AnsiString Message) //Функция рассылки сообщений
{
  MemoMessages->Lines->Add(Message); //Вывод сообщения на экран
  for(int i = 0; i < ServerSocket->Socket->ActiveConnections; i++) //Цикл перебирает всех подключенных
  {
    ServerSocket->Socket->Connections[i]->SendText(Message); //Рассылка сообщений
  }
}

Кстати еще в .h файле в разделе private необходимо написать void SendingMessages(AnsiString Message);

Вернемся на форму, выберем у ServerSocket обработчик OnClientRead в вкладке Events, щелкаем два раза, пишем код:

SendingMessages(Socket->ReceiveText()); //Читаем сообщения и рассылаем их через функцию SendingMessages()

Щелкаем два раза по кнопке отправить, пишем код:

SendingMessages("Сервер: " + EditMessage->Text); //Рассылаем сообщение через функцию SendingMessages()

И последнее, выберем у формы обработчик OnClose и впишем в него:

ServerSocket->Active = false; //При закрытии формы отключаем сервер

Компилируем, сервер готов.

Теперь напишем клиент. Создаем новый проект (File->New->Application).  Сразу сохраним его в папку «клиент». Добавляем на формы следующие компоненты и изменяем свойства:

• Label1 — В свойстве Caption пишем «Порт»
• Label2 — В свойстве Caption пишем «Хост»
• Label3 — В свойстве Caption пишем «Ник»
• Edit1 — В свойстве Text пишем «5648», это будет наш порт для подключения, можно задать любой другой.
• Edit2 — В свойстве Text пишем «127.0.0.1»
• Edit2 — В свойстве Text пишем «Гость»
• Button1 — В свойстве Caption пишем «Подключиться»
• Memo1 — В свойстве Lines удаляем все строки
• Edit2 — В свойстве Text стираем все символы
• Button2 — В свойстве Caption пишем «Отправить»
• ServerSocket1 — Ничего не меняем 🙂

Теперь необходимо переименовать наши компоненты,  для этого изменяем свойство «Name»:

• Label1 -> Оставим как есть
• Label2 -> Оставим как есть
• Label3 -> Оставим как есть
• Edit1 -> EditPort
• Edit2 -> EditHost
• Edit2 -> EditName
• Button1 -> ButtonConnect
• Memo1 -> MemoMessages
• Edit2 -> EditMessage
• Button2 -> ButtonSend
• ServerSocket1 -> ServerSocket

Пишем код для компонентов, начнем с кнопки «Подключиться»:

EditPort->Enabled = false; //Отключаем поле ввода порта
EditHost->Enabled = false; //Отключаем поле ввода хоста
EditName->Enabled = false; //Отключаем поле ввода ника
ButtonConnect->Enabled = false; //Отключаем кнопку подключения
ClientSocket->Port = EditPort->Text.ToInt(); //Задаем клиенту порт для подключения
ClientSocket->Host = EditHost->Text; //Задаем клиенту хост для подключения
ClientSocket->Active = true; //Включаем клиента

Кнопка «Отправить»:

ClientSocket->Socket->SendText(EditName->Text + ": " + EditMessage->Text); //Отсылаем на сервер ник и сообщение

Обработчик OnRead у компонента ClientSocket:

MemoMessages->Lines->Add(Socket->ReceiveText()); //Выводим на экран принятое сообщение

Обработчик OnClose у формы:

ClientSocket->Active = false; //При закрытии формы отключаем клиента

Все, клиент тоже готов. Компилируем…
Теперь можем проверить работоспособность нашего чата, для этого сначала запускаем сервер, жмем «создать». Затем запускаем клиент, жмем «Соединиться». Пробудем писать, сообщения должны отсылаться и отображаться в каждом окне.

Исходник: sozdanie-setevogo-chata-na-c-builder-6.zip

Будут вопросы, обращайтесь!