Проверить, доступен ли WinSock

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   Winsock;

 function WinsockEnabled: Boolean;
 var
   wsaData: TWSAData;
 begin
   Result := True;
   case Winsock.WSAStartup($0101, wsaData) of
     WSAEINVAL, WSASYSNOTREADY, WSAVERNOTSUPPORTED: Result := False;
     else
       Winsock.WSACleanup;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if WinsockEnabled then
     ShowMessage('Winsock is enabled')
   else
     ShowMessage('Winsock is disabled');
 end;

Here's a translation of the provided Delphi code into Russian:

Функция WinsockEnabled

Эта функция возвращает булевое значение, указывающее, включен ли WinSock или нет. Она использует функцию WSAStartup из библиотеки WinSock для проверки ошибок.

1. Функция инициализирует переменную TWSAData, wsaData, которая будет хранить данные, связанные с запуском WinSock.
2. Она вызывает Winsock.WSAStartup($0101, wsaData) для запуска библиотеки WinSock с версией 1.0. Функция возвращает код ошибки, который проверяется с помощью оператора case.
3. Если код ошибки указывает, что WinSock не включен (специально WSAEINVAL, WSASYSNOTREADY или WSAVERNOTSUPPORTED), функция устанавливает Result в False, указывая, что WinSock отключен.
4. Если не происходит ошибок при запуске, функция вызывает Winsock.WSACleanup для очистки любых ресурсов, использованных WinSock.

Процедура Button1Click

Эта процедура вызывается, когда пользователь кликает кнопку на форме. Она использует функцию WinsockEnabled для проверки включения или отключения WinSock и отображает сообщение соответственно:

1. Процедура проверяет, возвращает ли WinsockEnabled значение True. Если это так, она отображает сообщение о том, что WinSock включен.
2. Если WinsockEnabled возвращает значение False, она отображает сообщение о том, что WinSock отключен.

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

Если вы хотите упростить код и уменьшить количество строк, можно использовать блок try-except вместо проверки кодов ошибок явно:

function WinsockEnabled: Boolean;
var
  wsaData: TWSAData;
begin
  Result := True;
  try
    Winsock.WSAStartup($0101, wsaData);
  except
    on E: Exception do
      Result := False;
  finally
    Winsock.WSACleanup;
  end;
end;

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

В статье описывается функция для проверки доступности WinSock в приложении на языке Delphi, которая позволяет определить, является ли эта библиотека активной или нет.

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

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

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