С Socket знакомлюсь только, судите не строго.
Проблема вот в чем. При подключении клиента, нужно что бы вывелось сообщение вида "Клиент, Ник клиента, подключился!" Делал через Socket.SendText. Получается так, "Клиент, подключился" и на новой строчке Ник клиента. Скрин выложил.
Безымянный1.JPG
Код сервера:
Код:
procedure TForm2.ServerSocketClientConnect(Sender: TObject; Socket:TCustomWinSocket);
var nik:string;
begin
nik:=Socket.ReceiveText;
Memo1.Lines.Add('(['+DateToStr(Now)+']:['+TimeToStr(Now)+']) Клиент,'+nik+'подключился');
end;
код клиента:
Код:
procedure TForm2.ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('[('+DateToStr(Now)+'):('+TimeToStr(Now)+')] Подключились');
Socket.SendText(Form1.NikEdit.Text);
end;