TICQClient - исправления, дополнения и прочее

[Sax-mmS]

В этой теме будут выкладываться исправления и дополнения к компоненту 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]

Dmitrii_M, в компоненте не рабочие прокси ;) то есть рабочие, но с какой стороны посмотреть.

[LOSTeam]

DjFly,
у меня несколько вопросов по поводу авторизации собеседника. Использую версию компонента 1.35a, читая мануал никак не могу разобраться : как добавить в серверный контакт-лист собеседника, чтобы при следующем заходе в сеть тот был в списке?
для добавления в список имеется два случая: 1) если собеседник запросил авторизацию; 2) если я сам добавляю собеседника в контакт-лист.

вот простой пример из мануала :
procedure TMainForm.Button1Click(Sender: TObject);
begin
ICQClient1.SSLChangeStart(Fals e);
ICQClient1.SSLAddGroup('My Good Friends', 0010); //Create group 'My Good Friends' with id 0010
ICQClient1.SSLAddGroup('Me lovers', 0011); //Create group 'Me lovers' with id 0011
ICQClient1.SSLAddUser(0010, 0020, '4024781', 'Coban', '', False, False);
...
ICQClient1.SSLChangeEnd;
это я так понимаю создается группа и в нее добавляются контакты,
но если у контакта должен быть свой id, как его сгенерировать? как вообще добавить собеседника, не зная ни его id, ни id группы заранее?

И какая же последовательность действий должна быть, если я хочу кого-либо авторизовать?

Надеюсь на вашу помощь :)

[yxu]

Прочитай внимательнее эту же страничку откуда ты скопировал пример, но на 10 строчек повыше, ты не поверишь, но там все это расписано :)

[.skyer]

расписано то расписано, но это не работает

[Dmitrii_M]

Будьте добры, помогите с проблемой, описанной мной в этой
теме(http://forum.volkov.spb.su/index.php?topic=13862.0) на форуме посвященном TIcqClient.

[LOSTeam]

Сообщение от .skyer

расписано то расписано, но это не работает

Пытался сделать как в примере, но добился только автоматической авторизации без подтверждения. Есть ли рабочий код?

[Turbomax]

Почему то не логиниться через цикл , для проверки решил написать такой цикл

1 Залогинься
2 Если залогинился ShowMessage("Ура")
3 LogOFF

Так вот не разу не написал пробовал с 6 UIN все равно , а если без цикла сделать то все ок !


А вот заметил что если после Icq1.Login поставить ShowMessage то тогда все оке но ShowMessage мешает как избавиться ? ((

Еще заметил что если ShowMessage сразу закрыть то ни че не бует а если подождать сек 3 то все нормально, как же без него обойтись а то пока я на не щелкну на ОК дальше не пойдет (а если его ваще не втсавлять то просто будет не логиться что делать ???Помогите плиз(

[DjFly]

1 Залогинься
2 Если залогинился ShowMessage("Ура")
3 LogOFF

Выкладываю пример/альтернативу
Посмотри мою реализацию =)

[Turbomax]

А версия(ICQ) клиента какова ?


Чет все равно разницы не вижу если ставить это в цикл то все равно пропускать начинает )))

[DjFly]

Сообщение от Turbomax

А версия(ICQ) клиента какова ?

таська

Сообщение от Turbomax

Чет все равно разницы не вижу если ставить это в цикл то все равно пропускать начинает )))

ну видишь как я сделал? у тебя по твоему циклу не успевает залогиниться, как уже нужно отключиться.
Таймер ИМХО вариант =)

[Turbomax]

Сообщение от DjFly

таська

ну видишь как я сделал? у тебя по твоему циклу не успевает залогиниться, как уже нужно отключиться.
Таймер ИМХО вариант =)

Сделал не много по другому щас все ок и без таймера_)
Терь другой вопрос а как на другом компе эт запустить терь все а то пробовал на ноуте молчит и все

[222]

народ, помогите с TICQClient`oм...
в общем прикрепляю процедуру:

 client.OnContactListRecv:=ContactListRecv;

Получаю КЛ:

    client.RequestContactList;
     While (not good) do //пока не получен кл -
       begin                //-гоняем цикл.
        Sleep(1000);
        end;

такое ощущение, что компонент и непытается получить КЛ, даже в течение 2 минут не срабатывает то, к чему мы привязывали сначала этот тайсику:

procedure TEditThread.ContactListRecv(Sender: TObject; UIN: String;
  ContactList: TStringList);
begin
    form1.Memo1.Lines.Add('КЛ получен!!!!');
    good:=true;
end;

то есть переменная good никогда не становится true ((( в чем может быть ошибка?((

Добавлено через 33 минуты
вспомнил, что надо использовать OnServerListRecv вместо ContactListRecv для получения списка, но всеравно не робит(((

[DjFly]

222, робит

PHP код:

procedure TfrmMain.ICQClientServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i : LongInt;
  UserInfo: TUINEntry;
  UINNickItem : PUINNickItem;
begin
  //Список контактов может прийти по частям!
  //Версия 1.26 это не учитывала!
  //Очищаем списки только тогда, когда сделали новый запрос списка контактов
  if FullReloadContactList then
    begin
      FullReloadContactList := False;
      lstContactList.Clear;
      UINNickList.Clear;
    end;
  if SrvContactList.Count > 0 then
    for i := 0 to SrvContactList.Count - 1 do
      begin
        UserInfo := PUINEntry(SrvContactList.Items[i])^;
        if UserInfo.CType = 0 then  //если это пользователь (CType = 0), то добавляем в список
          begin
            lstContactList.AddItem(UserInfo.Nick + ' (' + IntToStr(UserInfo.UIN) + ') - ' + GetStatusFor(UserInfo.UIN), Self);
            GetMem(UINNickItem, SizeOf(UINNickItem^));
            UINNickItem^.UIN := UserInfo.UIN;
            UINNickItem^.Nick := UserInfo.Nick;
            UINNickList.Add(UINNickItem);
          end;
      end;
  AddEvent('Получен список контактов');
  ICQClient.DestroyUINList(SrvContactList);
end; 


Узнать подробней

[222]

нет, ты не понял! цикл перекрывает весь поток и не дает выполнится этому событию :(

[DjFly]

222, ты что вообще хотел сделать в процедуре?
Загрузить список?

[RankoR]

Сообщение от 222

такое ощущение, что компонент и непытается получить КЛ, даже в течение 2 минут не срабатывает то, к чему мы привязывали сначала этот тайсику:

Так ясный пень, поток-то твой висит в бесконечном цикле и не дает выполниться событию
Зачем тебе там этот цикл? Чем простое событие не устраивает? =)

Снифани прогу ICQMenace'ом, посмотри, приходит ли пакет с КЛ вообще. И учти, что если КЛ большой, то он придет частями.

[222]

ранк!! хоть ты меня понял!! :yahoo:

поток-то твой висит в бесконечном цикле и не дает выполниться событию

вот как это исправить чтобы были цикл и событие??)) все вместе... чтобы прям в цикле можно было отследить, выполнилось ли событие!! подскажи плиз))

[RankoR]

222, попробуй слип поменьше сделать, но скорее всего не поможет

[Grutal]

Никто не заметил, что он юзает ContactListRecv а нужно ServerListRecv?
Тоже с этой проблемой столкнулся когда-то и даже не подозревал, что я делаю что-то не так ;)
Ну в примере в 913 посте через ServerListRecv и показано, пользуйтесь :)

[222]

Grutal, я уже с этим ServerListRecv разобрался!!! нужно тока как-то в одной процедуре теперь сделать принятие контакт листа не выходя из самой процедуры!!

[222]

яху!!! разобрался, в общем TTimer`Ы рулят)) теперь другая как бэ проблемка: реально ли узнать в скольких частях придёт КЛ ??(компонент от царя) если да, то как??

[.fry]

222, нет.
Но можно узнать последний это пакет или нет.
Смотри SNAC__HEADER_FLAGS — MORE_REPLIES_FOLLOW.

[MasterWizard]

Заранее сорь, если офф или rtfm

Пишу на делфи, компонент 1,35 от Царя.

1-SearchByUin после нескольких успешных выполнений (вызываю таймером, интервал таймера рандомный от 2 до 5 секунд) вызывает ошибку сервера (снифил Menace)

2-OnUserFound - все переменные, кроме UIN, пустые всегда

3-после нескольких вызовов RequestInfo сервер перестает отдавать данные.

В чем проблема?
(варианты: 1-неправильная кривизна моих рук
2-кривизна компонента
3-особенности протокола)

[RankoR]

MasterWizard, ограничения от AOL.

[MasterWizard]

Сообщение от RankoR

MasterWizard, ограничения от AOL.

При всем уважении - почему тогда тот же qip преспокойно позволяет прочитать инфу у дох..... пользователей?