Разработать клиент-серверное приложение "Чат" с поддержкой файлового обмена со следующей функциональностью:

- наличие клиент-серверной архитектуры;

- обмен короткими сообщениями;

- передача файлов.

2. Назначение и область применения

2.1 Назначение программы

3. Постановка задачи и разработка алгоритма работы приложения

Необходимо разработать клиент-серверное приложение "Чат" с поддержкой файлового обмена. Приложение должно включать клиентскую и серверную части. Функциональность приложения должна содержать возможность передачи текста и файлов между клиентом и сервером.

Опишем примерный алгоритм работы приложения. Приложение состоит из серверной и клиентской части, в дальнейшем - сервер и клиент. Сервер в рабочем состоянии постоянно находится в состоянии готовности принять соединение от клиента. Клиент инициализирует соединение. После успешного соединения клиент и сервер могут отправлять друг другу текст. Отправка файлов реализована на стороне сервера, прием файлов - на стороне клиента. Разорвать соединение могут как клиент, так и сервер. Алгоритм работы приложения схематично представлен в виде блок-схем, изображенных на рис. 3.1 и 3.2.

Рис. 3.1 Алгоритм работы серверной части приложения

Рис. 3.2 Алгоритм работы клиентской части приложения

4. Решение задачи с помощью программных средств

4.1 Выбор среды разработки

Табл. 4.2.1 Основные значения свойств формы и свойств компонент, размещенных на форме серверной части приложения

Добавим форму к проекту, разместим компоненты согласно рисунка 4.2.2.

Рис. 4.2.2 Внешний вид формы серверной части приложения Чат, предназначенной для отправки сообщений и файлов

Значения свойств формы и свойств компонент, размещенных на форме приведены в таблице 4.2.2.

Табл. 4.2.2 Основные значения свойств формы и свойств компонент, размещенных на форме, предназначенной для отправки сообщений и файлов

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

При запуске серверной части программы "Чат" необходимо указать IP-адрес сервера и выбрать режим работы "On-Line" (рис. 4.2.3). Если сервер и клиент запускаются на одном и том же компьютере, то можно ввести в качестве IP-адреса - 127.0.0.1

Рис. 4.2.3 Окно серверной части приложения после запуска

серверный файл приложение визуальный

В Borland C++ Builder 6 для организации клиент-серверных приложений можно использовать такие компоненты как TServerSocket и TClientSocket. На сервере будем использовать две компоненты TServerSocket - одну для обмена сообщениями, другую для обмена файлами.

После ввода параметров соединения и выбора режима работы "On-Line" обе компоненты TServerSocket активируются и после этого сервер ждет подключения клиента. В режиме "Off-Line" обе компоненты TServerSocket деактивируются, все подключенные к серверу клиенты теряют соединение.

// Выбор режима работы

void __fastcall TMainForm::ComboBox_ServerModeChange(TObject *Sender)

{

// Если On-Line, то:

if (ComboBox_ServerMode->ItemIndex == 0)

{

ServerSocket1->Active = True; // активируем ServerSocket1

ServerSocket2->Active = True; // активируем ServerSocket2

// В строке состояния (внизу программы) пишем "Работаем"

StatusBar1->Panels->Items[0]->Text = "Работаем";

}

// Если Off-Line, то деактивируем ServerSocket1 и ServerSocket2

if (ComboBox_ServerMode->ItemIndex == 1)

{

ServerSocket1->Active = False; // деактивируем ServerSocket1

ServerSocket2->Active = False; // деактивируем ServerSocket2

// В строке состояния (внизу программы) пишем "Не работаем"

StatusBar1->Panels->Items[0]->Text = "Не работаем";

ListBox_ClientList->Clear(); // Очищаем список клиентов

}

}

При подключении клиента он добавляется в список клиентов.

// Когда клиент подсоединился

void __fastcall TMainForm::ServerSocket1ClientConnect(TObject *Sender,

TCustomWinSocket *Socket)

{

// Добавляем его в список клиентов

ListBox_ClientList->Items->Add("Клиент");

}

После этого можно начинать отправку клиенту сообщений или файлов. Для этого нужно сделать двойной щелчок мышью на имени клиента в списке. После чего откроется окно "Отправка-прием" (рис. 4.2.4).

Обработчик события при щелчке на имени клиента в списке клиентов следующий.

// Для отправки сообщения/файла клиенту щелкаем в списке клиентов

// строчку "Клиент"

void __fastcall TMainForm::ListBox_ClientListDblClick(TObject *Sender)

{

SendForm->ShowModal(); // Показываем форму для отправки сообщений

}

Рис. 4.2.4 Основное окно сервера и окно "Отправка-прием"

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

// При нажатии на кнопку "Отправить текст"

void __fastcall TSendForm::Button_SendTextClick(TObject *Sender)

{

// Добавляем отправляемый текст в окно чата

Memo_Chat->Lines->Add("Сервер: "+Edit_SendText->Text);

// Отправляем текст клиенту

MainForm->ServerSocket1->Socket->Connections[0]->SendText("Сервер: " + Edit_SendText->Text);

// Очищаем поле ввода текста

Edit_SendText->Text = "";

}

Для отправки файла необходимо нажать на кнопку "Отправить файл". Обработчик события для этой кнопки следующий.

// Отправка файла клиенту при нажатии кнопки "Отправить файл"

void __fastcall TSendForm::Button_SendFileClick(TObject *Sender)

{

// Открываем диалоговое окно выбора файла

if (SendForm->OpenDialog1->Execute())

{

// Если файл выбран, то используем имя файла

if (SendForm->OpenDialog1->FileName != "")

{

//Открываем файл на чтение и передаем его клиенту

TFileStream* f1=new TFileStream(SendForm->OpenDialog1->FileName, fmOpenRead);

MainForm->ServerSocket2->Socket->Connections[0]->SendStream(f1);

//Добавляем в окно Чата сообщение, что такой-то файл отправлен

Memo_Chat->Lines->Add("Файл " + OpenDialog1->FileName + " отправлен");

}

}

}

При получении сообщения от клиента добавляем его в окно чата, расположенное на форме "Отправка-прием".

// В случае, если от клиента пришло текстовое сообщение

void __fastcall TMainForm::ServerSocket1ClientRead(TObject *Sender,

TCustomWinSocket *Socket)

{

// Заносим его в окно чата

SendForm->Memo_Chat->Lines->Add(Socket->ReceiveText());

}

При отключении клиента от сервера очищаем список клиентов.

// Если клиент отсоединился

void __fastcall TMainForm::ServerSocket1ClientDisconnect(TObject *Sender, TCustomWinSocket *Socket)

{

ListBox_ClientList->Clear(); // Очищаем список клиентов

}

При завершении работы сервера, при закрытии программы, деактивируем сокеты 1 и 2.

// При завершении работы сервера (при закрытии программы)

void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)

{

ServerSocket1->Active = False; // деактивируем ServerSocket1

ServerSocket2->Active = False; // деактивируем ServerSocket2

}

Все вышеприведенные свойства компонент и обработчики событий вводятся непосредственно в среде разработки программного обеспечения - Borland C++ Builder 6, во время разработки приложения. Выделив нужную компоненту из тех, что мы разместили на форме, нужно выбрать в Инспекторе объектов (Object Inspertor) среды Borland C++ Builder 6 то или иное свойство на вкладке Properties или событие на вкладке Events, изменить значение свойства или написать обработчик события.

4.3 Разработка клиентской части

Рис. 4.3.1 Внешний вид формы клиентской части приложения "Чат"

Значения свойств формы и свойств компонент, размещенных на форме приведены в таблице 4.3.1.

Табл. 4.3.1 Основные значения свойств формы и свойств компонент, размещенных на форме клиентской части приложения

Добавим форму к проекту, разместим компоненты согласно рисунка 4.3.2.

Рис. 4.3.2 Внешний вид формы клиентской части приложения Чат, предназначенной для отправки сообщений и приема файлов

Значения свойств формы и свойств компонент, размещенных на форме приведены в таблице 4.3.2.

Табл. 4.2.2 Основные значения свойств формы и свойств компонент, размещенных на форме, предназначенной для отправки сообщений и приема файлов

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

При запуске клиентской части программы "Чат" необходимо указать IP-адрес сервера и выбрать режим работы "On-Line" (рис. 4.3.3). Если сервер и клиент запускаются на одном и том же компьютере, то можно ввести в качестве IP-адреса - 127.0.0.1

Рис. 4.3.3 Окно клиентской части приложения после запуска

В Borland C++ Builder 6 для организации клиент-серверных приложений можно использовать такие компоненты как TServerSocket и TClientSocket. На клиенте будем использовать две компоненты TClientSocket - одну для обмена сообщениями, другую для обмена файлами.

После ввода параметров соединения и выбора режима работы "On-Line" обе компоненты TClientSocket активируются и пытаются подключиться к серверу. В случае удачного подключения к серверу, сервер добавляется в список клиентов. В режиме "Off-Line" обе компоненты TClientSocket деактивируются, и разрывают соединение с сервером.

// Выбор режима работы

void __fastcall TMainForm::ComboBox_ClientModeChange(TObject *Sender)

{

// Если On-Line

if (ComboBox_ClientMode->ItemIndex == 0)

{

// Присваиваем IP-адрес сервера свойству Address сокета 1

ClientSocket1->Address = Edit_IPadress->Text;

ClientSocket1->Active = True; // соединяемся с сервером

// Присваиваем IP-адрес сервера свойству Address сокета 2

ClientSocket2->Address = Edit_IPadress->Text;

ClientSocket2->Active = True; // соединяемся с сервером

// В строке состояния (внизу) программы пишем "Работаем"

StatusBar1->Panels->Items[0]->Text = "Работаем";

// В список клиентов добавляем "Сервер"

ListBox_ClientList->Items->Add("Сервер");

}

// Если Off-Line

if (ComboBox_ClientMode->ItemIndex == 1)

{

ClientSocket1->Active = False;//Деактивируем соединение сокета 1

ClientSocket2->Active = False;//Деактивируем соединение сокета 2

// В строке состояния программы пишем "Не работаем"

StatusBar1->Panels->Items[0]->Text = "Не работаем";

// Очищаем список клиентов

ListBox_ClientList->Clear();

}

}

Если произошла ошибка соединения с сервером, то в строке состояния сообщаем об этом. Также переводим клиента в режим "Off-line" и очищаем список клиентов.

// Если произошла ошибка соединения с сервером

void __fastcall TMainForm::ClientSocket1Error(TObject *Sender,

TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)

{

ErrorCode = 0;

// В строке состояния пишем "Ошибка соединения"

StatusBar1->Panels->Items[0]->Text = "Ошибка соединения";

// В списке режимов работы выбираем "Off-Line"

ComboBox_ClientMode->ItemIndex = 1;

ListBox_ClientList->Clear(); // Очищаем список клиентов

}

В случае удачного подключения к серверу можно начинать отправку сообщений и прием файлов. Для этого нужно сделать двойной щелчок мышью на имени сервера в списке клиентов. После чего откроется окно "Отправка-прием" (рис. 4.3.4).

Обработчик события при щелчке на имени сервера в списке клиентов следующий.

// Для отправки сообщения серверу щелкаем в списке клиентов

// строчку "Сервер"

void __fastcall TMainForm::ListBox_ClientListDblClick(TObject *Sender)

{

SendForm->ShowModal(); // Показываем форму для отправки сообщений

}

Рис. 4.3.4 Основное окно клиента и окно "Отправка-прием"

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

// При нажатии на кнопку "Отправить текст"

void __fastcall TSendForm::Button_SendTextClick(TObject *Sender)

{

// Добавляем отправляемый текст в окно чата

Memo_Chat->Lines->Add("Клиент: "+Edit_SendText->Text);

// Отправляем текст серверу

MainForm->ClientSocket1->Socket->SendText("Клиент: " +

Edit_SendText->Text);

// Очищаем поле ввода текста

Edit_SendText->Text = "";

}

Для приема файла служит компонента ClientSocket2. При получении файла от сервера выполняется следующий обработчик события.

// Прием файла

void __fastcall TMainForm::ClientSocket2Read(TObject *Sender,

TCustomWinSocket *Socket)

{

ShowMessage("Принимается файл...");

//Открывается диалог сохранения файла

if (SendForm->SaveDialog1->Execute())

{

//Если указали имя файла при сохранении файла

if (SendForm->SaveDialog1->FileName != "")

{

Pointer buff; // объявляем буфер

int iLen; // указываем длину буфера

// Создаем файл

TFileStream* f2=new TFileStream(SendForm->SaveDialog1->FileName, fmCreate);

// уточняем размер данных, полученных от сервера

iLen = ClientSocket2->Socket->ReceiveLength();

// выделяем память для буфера

buff = GetMemory(iLen);

//копируем буфер сокета в буфер buff

ClientSocket2->Socket->ReceiveBuf(buff,iLen);

//передаем данные из буфера buff в файл

f2->Write(buff,iLen);

f2->Free();

// добавляем в окно чата сообщение, что файл полуен

SendForm->Memo_Chat->Lines->Add("Файл " + SendForm->SaveDialog1->FileName + " получен");

}

}

}

При получении сообщения от сервера добавляем его в окно чата, расположенное на форме "Отправка-прием".

// При получении сообщения от сервера добавляем его в окно чата

void __fastcall TMainForm::ClientSocket1Read(TObject *Sender,

TCustomWinSocket *Socket)

{

SendForm->Memo_Chat->Lines->Add(ClientSocket1->Socket->ReceiveText());

}

При отключении клиента от сервера выбираем в списке режимов режим "Off-Line", в строке состояния программы указываем "Не работаем", очищаем список клиентов.

// При отсоединении от сервера

void __fastcall TMainForm::ClientSocket1Disconnect(TObject *Sender,

TCustomWinSocket *Socket)

{

// В списке режимов работы указываем "Off-Line"

ComboBox_ClientMode->ItemIndex = 1;

// В строке состояния программы пишем "Не работаем"

StatusBar1->Panels->Items[0]->Text = "Не работаем";

// Очищаем список клиентов

ListBox_ClientList->Clear();

}

При завершении работы клиента, при закрытии программы, деактивируем сокеты 1 и 2.

// В случае закрытия программы разрываем соединение с сервером

void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)

{

ClientSocket1->Active = False; // Деактивируем соединение сокета 1

ClientSocket2->Active = False; // Деактивируем соединение сокета 2

}

Все вышеприведенные свойства компонент и обработчики событий вводятся непосредственно в среде разработки программного обеспечения - Borland C++ Builder 6, во время разработки приложения. Выделив нужную компоненту из тех, что мы разместили на форме, нужно выбрать в Инспекторе объектов (Object Inspertor) среды Borland C++ Builder 6 то или иное свойство на вкладке Properties или событие на вкладке Events, изменить значение свойства или написать обработчик события.

Заключение

Приложения

Приложение 1

// Выбор режима работы

void __fastcall TMainForm::ComboBox_ServerModeChange(TObject *Sender)

{

// Если On-Line, то:

if (ComboBox_ServerMode->ItemIndex == 0)

{

ServerSocket1->Active = True; // активируем ServerSocket1

ServerSocket2->Active = True; // активируем ServerSocket2

// В строке состояния (внизу программы) пишем "Работаем"

StatusBar1->Panels->Items[0]->Text = "Работаем";

}

// Если Off-Line, то деактивируем ServerSocket1 и ServerSocket2

if (ComboBox_ServerMode->ItemIndex == 1)

{

ServerSocket1->Active = False; // деактивируем ServerSocket1

ServerSocket2->Active = False; // деактивируем ServerSocket2

// В строке состояния (внизу программы) пишем "Не работаем"

StatusBar1->Panels->Items[0]->Text = "Не работаем";

ListBox_ClientList->Clear(); // Очищаем список клиентов

}

}

//---------------------------------------------------------------------------

// При завершении работы сервера (при закрытии программы)

void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)

{

ServerSocket1->Active = False; // деактивируем ServerSocket1

ServerSocket2->Active = False; // деактивируем ServerSocket2

}

//---------------------------------------------------------------------------

// Когда клиент подсоединился

void __fastcall TMainForm::ServerSocket1ClientConnect(TObject *Sender,

TCustomWinSocket *Socket)

{

// Добавляем его в список клиентов

ListBox_ClientList->Items->Add("Клиент");

}

//---------------------------------------------------------------------------

// Если произошла ошибка соединения с клиентом

void __fastcall TMainForm::ServerSocket1ClientError(TObject *Sender,

TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)

{

ErrorCode = 0;

// В строке состояния пишем "Ошибка соединения"

StatusBar1->Panels->Items[0]->Text = "Ошибка соединения";

// В списке режимов работы выбираем "Off-Line"

ComboBox_ServerMode->ItemIndex = 1;

ListBox_ClientList->Clear(); // Очищаем список клиентов

}

//---------------------------------------------------------------------------

// Если клиент отсоединился

void __fastcall TMainForm::ServerSocket1ClientDisconnect(TObject *Sender,

TCustomWinSocket *Socket)

{

ListBox_ClientList->Clear(); // Очищаем список клиентов

}

//---------------------------------------------------------------------------

// Для отправки сообщения/файла клиенту щелкаем в списке клиентов

// строчку "Клиент"

void __fastcall TMainForm::ListBox_ClientListDblClick(TObject *Sender)

{

SendForm->ShowModal(); // Показываем форму для отправки сообщений

}

//---------------------------------------------------------------------------

// В случае, если от клиента пришло текстовое сообщение

void __fastcall TMainForm::ServerSocket1ClientRead(TObject *Sender,

TCustomWinSocket *Socket)

{

// Заносим его в окно чата

SendForm->Memo_Chat->Lines->Add(Socket->ReceiveText());

}

//---------------------------------------------------------------------------

Приложение 2

Основной программный код серверной части приложения "Чат". Файл " USendForm.cpp"

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "USendForm.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TSendForm *SendForm;

//---------------------------------------------------------------------------

__fastcall TSendForm::TSendForm(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

// При нажатии на кнопку "Отправить текст"

void __fastcall TSendForm::Button_SendTextClick(TObject *Sender)

{

// Добавляем отправляемый текст в окно чата

Memo_Chat->Lines->Add("Сервер: "+Edit_SendText->Text);

// Отправляем текст клиенту

MainForm->ServerSocket1->Socket->Connections[0]->SendText("Сервер: " +

Edit_SendText->Text);

// Очищаем поле ввода текста

Edit_SendText->Text = "";

}

//---------------------------------------------------------------------------

// Отправка файла клиенту при нажатии кнопки "Отправить файл"

void __fastcall TSendForm::Button_SendFileClick(TObject *Sender)

{

// Открываем диалоговое окно выбора файла

if (SendForm->OpenDialog1->Execute())

{

// Если файл выбран, то используем имя файла

if (SendForm->OpenDialog1->FileName != "")

{

//Открываем файл на чтение и передаем его клиенту

TFileStream* f1 = new TFileStream(SendForm->OpenDialog1->FileName, fmOpenRead);

MainForm->ServerSocket2->Socket->Connections[0]->SendStream(f1);

//Добавляем в окно Чата сообщение, что такой-то файл отправлен

Memo_Chat->Lines->Add("Файл " + OpenDialog1->FileName + " отправлен");

}

}

}

//---------------------------------------------------------------------------

Приложение 3

Основной программный код клиентской части приложения "Чат". Файл "UMainForm.cpp"

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "UMainForm.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TMainForm *MainForm;

//---------------------------------------------------------------------------

__fastcall TMainForm::TMainForm(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

// Выбор режима работы

void __fastcall TMainForm::ComboBox_ClientModeChange(TObject *Sender)

{

// Если On-Line

if (ComboBox_ClientMode->ItemIndex == 0)

{

// Присваиваем IP-адрес сервера свойству Address сокета 1

ClientSocket1->Address = Edit_IPadress->Text;

ClientSocket1->Active = True; // соединяемся с сервером

// Присваиваем IP-адрес сервера свойству Address сокета 2

ClientSocket2->Address = Edit_IPadress->Text;

ClientSocket2->Active = True; // соединяемся с сервером

// В строке состояния (внизу) программы пишем "Работаем"

StatusBar1->Panels->Items[0]->Text = "Работаем";

// В список клиентов добавляем "Сервер"

ListBox_ClientList->Items->Add("Сервер");

}

// Если Off-Line

if (ComboBox_ClientMode->ItemIndex == 1)

{

ClientSocket1->Active = False; // Деактивируем соединение сокета 1

ClientSocket2->Active = False; // Деактивируем соединение сокета 2

// В строке состояния программы пишем "Не работаем"

StatusBar1->Panels->Items[0]->Text = "Не работаем";

// Очищаем список клиентов

ListBox_ClientList->Clear();

}

}

//---------------------------------------------------------------------------

// В случае закрытия программы разрываем соединение с сервером

void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)

{

ClientSocket1->Active = False; // Деактивируем соединение сокета 1

ClientSocket2->Active = False; // Деактивируем соединение сокета 2

}

//---------------------------------------------------------------------------

// Если произошла ошибка соединения с сервером

void __fastcall TMainForm::ClientSocket1Error(TObject *Sender,

TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)

{

ErrorCode = 0;

// В строке состояния пишем "Ошибка соединения"

StatusBar1->Panels->Items[0]->Text = "Ошибка соединения";

// В списке режимов работы выбираем "Off-Line"

ComboBox_ClientMode->ItemIndex = 1;

ListBox_ClientList->Clear(); // Очищаем список клиентов

}

//---------------------------------------------------------------------------

// При отсоединении от сервера

void __fastcall TMainForm::ClientSocket1Disconnect(TObject *Sender,

TCustomWinSocket *Socket)

{

// В списке режимов работы указываем "Off-Line"

ComboBox_ClientMode->ItemIndex = 1;

// В строке состояния программы пишем "Не работаем"

StatusBar1->Panels->Items[0]->Text = "Не работаем";

// Очищаем список клиентов

ListBox_ClientList->Clear();

}

//---------------------------------------------------------------------------

// Для отправки сообщения серверу щелкаем в списке клиентов

// строчку "Сервер"

void __fastcall TMainForm::ListBox_ClientListDblClick(TObject *Sender)

{

SendForm->ShowModal(); // Показываем форму для отправки сообщений

}

//---------------------------------------------------------------------------

// При получении сообщения от сервера добавляем его в окно чата

void __fastcall TMainForm::ClientSocket1Read(TObject *Sender,

TCustomWinSocket *Socket)

{

SendForm->Memo_Chat->Lines->Add(ClientSocket1->Socket->ReceiveText());

}

//---------------------------------------------------------------------------

// Прием файла

void __fastcall TMainForm::ClientSocket2Read(TObject *Sender,

TCustomWinSocket *Socket)

{

ShowMessage("Принимается файл...");

//Открывается диалог сохранения файла

if (SendForm->SaveDialog1->Execute())

{

//Если указали имя файла при сохранении файла

if (SendForm->SaveDialog1->FileName != "")

{

Pointer buff; // объявляем буфер

int iLen; // указываем длину буфера

// Создаем файл

TFileStream* f2 = new TFileStream(SendForm->SaveDialog1->FileName, fmCreate);

// уточняем размер данных, полученных от сервера

iLen = ClientSocket2->Socket->ReceiveLength();

// выделяем память для буфера

buff = GetMemory(iLen);

//копируем буфер сокета в буфер buff

ClientSocket2->Socket->ReceiveBuf(buff,iLen);

//передаем данные из буфера buff в файл

f2->Write(buff,iLen);

f2->Free();

// добавляем в окно чата сообщение, что файл получен

SendForm->Memo_Chat->Lines->Add("Файл " + SendForm->SaveDialog1->FileName + " получен");

}

}

}

//---------------------------------------------------------------------------

Приложение 4

Основной программный код клиентской части приложения "Чат". Файл " USendForm.cpp"

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "USendForm.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TSendForm *SendForm;

//---------------------------------------------------------------------------

__fastcall TSendForm::TSendForm(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

// При нажатии на кнопку "Отправить текст"

void __fastcall TSendForm::Button_SendTextClick(TObject *Sender)

{

// Добавляем отправляемый текст в окно чата

Memo_Chat->Lines->Add("Клиент: "+Edit_SendText->Text);

// Отправляем текст серверу

MainForm->ClientSocket1->Socket->SendText("Клиент: " +

Edit_SendText->Text);

// Очищаем поле ввода текста

Edit_SendText->Text = "";

Размещено на Allbest.ru