А. Григорьев - О чём не пишут в книгах по Delphi

Программа может устанавливать свою процедуру, которая будет вызываться во время выполнения блокирующей операции. Для этого предусмотрены функции WSASetBlockingHookи WSAUnhookBlockingHook.

Данная модель неудобна, поэтому разработчики WinSock 1 рекомендуют модель асинхронных сокетов, более приспособленную к особенностям Windows.

В 32-разрядных версиях WinSock такая модель работы поддерживается в полном объеме, за исключением того, что по умолчанию при блокирующем вызове не вызывается никакая функция. Поэтому если не вызове не вызывается никакая функция. Поэтому если не использовать WSASetBlockingHook, то в 32-разрядном приложении невозможно получить ситуацию, когда операция с сокетом не будет выполнена из-за того, что в этот момент уже выполняется другая операция, и второй активации оконной процедуры из-за блокирующего вызова тоже не будет создано. Отметим, что разные нити могут одновременно выполнять блокирующие операции с сокетами, и это не приведет к появлению ошибки WSAEINPROGRESS.

Все перечисленные функции формально исключены из спецификации WinSock 2, хотя фактически они присутствуют в библиотеке WS2_32.dll и при необходимости могут быть задействованы (это, правда, осложняется тем, что в новых версиях MSDN отсутствует их описание). Тем не менее причин ориентироваться на эту неудобную модель в 32-разрядных версиях Windows, видимо, нет. Описание этих функций мы здесь привели только для того, чтобы упоминания об ошибках WSAEINPROGRESSи WSAECANCELLED, которые иногда встречаются в MSDN, не смущали вас.

Ранее мы уже видели, что передача данных через сокет осуществляется одними и теми же функциями независимо от протокола. Но при этом программа должна учитывать, является ли протокол потоковым, дейтаграммным или иным. Кроме того, информация о протоколе требуется для создания сокета и для распределения ролей между клиентом и сервером при установлении соединения. Чтобы работать с любым протоколом, программа должна иметь возможность получить всю эту информацию и выполнить на основе ее те или иные действия. Могут также понадобиться такие сведения, как максимальное число сокетов, поддерживаемых провайдером протокола, допустимый диапазон адресов, максимальный размер сообщений для дейтаграммных протоколов и т.д. Для хранения полного описания протокола и его провайдера в WinSock 2 предусмотрена структура WSAPROTOCOL_INFO. Она не описана в модуле WinSock, т.к. в WinSock 1 ее нет. Тем, кто захочет использовать эту структуру, придется самостоятельно добавлять ее описание в программу. Листинг 2.36 показывает, как выглядит эта структура.

// ***** Описание на C++ *****

typedef struct _WSAPROTOCOLCHAIN {

int ChainLen;

DWORD ChainEntries[MAX_PROTOCOL_CHAIN];

} WSAPROTOCOLCHAIN, *LPWSAPROTOCOLCHAIN;

typedef struct _WSAPROTOCOL_INFO {

DWORD dwServiceFlags1;

DWORD dwServiceFlags2;

DWORD dwServiceFlags3;

DWORD dwServiceFlgs4;

DWORD dwProviderFlags;

GUID ProviderId;

DWORD dwCatalogEntryId;

WSAPROTOCOLCHAIN ProtocolChain;

int iVersion;

int iAddressFamily;

int iMaxSockAddr;

int iMinSockAddr;

int iSocketType;

int iProtocol;

int iProtocolMaxOffset;

int iNetworkByteOrder;

int iSecurityScheme;

DWORD dwMessageSize;

DWORD dwProviderReserved;

TCHAR szProtocol[WSAPROTOCOL_LEN - 1];

} WSAPROTOCOL_INFO, *LPWSAPROTOCOL_INFO;

// ***** Описание на Delphi *****

TWSAProtocolChain = packed record

ChainLen: Integer;

ChainEntries: array[0..MAX_PROTOCOL_CHAIN - 1] of DWORD;

end;

//Структура на C++ содержит тип TCHAR, который, как мы

// говорили в главе 1, может означать как Char,

// так и WideChar, т.е. структура должна иметь

// два варианта описания: TWSAProtocolInfoA для

// однобайтной кодировки и TWSAProtocolInfo для

// двухбайтной. Соответственно, все функции

// использующие эту структуру, реализованы

// в системных библиотеках в двух вариантах.

// Здесь мы приводим только ANSI-вариант.

PWSAProtocolInfo = ^TWSAProtocolInfo;

TWSAProtocolInfo = packed record

dwServiceFlags1: DWORD;

dwServiceFlags2: DWORD;

dwServicsFlags3: DWORD;

dwServiceFlags4: DWORD;

dwProviderFlags: DWORD;

ProviderId: GUID;

dwCatalogEntryId: DWORD;

ProtocolChain: TWSAProtocolChain;

iVersion: Integer;

iAddressFamily: Integer;

iMaxSockAddr: Integer;

iMinSockAddr: Integer;

iSocketType: Integer;

iProtocol: Integer;

iProtocolMaxOffset: Integer;

iNetworkByteOrder: Integer;

iSecurityScheme: Integer;

dwMessageSize: DWORD;