VPF::ICQClient событие OnStatusChange не отрабатывается

KEM

Дата 3.1.2007, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 152
Регистрация: 28.1.2005

Репутация: нет
Всего: 2

Цитата

а вроде, QIP умеет определять статус контакта даже если тот инвизибл?

Уже не может, эо был баг в протоколе аськи который тамашние админы благополучно поправили.

--------------------

Мы растворяем сознание жизни, реальностью стал бешеный ритм...

Snowy

Дата 3.1.2007, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Не баг, а недокументированная возможность smile

Но аська настолько дырявая штука...
Если у человека директ коннект не отключен, то всё равно можно определить.
Но смысл?

Данкинг

Дата 3.1.2007, 21:33 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Смысл - чтобы отлавливать скрывающихся, а зачем ещё. smile

Это сообщение отредактировал(а) Данкинг - 3.1.2007, 23:25

--------------------

There's nothing left but silent epitaphs.

Snowy

Дата 3.1.2007, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Цитата(Данкинг @ 3.1.2007, 21:33

)

Хорошо, а как тогда отловить, что контакт уходит в оффлайн?

OnUserOffline

Добавлено @ 23:33

Цитата(Данкинг @ 3.1.2007, 21:33

)

Смысл - чтобы отлавливать скрывающихся, а зачем ещё.

А зачем?
Если человек не хочет разговаривать, зачем навязываться?!

Данкинг

Дата 6.1.2007, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Цитата(Snowy @ 3.1.2007, 23:33)

А зачем?
Если человек не хочет разговаривать, зачем навязываться?!

Да не навязываться, мне сделать просто интересно... Теперь не получается добавить новый контакт: addcontact работает только для текущего сеанса, а как добавить новый номер в контакт-лист? smile

--------------------

There's nothing left but silent epitaphs.

Snowy

Дата 7.1.2007, 00:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

AddContact не добавляет в контакт лист.
Для добавления в контакт лист, смотри SSL функции. В доке есть примеры.

Данкинг

Дата 7.1.2007, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Цитата(Snowy @ 7.1.2007, 00:14)

AddContact не добавляет в контакт лист.
Для добавления в контакт лист, смотри SSL функции. В доке есть примеры.

Да, вот пример из дока:

procedure SSLAddUser(GroupID, UserID: Word; UIN, Name, SMSNumber: String; Authorize, UpdateUser: Boolean)
Adds user to server side list.
GroupID - id of the group user belongs to (passed in the second parameter in SSLAddGroup procedure)

Но! Мне нужно добавить контакт в уже существующую группу, а точнее, я на группы вообще не разделяю, у меня все в "общих". И как узнать числовой код группы "общие"?! smile

Если пишу:
icq.SSLAddUser(1,random(32766)+1,uin,nickname,' ',false,false);
то тому, кого добавляю, приходит сообщение "Вас добавили", но в действительности же мне никто не добавляется. smile

Это сообщение отредактировал(а) Данкинг - 7.1.2007, 21:39

--------------------

There's nothing left but silent epitaphs.

Snowy

Дата 8.1.2007, 00:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

ID групп тебе передаются при приёме контакт листа.

Данкинг

Дата 8.1.2007, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Дальше...

После запроса на авторизацию происходит вот что:

Код


procedure TForm1.ICQAuthResponse(Sender: TObject; UIN: String;
  Granted: Boolean; Reason: String);
begin
if Granted then
 begin
 randomize;
 ICQ.SSLChangeStart(False);
 icq.SSLAddUser(19264,random(32766)+1,uin,'','',false,false);
 ICQ.SSLChangeEnd;
 icq.RequestContactList;
 end
 else
 begin
 bsSkinMessage1.MessageDlg ('Вас не авторизовали! '+uin+':'+chr(13)+vartostr(reason),mtinformation,[mbyes],0);
 end;

Проблема в том, что при отказе от авторизации (пользователь нажимает <DECLINE>, соответственно, granted=false) процедура работает нормально и выводится "Вас не авторизовали". Но если пользователь нажимает "AUTHORIZE", то события "AuthResponse", похоже, вообще не происходит?... smile

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »