Как исправить ошибку "Connection reset by peer" в Delphi FireMonkey?

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

Статья о решении проблемы, связанной с возникновением ошибки "Connection reset by peer" при работе TCP-сервера на Delphi FireMonkey. Рассмотрим основные моменты и предоставлю пошаговое руководство для исправления этой ситуации.

Иногда разработчики сталкиваются с проблемой, когда сервер, написанный на Delphi с использованием компонентов Indy, выдает ошибку "Connection reset by peer". Это означает, что клиентское приложение обрывает соединение до того, как сервер ожидает завершения передачи данных. Давайте разберемся в этом вопросе.

Шаг 1: Проверка клиентского кода

Первым шагом является проверка клиентской части на предмет правильности закрытия соединения. В примере, предоставленном пользователем, клиентский скрипт на Python завершает работу после первого приема данных, что приводит к неожиданному обрыву соединения.

import socket

s = socket.socket(socket.AF_INET,socket.SOCK_STREAM)
s.connect(('127.0.0.1',16000))
data = 'TESTSTRING';
s.send(data.encode())
while True:
    resp = s.recv(1024)
    if resp == "":
        print('NOTHING')
        break
    else:
        print(resp)
        break
# Закрытие соединения не было выполнено здесь, так как цикл завершается без вызова s.close()
print("\ndone")

Исправление: Необходимо убедиться, что клиент закрывает соединение корректно. Это можно сделать с помощью блока finally или поместив вызов s.close() после цикла.

import socket

s = socket.socket(socket.AF_INET,socket.SOCK_STREAM)
s.connect(('127.0.0.1',16000))
data = 'TESTSTRING';
s.send(data.encode())
while True:
    resp = s.recv(1024)
    if resp == "":
        break
    else:
        print(resp.decode())  # декодирование ответа в строку
        break

# Закрытие соединения после получения данных (или по истечении заданного времени ожидания)
finally:
    s.close()
print("\ndone")

Шаг 2: Проверка серверной логики

Следующим шагом является проверка логики работы сервера. В примере кода, предоставленном пользователем, используется метод ReadLn(), который ждет получения строки с символом перевода строки (LF). Если клиент не отправляет такой символ, то сервер ожидает бесконечно.

Исправление: Можно изменить логику чтения данных на более гибкую. Например, читать фиксированное количество байтов или использовать таймаут для обработки случаев, когда клиент забыл закрыть соединение:

procedure TForm1.TCPServerExecute(AContext: TIdContext);
var
  C: string;
begin
  try
    // Чтение данных без ожидания перевода строки
    SetLength(C, AContext.Connection.IOHandler.InputBufferSize);
    AContext.Connection.Socket.ReadBuffer(C[0], Length(C));
    // Обработка полученных данных...
  except
    on E: Exception do
      // Логирование или обработка ошибки соединения
  end;
end;

Шаг 3: Тестирование и отладка

После внесения изменений важно провести тестирование сервера с различными клиентами, чтобы убедиться в его надежности и корректной работе.

Примечание: Ошибка "Connection reset by peer" является ожидаемым поведением Indy при обрыве соединения со стороны клиента. Поэтому нет необходимости вносить изменения в серверный код, если он уже правильно обрабатывает исключения и закрытие сокетов.

Придерживаясь этих шагов, вы сможете устранить ошибку "Connection reset by peer" в вашем Delphi FireMonkey приложении и обеспечить стабильную работу TCP-сервера.

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

Статья описывает причину возникновения ошибки 'Connection reset by peer' при работе TCP-сервера на Delphi FireMonkey и предлагает пошаговое руководство для её исправления. ```

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

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

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