Проверить, доступен ли WinSockDelphi , Интернет и Сети , СокетыПроверить, доступен ли WinSock
Оформил: DeeCo 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: Функция Эта функция возвращает булевое значение, указывающее, включен ли WinSock или нет. Она использует функцию
Процедура Эта процедура вызывается, когда пользователь кликает кнопку на форме. Она использует функцию
Альтернативное решение Если вы хотите упростить код и уменьшить количество строк, можно использовать блок try-except вместо проверки кодов ошибок явно:
Код достигает того же результата, что и оригинальный код, но более компактен и легче для чтения. В статье описывается функция для проверки доступности WinSock в приложении на языке Delphi, которая позволяет определить, является ли эта библиотека активной или нет. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |