function InterceptedSend(S:Cardinal;var Buf;Len:Integer;flags:integer):integer;stdcall;

type

  TSend = function(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;

var

  _send: TSend;

begin

//  SpliceLockJmp(HotPathSpliceRec[P_SEND].FuncAddr, HotPathSpliceRec[P_SEND].LockJmp);

//  Result := send(s,buf,len,flags);

//  SpliceLockJmp(HotPathSpliceRec[P_SEND].FuncAddr, LOCK_JMP_OPKODE);

  @_send := PAnsiChar(HotPathSpliceRec[P_SEND].FuncAddr) + 2;

  Result := _send(s,buf,len,flags);

end;

 

function InterceptedRecv(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;

type

  TRecv = function(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;

var

  _recv: TRecv;

begin

//  SpliceLockJmp(HotPathSpliceRec[P_RECV].FuncAddr, HotPathSpliceRec[P_RECV].LockJmp);

//  Result := recv(s, Buf, len, flags);

//  SpliceLockJmp(HotPathSpliceRec[P_RECV].FuncAddr, LOCK_JMP_OPKODE);

  @_recv := PAnsiChar(HotPathSpliceRec[P_RECV].FuncAddr) + 2;

  Result := _recv(s, Buf, len, flags);

end;