|
Программирование C / C++ / Visual C++ / Delphi / Visual Basic / ASM / Windows / Pascal |
|
Опции темы | Рейтинг: |
28.05.2007, 06:59 | #1 |
Участник
Регистрация: 06.08.2006
Сообщений: 243
ICQ: 272727765 Репутация: 406
|
TICQClient - исправления, дополнения и прочее
В этой теме будут выкладываться исправления и дополнения к компоненту TICQClient от Кобана для Delphi.
Компонент, актуально работающий на 13.08.2010 скачать: TICQClient Пример работы с компонентом: скачать: СheatICQ Официальный хелп от coban2k скачать: TICQClientHelp.rar ============================== Оригинальный компонент (с демо): скачать Компонент с работающими прокси и кодировками скачать тут Компонент от Romen'a (с демо): - движок на ICQ - к архиве есть все необходимые модули (для WSocket'a от ICS 1.4, плюс из RxLib несколько модулей) - из компонента убрано все "лишнее" скачать Демки делались в Turbo Delphi 2006, поэтому если вы будете собирать их под Delphi 7 и ниже не забудте в насткойках проекта указать пути, иначе среда не найдет эти модули и будет ругаться на их отсутствие. 1) Project -> Options 2) Закладка Directories/Conditionals 3) -> Units output directory: Units -> Search path: ICQClient Последний раз редактировалось DjFly; 04.02.2012 в 20:23. |
04.02.2008, 12:28 | #152 |
Участник
Регистрация: 04.02.2008
Сообщений: 11
Репутация: 1
|
Доброго времени суток.
У меня возникла проблема: после перехода с оригинального компонента на последнюю версию перестала работать команда SendMessageAdvanced. Сообщение отправляется, но абоненту приходит пустое сообщение. |
11.02.2008, 08:11 | #153 | |||
Участник
Регистрация: 11.02.2008
Сообщений: 1
Репутация: 1
|
Поддержка хСтатусов
В ICQClient вставляете это
Цитата:
В ICQWorks вставляете это Цитата:
Список статусов Цитата:
Только я не могу понять почему Snac030B приходит другого формата нежели в другие клиенты (например в QIP) Т.е. там есть capabilities клиента, но нет xСтатусов :( Последний раз редактировалось derilla; 11.02.2008 в 08:18. Причина: Добавлено сообщение |
|||
11.02.2008, 10:00 | #154 |
Участник
Регистрация: 17.11.2006
Сообщений: 153
ICQ: 8070080 Репутация: 302
|
Потому что нужно засылать при коннекте определенный набор capabilities, если это не делать сервак будет обрезать пакет Snac03,0B. Попробуй засылать теже что и у квипа и все будет норм.
|
Плюсанул yxu : |
12.02.2008, 11:41 | #155 |
Участник
Регистрация: 25.01.2008
Сообщений: 7
Репутация: 1
|
Когда происходит смена статуса у UIN из КЛ из разных клиентов почему-то приходит различная переменная status для одного и тогоже статуса в клиентах (например away в двух клиентах приходит по разному)... еще почему то не меняется статус если уходит в оффлайн или в невид((((
|
12.02.2008, 14:09 | #156 |
Участник
Регистрация: 17.11.2006
Сообщений: 153
ICQ: 8070080 Репутация: 302
|
Может для начала начнете выкладывать какие кусочки дампа снифера или кода? Ибо по вашим словам причин может быть уйма от непонимания каких то кусков протокола до корявого исполнения кода. Опять же с каким КЛ вы работаете - серверным или локальным? Кароче без кусков кода, если ты чего то там правил или без сниферного дампа интересующего места в пакете безперспективно задавать такие вопросы.
|
Плюсанул yxu : |
13.02.2008, 03:29 | #157 | |
Участник
Регистрация: 24.08.2007
Сообщений: 32
Репутация: 3
|
Цитата:
|
|
18.02.2008, 19:01 | #158 |
Участник
Регистрация: 18.02.2008
Сообщений: 1
Репутация: 1
|
Отправить файл
Помогите разобратся с отправкой файла. Пример из хелпа не работает.
Идеально было б - получит кусок рабочего кода. |
19.02.2008, 22:40 | #159 |
Участник
Регистрация: 10.02.2008
Сообщений: 9
Репутация: 4
|
Вопрос к знатокам: не могу разобраться какой пакет нужно слать для того чтобы можно было узнать дату последнего изменения инфы. И снифер запускал и пакет видел, только в оригинальном компоненте не нашел процедуры.
yxu знаю ты делал что-то подобное. Отзовитесь плиз. |
20.02.2008, 08:50 | #160 |
Участник
Регистрация: 17.11.2006
Сообщений: 153
ICQ: 8070080 Репутация: 302
|
Поковыряй исходники AIMICQ VanityInfo от AURа. Там он хитрый snac 01,0e посылает и парсит ответный snac 01,0f, где в TLV($0026) и находится Profile update time, если конешно я тебя правильно понял и тебе эта дата нужна ;)
|
Плюсанул yxu : |
20.02.2008, 13:29 | #162 |
Участник
|
.....
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR. Последний раз редактировалось .fry; 09.11.2008 в 23:49. |
Плюсанул .fry : |
20.02.2008, 22:20 | #163 |
Участник
Регистрация: 10.02.2008
Сообщений: 9
Репутация: 4
|
|
13.03.2008, 19:46 | #164 |
Участник
Регистрация: 13.03.2008
Сообщений: 2
Репутация: 1
|
Уважаемые, кто-нибудь использовал это совместно с KOL (http://kolmck.net) ?
|
14.03.2008, 07:45 | #165 |
Участник
Регистрация: 06.08.2006
Сообщений: 243
ICQ: 272727765 Репутация: 406
|
Splash, нет. Но компонент можно собрать без подвязки на VCL с директивой NO_FORMS, вроде. Не исключено, что будет работать.
__________________
Мой блог - Mac, Qt и немного Delphi. |
Плюсанул Sax-mmS : |
23.03.2008, 22:29 | #167 |
Участник
Регистрация: 12.12.2007
Сообщений: 6
Репутация: 2
|
Народ! А не подскажете, в какой Snac надо послать, чтобы поменять пункт в своих настройках защиты про авторизацию? Ну и за одно, как смотреть, какой сейчас стоит. Сам думаю, что все должно быть в Snac13 06, но инфы нету.
|
24.03.2008, 00:47 | #168 |
Участник
|
.....
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR. Последний раз редактировалось .fry; 09.11.2008 в 23:59. |
Плюсанул .fry : |
24.03.2008, 10:46 | #170 |
Участник
|
.....
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR. Последний раз редактировалось .fry; 09.11.2008 в 23:59. Причина: Добавлено сообщение |
Плюсанул .fry : |
24.03.2008, 18:22 | #172 |
Участник
Регистрация: 12.12.2007
Сообщений: 6
Репутация: 2
|
.fry чего то изменение настроек с авторизацией SetAutorization не происходит. Кажется, сервер не хочет изменять, потому что вместо ответа с Type 07DA приходит ответ с Type 07DO, ну и последний байт 14, вместо 0A
Запрос: 00 15 00 02 00 01 00 54 00 02 00 01 00 10 0E 00 2E FB 4C 1C D0 07 02 00 24 04 00 00 01 00 Ответ: 00 15 00 03 00 00 00 54 00 02 00 01 00 0D 0B 00 2E FB 4C 1C D0 07 02 00 24 04 14 подскажи, чего делать? |
25.03.2008, 09:57 | #173 |
Участник
Регистрация: 17.11.2006
Сообщений: 153
ICQ: 8070080 Репутация: 302
|
Alex14, т.к. компанент старый довольно таки, то и функции там многие устарели, в том числе и данная. Как вариант берешь в руки снифер icqmenace и вперед, снифаешь, сравниваешь.
А решение твоей проблемы такое, открываешь ICQWorks.pas, ищешь procedure CreateCLI_METASETPERMISSIONS и заменяешь на следущее(не тестил, ибо пока некогда и негде:) Код:
{Set permissions.} procedure CreateCLI_METASETPERMISSIONS(Pkt: PRawPkt; UIN: LongWord; AuthorizationRequired, WebAware: Boolean; var Seq, Seq2: Word); var lpkt: TRawPkt; begin PktInitRaw(@lpkt); PktInt(@lpkt, $3a0c, 2); PktInt(@lpkt,$030c, 2); PktInt(@lpkt, Ord(not AuthorizationRequired), 1); //Authorization required? PktInt(@lpkt,$02f8, 2); PktInt(@lpkt, Ord(WebAware), 1); //Webaware? CreateCLI_TOICQSRV(Pkt, UIN, $07D0, @lpkt, lpkt.Len, Seq, Seq2); //Incapsulate in CLI_TOICQSRV end; |
Плюсанул yxu : |
25.03.2008, 22:46 | #174 | |
Участник
Регистрация: 12.12.2007
Сообщений: 6
Репутация: 2
|
Цитата:
|
|
26.03.2008, 20:41 | #175 |
Участник
Регистрация: 26.03.2008
Сообщений: 6
Репутация: 1
|
Нужно зарегистрировать нового пользователя- функция
procedure SSLAddUser(GroupID, UserID: Word; UIN, Name, SMSNumber: String; Authorize, UpdateUser: Boolean) Можно ли как-то найти свободный UserID? Или как загрузить серверный КЛ чтобы был ЮИН и идентификатор в списке, чтобы потом можно было найти свободный? |
Метки |
delphi, ticqclient |
Опции темы | |
Оценка этой теме | |
|
|