Форум АНТИЧАТ - Показать сообщение отдельно

компонент перестал работать после изменений протокола
метод лечения:
чтобы заработал, надо переправить вот это (файл icqclient.pas, 1975 строка):

Код:

//SRV_COOKIE
      FUIN  := GetTLVStr(@pkt, T);                //Client's UIN in ASCII format

на вот это

Код:

T := GetInt(@pkt, 2);
      if T = $008e then begin                // TLV(142 [0x008E])
        Inc(pkt.Len, GetInt(@pkt, 2));  
        FUIN  := GetTLVStr(@pkt, T);
      end else
      if T = $0001 then                 // TLV(1 [0x0001])
        FUIN  := GetWStr(@pkt);

рецепт взят с асечки