Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата

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 (когда присоединился) .

Рекомендуем скачать другие рефераты по теме: пример реферата, диплом.





Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата