急急急，如何发送数据包？？？

Question

我要把用其它截包工具得到的服务器send过来的数据包“4D 5A 00 00 01 27 A3 FB 00 15 40 62 00 01 00 00 00 09 00 09 23 64 46 46 46 46 46 46 61 00 00”在我的程序里直接用winsock的send()发送出去，该如何设置参数？？？数据格式如何转换？Buf该是怎样的啊？我对网络编程一无所知现在是急时抱佛脚，大家快快告诉我如何写这样函数的参数啊？谢谢! 

Answer 1

再给你2个函数，希望对你有所帮助
function ByteArrToString(bytes:Array of Byte;Count:integer):string;
begin
  setlength(Result,Count);
  move(bytes[0],Result[1],Count);
end;procedure StringToByteArr(str:string;var ByteArr:Array of Byte);
begin
  move(str[1],ByteArr[0],Length(str));
end;