ServerSocket + ClienSocket
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