ServerSocket + ClienSocket
Создаю чат на основе компонентов ServerSocket + ClienSocket. При подключении клиента нужно передать ник клиента серверу. Никак не получается...
ClientSocket1->Socket->SendText(Klient); - в клиенте при подключении
а в Servere прописал
где txt - и должнен быть ник клиента..., а там пусто ...
Что не так делаю ?
ClientSocket1->Socket->SendText(Klient); - в клиенте при подключении
а в Servere прописал
Код:
void __fastcall TMainForm::ServerSocket1ClientConnect(TObject *Sender,
TCustomWinSocket *Socket)
{
String txt;
lstClientList->Items->Add("Клиент присоединился "+ TimeToStr(Now()));
txt=Socket->ReceiveText();
}
TCustomWinSocket *Socket)
{
String txt;
lstClientList->Items->Add("Клиент присоединился "+ TimeToStr(Now()));
txt=Socket->ReceiveText();
}
Что не так делаю ?
обрабатывай событие ClientRead, а не ClientConnect
