ICQ - форум. Всё про ICQ.  

Вернуться   ICQ - форум. Всё про ICQ. > Мастерская > Программирование

Программирование 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

Посоветуйте что можно сделать?
Fragnato вне форума  
Старый 18.07.2011, 14:29   #2
Модератор
 
Аватар для [rod-on]
 
Регистрация: 16.02.2008
Сообщений: 259

ICQ: 844942

Репутация: 1208
По умолчанию

правильно задать параметры процедуры (не боолеан, а константу). Ищи по форуму, то раз обсуждали уже.
[rod-on] вне форума  
Плюсанули [rod-on] — 4 :
Старый 18.07.2011, 14:55   #3
Участник
 
Регистрация: 18.07.2011
Сообщений: 4

Репутация: 1
По умолчанию

а по подробней? я просто новичок)
Fragnato вне форума  
Старый 18.07.2011, 15:30   #4
Участник
 
Регистрация: 27.09.2006
Сообщений: 1,045

ICQ: 272768

Репутация: 2856
Отправить сообщение для .fry с помощью Skype™ Bimoid
По умолчанию

Ты всё делаешь верно, вот только зависит от того, какой у тебя компонент. Скорее всего эта функция просто не работает.
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR.
.fry вне форума  
Старый 18.07.2011, 15:58   #5
Николай
 
Аватар для sks
 
Регистрация: 12.02.2009
Сообщений: 1,138

ICQ: 503505

Репутация: 1408
По умолчанию

.fry, работает, достаточно пораскинуть мозгами - и вебавар зазеленеет)
sks вне форума  
Старый 18.07.2011, 16:37   #6
Старпёр
 
Аватар для Satana
 
Регистрация: 19.05.2003
Сообщений: 516

ICQ: 66666666

Отправить сообщение для Satana с помощью Skype™ Bimoid
По умолчанию

SetAuthorization(false, 1);
Вероятнее всего так.
__________________
«Будь вежлив с каждым. Никогда не известно, кто попадёт в число двенадцати присяжных»
Satana вне форума  
Старый 18.07.2011, 18:21   #7
Участник
 
Регистрация: 18.07.2011
Сообщений: 4

Репутация: 1
По умолчанию

Цитата:
Сообщение от Satana Посмотреть сообщение
SetAuthorization(false, 1);
Вероятнее всего так.
так тоже не фурычит))
Fragnato вне форума  
Старый 18.07.2011, 19:06   #8
Участник
 
Регистрация: 27.09.2006
Сообщений: 1,045

ICQ: 272768

Репутация: 2856
Отправить сообщение для .fry с помощью Skype™ Bimoid
По умолчанию

Satana, оба параметра boolean.
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR.
.fry вне форума  
Старый 18.07.2011, 20:34   #9
Николай
 
Аватар для sks
 
Регистрация: 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. Причина: Добавлено сообщение
sks вне форума  
Старый 19.07.2011, 12:33   #10
Участник
 
Регистрация: 27.09.2006
Сообщений: 1,045

ICQ: 272768

Репутация: 2856
Отправить сообщение для .fry с помощью Skype™ Bimoid
По умолчанию

В своём компоненте я делаю так:
Код:
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 вне форума  
Плюсанул .fry :
Старый 19.07.2011, 12:40   #11
Старпёр
 
Аватар для Satana
 
Регистрация: 19.05.2003
Сообщений: 516

ICQ: 66666666

Отправить сообщение для Satana с помощью Skype™ Bimoid
По умолчанию

Цитата:
Сообщение от .fry Посмотреть сообщение
Satana, оба параметра boolean.
Не кодил уже стопицот лет. Поэтому уже не помню и половину((
Нада браться за ум)
__________________
«Будь вежлив с каждым. Никогда не известно, кто попадёт в число двенадцати присяжных»
Satana вне форума  
Старый 19.07.2011, 13:01   #12
Участник
 
Регистрация: 27.09.2006
Сообщений: 1,045

ICQ: 272768

Репутация: 2856
Отправить сообщение для .fry с помощью Skype™ Bimoid
По умолчанию

Решили в аське, путём установки статуса S_ONLINE + S_WEBAWARE
и вызовом процедуры SetAuthorization после подключения (вызывалась до того, как номер бы подключен).
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR.
.fry вне форума  
Плюсанул .fry :
Старый 19.07.2011, 13:02   #13
Участник
 
Регистрация: 18.07.2011
Сообщений: 4

Репутация: 1
По умолчанию

Всем спасибо! Но большое спасибо .fry, очень благодарен ему!!!
Fragnato вне форума  
 

Опции темы
Оценка этой теме
Оценка этой теме:

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +3, время: 17:50.


Перевод: zCarot
Форум Асечников © Asechka.RU

Новости Сочи