Отладка кода работы с UDP-сервером в Delphi: решение проблемы с ошибкой 10014

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

Вопрос, поднятый Clément, касается отладки кода на языке Object Pascal (Delphi), который используется для работы с UDP-сервером. Проблема заключается в том, что при выполнении кода события event_ServerReply происходит ошибка с кодом 10014, которая указывает на проблему с буфером (WSAEFAULT). Это происходит в течение первых двух попыток, после чего код работает корректно.

Анализ проблемы

Код Clément использует компонент TDiscoverClient для приёма данных от UDP-сервера. В процедуре event_ServerReply происходит чтение данных из сокета с помощью метода fSender.ReceiveFrom. Однако, переменная lFromLen, которая должна содержать размер буфера для адреса источника, не инициализируется перед вызовом функции, что приводит к неопределённому поведению и, как следствие, к ошибке 10014.

Решение проблемы

Для исправления ошибки необходимо инициализировать переменную lFromLen размером буфера TSockAddr, который обычно составляет sizeof(TSockAddr). Вот исправленный код:

procedure TDiscoverClient.event_ServerReply(aSender: TObject; ErrCode: Word);
const
  _BufferSize = 1024;
var
  lBuffer: TBytes;
  lFromSock: TSockAddr;
  lFromLen: Integer;
  lCount: Integer;
begin
  if ErrCode = 0 then
  begin
    SetLength(lBuffer, _BufferSize);
    lFromLen := SizeOf(lFromSock); // Инициализация переменной lFromLen размером TSockAddr
    lCount := fSender.ReceiveFrom(@lBuffer[0], _BufferSize, lFromSock, lFromLen);
    if lCount > 0 then
    begin
      // Остальная часть кода...
    end
    else
    begin
      if lCount = SOCKET_ERROR then
        fErrMsg := Ics_WSAGetLastError;
    end;
  end;
end;

Также стоит отметить, что в коде Clément проверка на lCount = 0 рассматривается как ошибка, в то время как в протоколе UDP размер сообщения может быть равен нулю. Поэтому проверка на SOCKET_ERROR (значение -1) и вызов WSAGetLastError должны выполняться только в случае, если lCount имеет это значение.

Альтернативное решение

Angus Robertson предложил использовать компонент TIcsIpStrmLog и посмотреть на функцию doSocketRemoteClick в образце Snippets, который предназначен для TCP, но может быть адаптирован под UDP. Это может быть удобным решением для тех, кто предпочитает использовать готовые компоненты вместо написания собственного кода.

Заключение

Исправление, предложенное выше, должно устранить проблему с ошибкой 10014 в коде Clément. Важно всегда внимательно проверять инициализацию всех переменных, особенно тех, которые используются в качестве параметров функций, работающих с сокетами.

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

Код Clément на Object Pascal для работы с UDP-сервером столкнулся с ошибкой WSAEFAULT из-за неинициализированной переменной, отвечающей за размер буфера адреса источника.

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

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

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