TClientSocket & TServerSocket
Категория реферата: Рефераты по информатике, программированию
Теги реферата: курсовые, реферат китай курсовые работы
Добавил(а) на сайт: Giacint.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
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)
{
Рекомендуем скачать другие рефераты по теме: пример реферата, диплом.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата