Проблема с компонентами TTcpClient, TTcpServer

[RADE]

Всем привет. Решил научиться работать с сетью, для этого использую компоненты TTcpClient и TTcpServer. Проблема в том, что после отправки строки функцией sendln второй раз отправить уже не получается. Пишу в RAD Studio 2010.

Сервер:

procedure TForm1.tcpServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
  lblChat.Caption := lblChat.Caption+#13+#10+ClientSocket.Receiveln;
end;

Клиент:

procedure TForm2.btnSendClick(Sender: TObject);
begin
  tcpClient.Sendln('Client: '+txtSendData.Text);
end;

Если нужно, напишу весь код.

[lux16]

Вот выдержка из примера от Borland:

procedure TForm1.TcpServer1Accept(sender: TObject;
  ClientSocket: TCustomIpClient);
var
  s: string;
  DataThread: TClientDataThread;
begin
  // create thread
  DataThread:= TClientDataThread.Create(true);
  // set the TagetList to the gui list that you
  // with to synch with.
  DataThread.TargetList := memRecv.lines;

  // Load the Threads ListBuffer
  DataThread.ListBuffer.Add('*** Connection Accepted ***');
  DataThread.ListBuffer.Add('Remote Host: ' + ClientSocket.LookupHostName(ClientSocket.RemoteHost) +
   ' (' + ClientSocket.RemoteHost + ')');
  DataThread.ListBuffer.Add('===== Begin message =====');
  s := ClientSocket.Receiveln;
  while s <> '' do
  begin
    DataThread.ListBuffer.Add(s);
    s := ClientSocket.Receiveln;
  end;
  DataThread.ListBuffer.Add('===== End of message =====');

  // Call Resume which will execute and synch the
  // ListBuffer with the TargetList
  DataThread.Resume;

end;

Проще простого, я как то сам такой фигней занимался

[RADE]

Спасибо за помощь. Столкнулся еще с одной проблемой, но успешно решил ее самостоятельно

Еще один вопрос. Какое событие tcpClient вызывается, когда он принимает данные с сервера?

[lux16]

Хм, в этом то вся и проблема, если хочешь иметь полную функциональность программы, то тебе необходимо иметь как сервер, так и клиент