mssock.pas

来自「delphi源代码。iocp远控比较完整的代码」· PAS 代码 · 共 30 行

unit mssock;

interface
uses
    Windows, Messages, WinSock2, Classes, SysUtils, forms;
const
    WSAID_ACCEPTEX: TGUID = (D1:$b5367df1; D2:$cbac; D3:$11cf; D4:($95, $ca, $00, $80, $5f, $48, $a1, $92));

type 
  LPACCEPTEX = function(sListenSocket: TSocket; sAcceptSocket: TSocket; lpOutputBuffer: Pointer;
    dwReceiveDataLength: DWORD; dwLocalAddressLength: DWORD; dwRemoteAddressLength: DWORD; 
    lpdwBytesReceived: PDWORD; lpOverlapped: POverlapped): BOOL; stdcall; 
  TAcceptEx = LPACCEPTEX;

function WSAGetExtensionFunctionPointer(s: TSocket; const gdExFuncGuid: TGUID): Pointer;

implementation

function WSAGetExtensionFunctionPointer(s: TSocket; const gdExFuncGuid: TGUID): Pointer;
var
  lwOut: Longword;
begin
  Result := nil; 
  WSAIoctl(s, SIO_GET_EXTENSION_FUNCTION_POINTER, @gdExFuncGuid, SizeOf(gdExFuncGuid),
    @result, SizeOf(result), @lwOut, nil, nil); 
end;

end.