Рабочий компонент Coban2k TICQClient. |
06.12.2008, 21:16
|
|
Познающий
Регистрация: 20.01.2008
Сообщений: 47
С нами:
9635196
Репутация:
72
|
|
Рабочий компонент Coban2k TICQClient.
Народ дайте пожалуйста прямую ссылку на рабочий вариант, а то всякие демо, и т.д. не проходят, все что скачал везде ошибки.  |
|
|
06.12.2008, 21:56
|
|
Участник форума
Регистрация: 31.07.2008
Сообщений: 207
С нами:
9356941
Репутация:
107
|
|
|
|
|
|
06.12.2008, 21:58
|
|
Познающий
Регистрация: 22.07.2008
Сообщений: 62
С нами:
9371161
Репутация:
172
|
|
Гы гы, влепил бы те минус если бы мог, на дату глянь...
ппц бля...
WAR!9G, тоже самое.
потому что исправив только эту строчку, в коде много лишнего, кое что просто не пашет, кое что надо дополнить, вообщем вовсе не тру.
Последний раз редактировалось _Kris_; 06.12.2008 в 22:01..
|
|
|
|
06.12.2008, 22:13
|
|
Участник форума
Регистрация: 24.06.2007
Сообщений: 299
С нами:
9937288
Репутация:
212
|
|
потому что исправив только эту строчку, в коде много лишнего, кое что просто не пашет, кое что надо дополнить, вообщем вовсе не тру.
я ничего не говорил, про то что это всё что нужно сделать. просто замена этой строчки это тот самый минимум чтобы можно было залогинится на сервере, осуществлять поиск и отправлять сообщения. отправлять файлы допустим, всё равно не получится - дальше надо самому смотреть и искать 
|
|
|
|
07.12.2008, 14:30
|
|
Познающий
Регистрация: 06.09.2006
Сообщений: 94
С нами:
10356548
Репутация:
15
|
|
а готовый вариант с фиксами кста есть где?
|
|
|
|
07.12.2008, 14:48
|
|
Banned
Регистрация: 19.12.2007
Сообщений: 924
С нами:
9681386
Репутация:
2145
|
|
http://forum.asechka.ru/showthread.php?t=97186
|
|
|
|
06.12.2008, 21:54
|
|
Участник форума
Регистрация: 24.06.2007
Сообщений: 299
С нами:
9937288
Репутация:
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);
|
|
|
|
|
 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
