Статья

Статья TClientSocket TServerSocket

Работа добавлена на сайт bukvasha.net: 2015-10-29

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 15.3.2025



TClientSocket & TServerSocket

Макагон Сергей

В C++Builder 6 для передачи какой-либо информации по сети удобнее всего использовать компоненты закладки Internet: TClientSocket и TServerSocket.

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

Для начала создадим новый проект(File->New->Application), поместим на форму компоненты:

TClientSocket и TServerSocket , чтобы наша программа могла быть и клиентом и сервером (не одновременно конечно ;) ).

Далее разместим компонент TMemo (закладка Standart) - в нем как вы догадались будет отображаться текст чата.

Следующим на форму нужно кинуть компонент TEdit (Standart) - в него мы будем писать текcт, который нужно отправить собеседнику.

Ну и конечно тяжело обойтись без кнопки отправить - кидаем на форму TButton . Кроме того что уже есть на форме, нам еще понадобится три кнопки и два эдита (TEdit) (их назначение описывается по ходу обращения к ним) .

Итак, на форме :

ClientSocket1 и ServerSocket1

Memo1

Edit1,Edit2,Edit3

Button1,Button2,Button3,Button4

Теперь изменяем свойства:

Button1->Caption на "Отправить"

Button2->Caption на "Создать"

Button3->Caption на "Соединиться" и

Button4->Caption на "Отключить" .

Убираем текст во всех Эдитах . Свойство Memo1->ReadOnly = true ,

ClientSocket1->Host - нужно написать IP-адрес сервера к которому вы будете присоеденяться

(IP-адресс устанавливается в настройках соединения Windows), если прописать 127.0.0.1 , то вы будете конектиться к себе на компьютер (так удобно делать, когда проверяешь на работоспособность свою программу. Запустив ее дважды, одна клиент с 127.0.0.1 , а другая сервер !) если же вы коннектитесь к другу, то заранее договоритесь какой будет Ай-Пи-адрес (143.0.0.5 - например). Но для того чтобы Ай-Пи -адресс можно было легко сменить, мы и положили на форму один из Эдитов, его текст при коннекте и будет отвечать свойству ClientSocket1->Host и ClientSocket1->Address .

В свойстве ClientSocket1->Port и ServertSocket1->Port - должны стоять одинаковые значения, чтобы Сервер и Клиент прослушивали и работали на один порт . Число можно выбрать любое (1024 например).

Кнопку "Отключиться" изначально нужно сделать недоступной(Enabled = false)так как вначале отсоеденяться нам нет от кого .

Дальше опишем обработчики событий для кнопок "Создать", "Соединиться", "Отключить" .

Кнопка "Создать" - активизирует сервер. Он начинает прослушивать порт на коннект со стороны клиента .

void __fastcall TForm1::Button2Click(TObject *Sender)

{

ServerSocket1->Active = true ;

// Делаем недоступную "Соединиться" (так как мы уже сервер)

Button3->Enabled = false

// Делаем доступную "Отключиться" (понятно зачем)

Button4->Enabled = true

Memo1->Lines->Add("Сервер создан") ;

}

Так наша программа стала сервером !

Давайте опишем клиента!(Кнопка "Соединиться")

В Edit3->Text впишите 127.0.0.1 - предполагается что тестироваться будет на одном компьютере (что б других не заморачивать:)

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Edit3->Text = ClientSocket1->Host // Присваиваем Клиенту Ай-Пи из Эдита

Edit3->Text = ClientSocket1->Address

ServerSocket1->Active = true ;

// Делаем недоступную "Создать" (так как мы коннектимся)

Button2->Enabled = false

// Делаем доступную "Отключиться" (понятно зачем)

Button4->Enabled = true

}

Вот Вы и написали тот минимум который надо для освоения компонентов !

Но кто хочет останавливаться ? А чат доделать ! Правильно пишем дальше:

Дальше будем описывать свойства компонентов Клиента и Сервера OnConnect (когда присоединился) .

void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,

TCustomWinSocket *Socket)

{

Memo1->Lines->Add("Клиент присоединился");

}

Это когда вы сервер и к Вам присоединились, на Мемо появится надпись !

Для клиента почти так само :

void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,

TCustomWinSocket *Socket)

{

Memo1->Lines->Add("Вы присоединены");

}

Понятно, да ? Отлично , дальше остается только рассказать Вам зачем Edit2 на форме и описать кнопку "Отправить" .

Итак, Эдит2 нам нужен для Вашего ника ! Ведь какой чат без ника !

Теперь самое главное - описание кнопки "Отправить :

if(Edit2->Text == "")

ShowMessage("Введите Ваш ник !");

return ;

}

if(Edit1->Text == "")

{

ShowMessage("Введите текст который надо отправить");

return ;

}

//Это была обработка исключительных ситуаций , типа пустых строк ввода ;

Memo1->Lines->Add(Edit2->Text+":: "+ Edit1->Text) ;

if (ServerSocket1->Active == true) {

ServerSocket1->Socket->Connections[0]->

 SendText(Edit2->Text+"::"+Edit1->Text); }

else

{ ClientSocket1->Socket->SendText(Edit2->Text+"::"+Edit1->Text);}

Edit1->Text = "" ;

}

Теперь разберемся с этой кучей кода :

//добавляем свое сообщение себе в Мемо

Memo1->Lines->Add(Edit2->Text+":: "+ Edit1->Text) ;

if (ServerSocket1->Active == true){ServerSocket1->Socket->

Connections[0]->SendText(Edit2->Text+"::"+Edit1->Text)};

Если мы сервер, то посылаем нашу строку первому в списке клиенту ( чат розщитан на двоих ) , иначе :

else {

ClientSocket1->Socket->SendText(Edit2->Text+"::"+Edit1->Text);

}

Посылаем строку серверу !

Независимо от того кто мы (клиент-сервер)

Очищаем Эдит1 :

Edit1->Text = "" ;

Также надо описать прием информации и занесение ее в Мемо1. Делается это обработчиком события OnRead у TClientSocket и TserverSocket :

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,

TCustomWinSocket *Socket)

{

Memo1->Lines->Add(Socket->ReceiveText()) ;

}

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,

TCustomWinSocket *Socket)

{

Memo1->Lines->Add(Socket->ReceiveText()) ;

}

Вот вроди бы и все. С TClientSocket и TserverSocket разобрались , а кого заинтересовала тема чата, заходите в раздел "Мои программы" И качайте доделанную мной, с большим колличеством настроек программу вместе с исходниками.

Список литературы

Для подготовки данной работы были использованы материалы с сайта http://www.realcoding.net/



1. Реферат на тему Работа с ветеранами Семейный досуг Туризм
2. Реферат Анализ бухгалтерского учёта на предприятии
3. Реферат Особенности инфляции в России
4. Реферат на тему The Merchant Of Venice And Henry V
5. Реферат История возникновения и современная деятельность Министерства радиационной и экологической безоп
6. Реферат на тему Русское масонство
7. Курсовая Аналіз культурного характеру соціальної діяльності
8. Диплом на тему Некоторые особенности спектрально кинетических характеристик люминофоров на основе ZnS Cu
9. Шпаргалка на тему Вопросы по информатике
10. Курсовая Проектирование интерьеров жилого малоэтажного здания бизнес-класса