[Artempokrowski]

Сообщение от Dimakrat

С Socket знакомлюсь только, судите не строго.

Проблема вот в чем. При подключении клиента, нужно что бы вывелось сообщение вида "Клиент, Ник клиента, подключился!" Делал через Socket.SendText. Получается так, "Клиент, подключился" и на новой строчке Ник клиента. Скрин выложил.
Вложение 1489

Код сервера:

Код:

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;

Выложи весь код пожалуйста.