Устранение ошибки 10051 при установлении соединения с использованием API Winsock в Delphi

Delphi , Интернет и Сети , Сокеты

Ошибка с кодом 10051 в Winsock API указывает на проблему с неверно указанным адресом сервера. В представленном коде проблема заключается в том, что функция inet_addr получает некорректный аргумент из-за неправильного преобразования строки. Давайте разберемся, как исправить эту ошибку.

Описание проблемы

При попытке установить соединение с интернет-сервисом (в данном случае, с google.com) через Winsock API, функция WSAGetLastError возвращает код ошибки 10051. Это означает, что произошла ошибка в процессе преобразования адреса сервера.

Пример кода, вызывающего ошибку

program Project1;
uses
  Windows, SysUtils, WinSock;
function GetIPFromHostName(const HostName: string): string;
begin
  // ... (код функции GetIPFromHostName)
end;
function IsConnectedToInternet: Boolean;
var
  // ... (переменные и код функции IsConnectedToInternet)
begin
  // ... (код установления соединения, где ошибка)
  SockAddr1.sin_addr.S_addr := inet_addr(PAnsiChar(GetIPFromHostName('google.com')));
  // ... (дальнейший код функции)
end;
begin
  IsConnectedToInternet;
  readln;
end.

Подтвержденное решение

Проблема заключается в неправильном преобразовании строки при вызове функции inet_addr. Функция ожидает ANSI-строку, но в коде используется преобразование Unicode-строки в ANSI через PAnsiChar, что приводит к передаче некорректных данных.

Исправленный код:

SockAddr1.sin_addr.S_addr := inet_addr(PAnsiChar(AnsiString(GetIPFromHostName('google.com'))));

Альтернативные способы проверки соединения

Для проверки соединения с интернетом можно использовать другие API, предоставляемые Windows, например:

• InternetCheckConnection
• InternetGetConnectedState
• Интерфейс INetworkListManager (доступен начиная с Windows Vista)

Пример использования InternetCheckConnection:

const
  FLAG_ICC_FORCE_CONNECTION = 1;
begin
  if not InternetCheckConnection('http://google.com', FLAG_ICC_FORCE_CONNECTION, 0) then
    RaiseLastOSError;
end;

Заключение

Исправление кода, связанного с преобразованием строк, устраняет ошибку 10051. Также стоит рассмотреть использование альтернативных методов проверки соединения, предоставляемых Windows API, для повышения надежности и удобства вашего приложения.

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

и решения ошибки 10051 при установлении соединения через Winsock API в Delphi, связанной с неправильным преобразованием строки адреса сервера.

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

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

:: Главная :: Сокеты ::