|
Программирование C / C++ / Visual C++ / Delphi / Visual Basic / ASM / Windows / Pascal |
|
Опции темы | Оценить тему |
18.07.2011, 14:12 | #1 |
Участник
Регистрация: 18.07.2011
Сообщений: 4
Репутация: 1
|
Web Aware TICQClient
Как в TICQClient реализовать, что уин изпользовал Webaware(чтобы уины были видны в поиске, зелененьким цветом)
применяю функцию SetAuthorization(false, true); второй флаг из этой функции должен включать данную фичу, но в поиске уин (серенький) - inv Посоветуйте что можно сделать? |
18.07.2011, 14:29 | #2 |
Модератор
Регистрация: 16.02.2008
Сообщений: 259
ICQ: 844942 Репутация: 1208
|
правильно задать параметры процедуры (не боолеан, а константу). Ищи по форуму, то раз обсуждали уже.
__________________
Электронные билеты на автобус |
18.07.2011, 15:30 | #4 |
Участник
|
Ты всё делаешь верно, вот только зависит от того, какой у тебя компонент. Скорее всего эта функция просто не работает.
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR. |
18.07.2011, 19:06 | #8 |
Участник
|
Satana, оба параметра boolean.
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR. |
18.07.2011, 20:34 | #9 |
Николай
Регистрация: 12.02.2009
Сообщений: 1,138
ICQ: 503505 Репутация: 1408
|
Satana, это минимальное, что нужно сделать)
http://clip2net.com/clip/m87444/thum...7-clip-8kb.png Добавлено через 30 секунд Мой бот зеленый и работает на тасе) Последний раз редактировалось sks; 18.07.2011 в 20:35. Причина: Добавлено сообщение |
19.07.2011, 12:33 | #10 |
Участник
|
В своём компоненте я делаю так:
Код:
procedure TfrmMain.ICQLogin(Sender: TObject); var nID: integer; nDet: array of THexTLV; lMsg: string; begin if Sender = nil then exit; nID := TOSCAR(Sender).Tag; //ICQ[nID].SetAuthorization(False, True); lbConfig.Items[nID].ImageIndex := StatusToID(ICQ[nID].Status); ICQ[nID].SetIdleTime(0); SetLength(nDet, 3); nDet[0].ID := ICQ_MDIR_PTAG_EXPOSE_STATUS_TO_WEB; nDet[0].Value := '01'; nDet[1].ID := ICQ_MDIR_PTAG_PRIVACY_LEVEL; nDet[1].Value := '0000'; nDet[2].ID := ICQ_MDIR_PTAG_REQUIRE_AUTHORIZATION; nDet[2].Value := '0001'; ICQ[nID].UpdateDetailsPart(nDet); if PermitDenyID <> 0 then begin lMsg := '00000000' + IntToHex(PermitDenyID, 4) + '0004002100CA00010100D000010100D100010100D200010100D300010100CB0004FFFFFFFF'; ICQ[nID].SendSNAC(FOODGROUP_FEEDBAG, FEEDBAG_UPDATE_ITEM, lMsg); end; end;
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR. Последний раз редактировалось .fry; 19.07.2011 в 12:35. |
Плюсанул .fry : |
19.07.2011, 12:40 | #11 |
Старпёр
|
Не кодил уже стопицот лет. Поэтому уже не помню и половину((
Нада браться за ум)
__________________
«Будь вежлив с каждым. Никогда не известно, кто попадёт в число двенадцати присяжных» |
19.07.2011, 13:01 | #12 |
Участник
|
Решили в аське, путём установки статуса S_ONLINE + S_WEBAWARE
и вызовом процедуры SetAuthorization после подключения (вызывалась до того, как номер бы подключен).
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR. |
Плюсанул .fry : |