请问我这个HOOK可以挂住ws2_32.dll的Recv函数，但怎么样才能保存下他的参数呢？我是菜鸟

Question

下面是部分代码，里面的Buf应该是返回的封包数据吧？我想把封包的内容保存在一个String变量里面，怎么把里面的数据转换成String的格式啊？{---------------------------------------} 
{函数功能:Recv函数的HOOK 
{函数参数:同Recv 
{函数返回值:integer 
{---------------------------------------} 
function MyRecv(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall; 
var 
dwSize: cardinal; 
begin 
//这儿进行接收的数据处理 
MessageBeep(1000); //简单的响一声 
//调用直正的Recv函数 
WriteProcessMemory(ProcessHandle, AddRecv, @OldProc[1], 8, dwSize); 
Result := OldRecv(S, Buf, len, flags);
JmpCode.Address := @MyRecv;
WriteProcessMemory(ProcessHandle, AddRecv, @JmpCode, 8, dwSize); 
end; 

Answer 1

var
  sTmp: String;
begin
  //....
  StrCopy(PChar(sTmp), PChar(pBuf), len);  
end;

Answer 2

不好意思，少写了个LStrLCopy(PChar(sTmp), PChar(pBuf), len);  

Answer 3

var
  str:string;
...............
Setlength(str,len);
MyRecv(Socket,Pointer(str)^,len,0);
...................