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

Функция acceptиз стандартной библиотеки сокетов позволяет серверу извлечь из очереди соединений информацию о подключившемся клиенте и создать сокет для его обслуживания. Эти действия выполняются безусловно, для любых подключившихся клиентов. Если сервер допускает подключение не любых клиентов, а только тех, которые отвечают некоторым условиям (для протокола TCP эти условия могут заключаться в том, какие IP-адреса и какие порты допустимо использовать клиентам), сразу после установления соединения его приходится разрывать, если клиент не удовлетворяет этим условиям. Для упрощения этой операции в WinSock 2 предусмотрена функция WSAAccept, прототип которой приведен в листинге 2.40.

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

SOCKET WSAAccept(SOCKET S, struct sockaddr FAR* addr, LPINT addrlen, LPCONDITIONPROC lpfnCondition, dwCallbackData);

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

function WSAAccept( S: TSocket; Addr: PSockAddr; AddrLen: PInteger; lpfnCondition: TConditionProc; dwCallbackData: DWORD): TSocket;

По сравнению с уже известной нам функцией acceptфункция WSAAcceptимеет два новых параметра: lpfnConditionи dwCallbackData. lpfnConditionявляется указателем на функцию обратного вызова. Эта функция объявляется и реализуется программой. WSAAcceptвызывает ее внутри себя и в зависимости от ее результата принимает или отклоняет соединение. Параметр dwCallbackDataне имеет смысла для самой функции WSAAcceptи передается без изменений в функцию обратного вызова. Тип TConditionProcдолжен быть объявлен следующим образом (листинг 2.41).

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

typedef (int*)(LPWSABUF lpCallerId, LPWSABUF lpCallerData, LPQOS lpSQOS, LPQOS lpGQOS, LPWSABUF lpCalleeId, LPWSABUF lpCalleeData, GROUP FAR* g, DWORD dwCallbackData) LPCONDITIONPROC;

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

TConditionProc = function(lpCallerId, lpCallerData: PWSABuf; lpSQOS, lpGQOS: PQOS; lpCalleeID, lpCalleeData: PWSABuf; g: PGroup; dwCallbackData: DWORD): Integer; stdcall;

Параметр lpCallerIdуказывает на буфер, в котором хранится адрес подключившегося клиента. При работе со стеком TCP/IP lpCallerId^.Lenбудет равен SizeOf(TSockAddr), a lpCallerId^.Bufбудет указывать на структуру TSockAddr, содержащую адрес клиента. Параметр lpCallerDataопределяет буфер, в котором хранятся данные, переданные клиентом при соединении. Как уже отмечалось, протоколы стека TCP/IP не поддерживают передачу данных при соединении, поэтому для них этот параметр будет равен nil. Параметры lpSQOSи lpGQOSзадают требуемое клиентом качество обслуживания для сокета и для группы соответственно. Так как группы сокетов в текущей реализации WinSock не поддерживаются, параметр lpGQOSбудет равен nil. Параметр lpSQOSтоже будет равен nil, если клиент не задал качество обслуживания при соединении.

Параметр lpCalleeIdсодержит адрес интерфейса, принявшего соединение (поля структуры при этом используются так же, как у параметра lpCallerId). Ранее уже обсуждалось, что сокет, привязанный к адресу INADDR_ANY, прослушивает все сетевые интерфейсы, имеющиеся на компьютере, но каждое подключение, созданное с его помощью, использует конкретный интерфейс. Параметр lpCalleeIdсодержит адрес, привязанный к конкретному соединению. Параметр lpCalleeDataуказывает на буфер, в который сервер может поместить данные для отправки клиенту. Этот параметр также не имеет смысла для протокола TCP, не поддерживающего отправку данных при соединении.

Параметр gвыходной, он позволяет управлять присоединением создаваемого функцией WSAAcceptсокета к группе. Параметр, как и все, связанное с группами, зарезервирован для использования в будущем.

Если вы пользуетесь старой версией MSDN, то можете не обнаружить там описания параметра g— оно там отсутствует. Видимо, просто по ошибке.

И наконец, через параметр dwCallbackDataв функцию обратного вызова передается значение параметра dwCallbackData, переданное в функцию WSAAccept. Программист должен сам решить, как ему интерпретировать это значение.

Функция должна вернуть CF_ACCEPT(0), если соединение принимается, CF_REJECT(1), если оно отклоняется, и CF_DEFER(2), если решение о разрешении или запрете соединения откладывается. Если функция обратного вызова вернула CF_REJECT, to WSAAcceptзавершается с ошибкой WSAECONNREFUSED, если CF_DEFER— то с ошибкой WSATRY_AGAIN(в последнем случае соединение остаётся в очереди, и информация о нем вновь будет передана в функцию обратного вызова при следующем вызове WSAAccept). Обе эти ошибки не фатальные, сокет остается в режиме ожидания соединения и может принимать подключения от новых клиентов.