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

[yybdo]

我要把用其它截包工具得到的服务器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该是怎样的啊？我对网络编程一无所知现在是急时抱佛脚，大家快快告诉我如何写这样函数的参数啊？谢谢!

[ahhjgh]

Array of Byte

[ahhjgh]

再给你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;

[preserve]

Buf就是个字节数组