Тема: Рабочий компонент Coban2k TICQClient.
Показать сообщение отдельно

  #2  
Старый 06.12.2008, 21:54
WAR!9G
Участник форума
Регистрация: 24.06.2007
Сообщений: 299
Провел на форуме:
467372

Репутация: 212
По умолчанию
Компонент с офф-сайта, Coban2k вполне рабочий.

Только открой файл ICQClient.pas и найди в нем этот код

Код:
//SRV_COOKIE
      FUIN  := GetTLVStr(@pkt, T);    //Client's UIN in ASCII format
И замени его этим:
Код:
 
T := GetInt(@pkt, 2);
      if T = $008e then                 // TLV(142 [0x008E])
      begin
        Inc(pkt.Len, GetInt(@pkt, 2));  
        FUIN  := GetTLVStr(@pkt, T);
      end else
      if T = $0001 then                 // TLV(1 [0x0001])
        FUIN  := GetWStr(@pkt);