delphi APIHOOK网络函数

Question

   
  function MySend(s:TSocket;var Buf; len, flags: Integer):Integer;stdcall;
  begin   
  {这里是对HOOK函数Send的处理}
  {我想这里将发送数据包封装特定的socks5报头，这么处理？} 
  end;   function MySend(s:TSocket;var Buf; len, flags: Integer):Integer;stdcall;
  begin
   {类似上面}
  end  

Answer 1

数据地址不是在@Buf么？长度在len.东西拷贝出来，然后随便你怎么处理再转发了。