Перехват WSARecv

[hiho]

Добрый день. Возникла ошибка при перехвате функции WSARecv. При перехвате её в процессе Хрома, таким образом, всё происходит нормально:

function InterceptedWSARecv(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD;var lpNumberOfBytesRecvd: DWORD; dwFlags: DWORD; lpOverlapped: LPWSAOVERLAPPED;lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
type
  TrueWSARecv = function(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD;
    var lpNumberOfBytesRecvd: DWORD; dwFlags: DWORD; lpOverlapped: LPWSAOVERLAPPED;
    lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
begin
  // снимаем перехват
 ...
  Result := TrueWSARecv(FuncAddr)(s, lpBuffers,dwBufferCount, lpNumberOfBytesRecvd, dwFlags,lpOverlapped, lpCompletionRoutine);
  // восстанавливаем перехват
...
end

Но стоит написать в коде, например, вывод перехваченного буфера в файл, то получаю Result := -1 (INVALID_SOCKET) и WSAGetLastError = 1784.

function InterceptedWSARecv(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD;var lpNumberOfBytesRecvd: DWORD; dwFlags: DWORD; lpOverlapped: LPWSAOVERLAPPED;lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
type
  TrueWSARecv = function(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD;
    var lpNumberOfBytesRecvd: DWORD; dwFlags: DWORD; lpOverlapped: LPWSAOVERLAPPED;
    lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE): Integer; stdcall;
begin
  // снимаем перехват
 ...
  Result := TrueWSARecv(FuncAddr)(s, lpBuffers,dwBufferCount, lpNumberOfBytesRecvd, dwFlags,lpOverlapped, lpCompletionRoutine);
  // восстанавливаем перехват
  WriteToFile('путь', lpBuffers.buf, lpNumberOfBytesRecvd);
end;

При этом перехватывая в других браузерах (Opera, FF, ...) всё нормально. Никто не сталкивался с подобным?

DLL прикрепил.