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

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

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com