Настройка TCP-общения между C# клиентом и сервером на Delphi: пошаговое руководство

Delphi , Интернет и Сети , TCP/IP

Конечно, в контексте заданной задачи важно понимать, что проблема связана с обработкой данных при помощи TCP/IP протоколов между клиентом на C# и сервером на Delphi. Основная ошибка заключается в том, что после отправки одной строки текста, соединение закрывается автоматически, что не позволяет поддерживать постоянное взаимодействие без переподключения.

Введение

Для начала работы с TCP/IP обменом данными важно понимать основные принципы работы сетевых соединений. В рамках этой статьи мы рассмотрим, как настроить TCP-сервер в среде разработки Delphi для приема сообщений от C# клиента и как обеспечить непрерывную передачу данных без необходимости постоянного переподключения.

Создание TCP сервера на Delphi

Для начала создадим базовый TCP сервер. В обработчике события FormCreate инициализируем экземпляр TTcpServer, который будет слушать входящие соединения:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Clear;
  // Инициализация сервера
  with TcpServer1 do
  begin
    Active := False;
    Port := DEFAULT_PORT;
    OnExecute := TcpServer1Execute;
    Active := True;
  end;
end;

Обработка входящих соединений

В обработчике TcpServer1Execute реализуем бесконечный цикл для приема данных от клиента:

procedure TForm1.TcpServer1Execute(AContext: TIdContext);
var
  Socket: TIdTCPConnection;
  aLine: string;
begin
  Socket := AContext.Connection;

  try
    repeat
      aLine := Socket.ReceiveLn;
      Memo1.Lines.Add(aLine);
    except
      on E: Exception do
        if (E is EIdIOException) and (E.Message = 'Socket closed') then
          break; // Соединение закрыто, выходим из цикла
    end;
  finally
    Socket.Free;
  end;
end;

Обновление клиента на C

Теперь обновим код C# клиента так, чтобы он мог отправлять сообщения без переподключения. Убедимся, что поток NetworkStream открыт и используется корректно:

public static void Main(string[] args)
{
    using (var client = new TcpClient())
    {
        try
        {
            client.Connect("127.0.0.1", 2501); // Подключение к серверу

            var stream = client.GetStream();
            while (true) // Бесконечный цикл для отправки сообщений
            {
                string message = "some line of text " + messageNum.ToString() + "\r\n";
                byte[] data = Encoding.ASCII.GetBytes(message);
                stream.Write(data, 0, data.Length);

                System.Threading.Thread.Sleep(2500); // Задержка между сообщениями
                messageNum++;
            }
        }
        catch (Exception e)
        {
            Console.WriteLine(e.Message);
        }
    }
}

Подтвержденный ответ

Проблема с закрытием соединения после первой отправки текста решена путем добавления бесконечного цикла в обработчике TcpServer1Execute и использования блока using для корректного управления ресурсами в клиентской части на C#.

Альтернативный ответ

В контексте альтернативных подходов, важно отметить, что существуют различные методы работы с сетевыми потоками. Например, можно использовать асинхронные операции для обработки входящих данных и избежать блокировки основного потока.

Заключение

В данной статье мы рассмотрели, как настроить TCP-общение между C# клиентом и сервером на Delphi, используя примеры кода на Object Pascal (Delphi) и C#. Следуя этим рекомендациям, вы сможете обеспечить эффективную и надежную передачу данных между приложениями, написанными на разных языках программирования.

Создано по материалам из источника по ссылке.

Установка постоянного TCP-соединения для обмена данными между C# клиентом и сервером на Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TCP/IP ::