[delphi-en] YMSG Protocol 16 Scan Peer to Peer data packet

[iqbal_delphidev]

Hi all,


Do any one have here experience in YMSG 16 protocol programming?
 Actually I was trying to write an application for my own yahoo client.
And it was working well till Yahoo blocks the YMSG protocol 12 (I was using 
that protocol)

As per new protocol I changed the way of loggin, now it works with YMSG 16 no 
problem.

My problem is that, when I send a Peer To Peer Scan packet the yahoo server is 
not responding even it does not close the connection where as if you send any 
wrong packet yahoo server will close the connection.

Here is the packet which was working with YMSG 12:

UserFromField := '4';
UserToField := '5';
FDelim := chr($C0) + chr($80);

P2PPacket := UserFromField + FDelim +
            FUserID + FDelim + AliasField +
            FDelim + FUserID + FDelim +
            UserFromField + FDelim + FUserID +
            FDelim + '12' + FDelim + 'LTE3NjM1MDM1NDk=' +
            FDelim + '61' + FDelim + '0' + FDelim + '2' +
            FDelim + FDelim + UserToField +
            FDelim + ToUserID + FDelim + '13' + FDelim + '7' +
            FDelim + '49' + FDelim + 'PEERTOPEER' + FDelim;

The packet type is $4F;

Do I have to change something in this packet?

Thanks in advance
Iqbal