1:
2:
3:
4:
5:
6:
7:

magicNumber 00 type(18) 00 numberOfAtts //skins and versions of skins are 1 

attribute_length 'skin' 04 01 numberOfSkins 00 lengthOfNextSkin 00 nameOfSkin LengthOfNextSkin 00 nameOfSkin (..andSoOn..) 

attribute_length 'version' 04 02 numberOfSkins 00 (forEachSkin){ 01 00 00 00 } 12 00 03 00 01 

attribute_length 'version' 02 versionNumber 00 00 00					

1:
2:
3:
4:
5:
6:
7:
8:
9:

00000004 33 00 12 00 02 04 73 6b 69 6e 04 01 02 00 08 00 3.....sk in......

00000014 53 74 61 6e 64 61 72 64 05 00 58 66 69 72 65 07 Standard ..Xfire.

00000024 76 65 72 73 69 6f 6e 04 02 02 00 01 00 00 00 01 version. ........

00000034 00 00 00 12 00 03 00 01 07 76 65 72 73 69 6f 6e ........ .version

00000044 02 19 00 00 00					

1:
2:
3:
4:
5:
6:
7:
8:
9:

00000004 33 00 12 00 02 04 73 6b 69 6e 04 01 02 00 08 00 3.....sk in......   

00000014 53 74 61 6e 64 61 72 64 05 00 58 66 69 72 65 07 Standard ..Xfire.   

00000024 76 65 72 73 69 6f 6e 04 02 02 00 01 00 00 00 01 version. ........   

00000034 00 00 00 12 00 03 00 01 07 76 65 72 73 69 6f 6e ........ .version   

00000044 02 19 00 00 00					

1:
2:
3:
4:
5:
6:
7:
8:
9:

    byte[] packet = { 0x33, 0x00, 0x12, 0x00, 0x02, 0x04, 0x73, 0x6b, 0x69,
        0x6e, 0x04, 0x01, 0x02, 0x00, 0x08, 0x00, 0x53, 0x74, 0x61,
        0x6e, 0x64, 0x61, 0x72, 0x64, 0x05, 0x00, 0x58, 0x66, 0x69,
        0x72, 0x65, 0x07, 0x76, 0x65, 0x72, 0x73, 0x69, 0x6f, 0x6e,
        0x04, 0x02, 0x02, 0x00, 0x01, 0x00, 0x00, 0x00, 0x01, 0x00,
        0x00, 0x00, 0x12, 0x00, 0x03, 0x00, 0x01, 0x07, 0x76, 0x65,
        0x72, 0x73, 0x69, 0x6f, 0x6e, 0x02, version, 0x00, 0x00, 0x00 };

    output.write(packet);					

1:
2:

const
  PACKET : array[0..n] of Byte = ($33, $00, ...);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

TCPClient.SendCMD(string);

TCPClient.socket.Write(AStream:idstreamvcl oder ABuffer:TBytes);
TCPClient.socket.WriteDirect(ABuffer:TBytes);
TCPClient.socket.Writeln(string);

TCPClient.socket.writebufferopen;
TCPClient.socket.writebufferclear;
TCPClient.socket.writebufferclose;
TCPClient.socket.writebufferflush;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

repeat
if Form1.client.IOHandler.Readable()=true  then
 begin
 setlength(packet2,0);
 Form1.client.IOHandler.ReadBytes(packet2,1,true);
 Form1.client.IOHandler.ReadBytes(packet2,packet2[0]-1,true);
 Form1.Button8click(nil);
 end;
until application.terminated=true;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

                  0d 00 8d 00 01 05 70 72 65 66  ............pref
73 05 00 35 00 83 00 03 07 66 72 69 65 6e 64 73  s..5.....friends
04 01 01 00 04 00 6d 74 69 6e 04 6e 69 63 6b 04  ......mtin.nick.
01 01 00 04 00 6d 74 69 6e 06 75 73 65 72 69 64  .....mtin.userid
04 02 01 00 f0 67 0a 00 2c 00 84 00 02 06 75 73  .....g..,.....us
65 72 69 64 04 02 01 00 f0 67 0a 00 03 73 69 64  erid.....g...sid
04 03 01 00 01 50 d9 77 68 30 6a 81 2a 26 91 b6  .....P.wh0j.*&..
e8 aa a8 f1 1f 00 90 01 01 03 64 69 64 06 d1 9d  ..........did...
46 9c b8 a4 be 8e 6b cb 59 ae 71 31 8a 49 48 74  F.....k.Y.q1.IHt
30 64 dd 2b 00 94 00 04 03 6d 61 78 02 1e 00 00  0d.+.....max....
00 06 67 61 6d 65 69 64 04 02 00 00 03 67 69 70  ..gameid.....gip
04 02 00 00 05 67 70 6f 72 74 04 02 00 00 0f 00  .....gport......
97 00 02 19 04 02 00 00 1a 04 01 00 00 0f 00 98  ................
00 02 01 04 02 00 00 19 04 02 00 00              ............					

1:
2:
3:
4:
5:
6:
7:
8:
9:

repeat
if Form1.client.IOHandler.Readable()=true  then
 begin
 setlength(packet2,0);
 Form1.client.IOHandler.ReadBytes(packet2,1,true);
 Form1.client.IOHandler.ReadBytes(packet2,packet2[0]-1,true);
 Form1.Button8click(nil);
 end;
until application.terminated=true;