Шукаю оновлену бібліотеку типу TICQClient
Після того, як AoL внесла зміни в протокол ICQ, TICQClient перестав працювати, як і багато альтернативні IM-клієнти. І якраз зараз виникла потреба в написанні власного клієнта!
Може бути, десь уже є оновлена версія ICQ-клієнта, необов'язково ця, може бути будь-яка інша? Підкажіть, якщо хто знає, плиз!
Чому перестала, все працює.
Невелике коректування в обробці прийому повідомлення і все стає на місце.
хе. ну тиць народ прагне дізнатися ЩО це за коригування! Скрізь струму факт, а доків немає = (
Так, цікаво, що за коригування?
А у Вас точно все працює? А то у мене що то ніяк.
Все працює
поправка
for i: = 0 to c - 1 do // Skip all TLVs
на
for i: = 0 to c do // Skip all TLVs
procedure TICQClient.HSnac0407 (Flap: TFlapHdr; Snac: TSnacHdr; Pkt: PRawPkt);
.
# XA0; # XA0; c: = GetInt (Pkt, 2);
# XA0; # XA0; for i: = 0 to c - 1 do
. # XA0; # XA0;
# XA0; # XA0; # XA0; UIN: = GetStr (Pkt, GetInt (Pkt, 1));
# XA0; # XA0; # XA0; Inc (Pkt.Len, 4);
# XA0; # XA0; # XA0; for c: = 0 to 5 do
.
на
procedure TICQClient.HSnac0407 (Flap: TFlapHdr; Snac: TSnacHdr; Pkt: PRawPkt);
.
# XA0; # XA0; c: = GetInt (Pkt, 2);
# XA0; # XA0; for i: = 0 to c # XA0; do
.
# XA0; # XA0; # XA0; UIN: = GetStr (Pkt, GetInt (Pkt, 1));
# XA0; # XA0; # XA0; Inc (Pkt.Len, 4);
# XA0; # XA0; # XA0; for c: = 0 to 6 do
.
Хоч убийте, але ніяк не можу знайти таку строчку
Взагалі у всьому тексті, струму така
І то зовсім в іншому місці.
Може хто допоможе?
Все, скачав останню версію компонента. 1.21
Там все рядки на місці.
ізмініл, як ви говорите, але нічого не працює.
НУ 500 раз перевірив, нічого!
ПО як і раніше повідомлення відсилаються, але не приймаються!
ПОМГІТЕ ж (
вибачте вже за флуд, але мені просто дуже СРОЧНО. ((((((((((((