Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

19th
Июл

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

Posted by Chas under Пост-обзор

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

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;