Статья: TClientSocket & TServerSocket

}

Понятно, да ? Отлично , дальше остается только рассказать Вам зачем 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 {