小问题

Question

定义：:
    TBytes=Array of Byte;
    packets:TBytes;
把自定义类型按照顺序写入packets，然后就可以发送了。
    SocketSendPackets(Socket,TBytes(packets),iLen);procedure SocketSendPackets(Socket:TCustomWinSocket;var packets:TBytes;iLen:integer);
var
    p:PChar;
begin
    p:=PChar(packets);
    Socket.SendBuf(p^,iLen);
end;

Answer 1

’把自定义类型按照顺序写入packets‘这句话不是很理解？
tbytes是字节数组，怎么把我记录类型转成字节数组呢？高手？好人做到底？

Answer 2

给你几个函数参考一下：
TPInteger = ^Integer;
procedure WriteLongToBuf(iTemp:integer;var packets:TBytes;var index:integer);
begin
    TPInteger(integer(packets)+index)^:=iTemp;
    inc(index,sizeof(integer));
end;procedure WriteStringToBuf(strTemp:string;len:integer;var packets:TBytes;var index:integer);
begin
    StrPLCopy(Pchar(integer(packets)+index),strTemp,len);
    inc(index,len);
end;

Answer 3

只需要人民币20元，你就可以获得本灌水机的程序和Visual C＋＋源代码，并获得永久性技术支持。还等什么？灌水等着你！就在今夜！元宵佳节！(可怜我信誉)