TICQClient && XSTATUS

[cow]

Всем привет,

Пытался изменить компонент так, что бы можно было выставлять х-статус. Следовал инструкциям одного товарища - http://forum.asechka.ru/showpost.php?p=326491&postcount=95 (с учётом всех его постов из темы). Откомпилил - толку нет. Кто нибудь напишите код выставления x-статуса, спасибо :cool:

[biophreak]

Насколько знаю, х-статусы отсылаются клиентом как его capabilities, если нужен список - могу выложить...

[cow]

Да я если честно, просто банально не шарю в этом протоколе и что куда настрочить не знаю. Ниже функция, в которую автор рекомендует вставить код, может подскажешь что добавить или изменить, потому что его код у меня не заработал :( Далее он писал, что не работало потому что сначало надо выполнить SSLActivate (код тоже выкладывал), но и она ничего не изменила.

{This packet sends the client's capabilities information to the server.}
procedure CreateCLI_SETUSERINFO(Pkt: PRawPkt; var Seq: Word);
const
caps: array[0..$40 - 1] of Byte = (
$09, $46, $13, $49, $4C, $7F, $11, $D1, $82, $22, $44, $45, $53, $54, $00, $00,
$97, $B1, $27, $51, $24, $3C, $43, $34, $AD, $22, $D6, $AB, $F7, $3F, $14, $92,
$2E, $7A, $64, $75, $FA, $DF, $4D, $C8, $88, $6F, $EA, $35, $95, $FD, $B6, $DF,
$09, $46, $13, $44, $4C, $7F, $11, $D1, $82, $22, $44, $45, $53, $54, $00, $00
);
begin
PktInit(Pkt, 2, Seq); //Channel 2
PktSnac(Pkt, $02, $04, 0, 0); //Snac: Type x02/x04, ID x0000, Flags 0
PktTLV(Pkt, 5, Length(caps), @caps); //Client's capabilities
PktFinal(Pkt); //Finalize packet
end;