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

[nDaDe]

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

Шлется каждую минуту..

Ну видимо у кого как.
В демке которая идет с компонентом, не сделана отсылка KeepAlive пакетов.
Хотя может стоило бы, чтобы человек знал о такой возможности подробно не разбираясь с компонентом.

А так с отсылкой KeepAlive пакетов все просто чудесно.

Respect создателю и конечно тем, кто поддерживает это дело!

[.fry]

Кому интересна Дата регистрации аккаунта:

в процедуре модуле ICQClient ищем строку функцию "TICQClient.HSnac030B"

и в ней в после

    $04: {idle time}                    //* eraser 14.05.04
    begin
      Inc(Pkt^.Len, 2);                 //TLV's Length
      wIdleTime := GetInt(Pkt, 2);      //Idle in minutes
    end;

добавляем:

    $05: { registration date }
    begin
      Inc(Pkt^.Len, 2);
      RegDate := UnixToDateTime(GetInt(Pkt, 4)); // Timestamp
      {if Assigned(OnRegDate) then FOnRegDate(Self, UIN, DateTimeToStr(RegDate))}
    end;

Дальше в RegDate, лежит дата регистрации номера\aim аккаунта, который пришел в OnlineInfo, лично я слегка модифицировал функцию FOnOnlineInfo

надо было как-то аапить тему :)

[yxu]

Да там много чо шлеться:

 // TLV(1) Unknown (x50)
 // TLV(2) Member since (not sent)
 // TLV(3) Online since
 // TLV(4) Idle time (not sent)
 // TLV(5) Registered
 // TLV(6) New status
 // TLV(A) External IP
 // TLV(C) DC Info
 // TLV(D) Capabilities
 // TLV(F) Session timer (in seconds)
 // TLV(1D) Avatar Hash (20 bytes)
 // TLV(19) New capabilities

А кстати этот самый TLV(5) с датой регистрации шлется в пакете с сообщением и из-за этого некоторое время назад(наверно год уже :) перестали доходить сообщения, можно еще оттуда ее выковыривать ;)

[bmkus]

Специалисты по TICQ подскажите пож-ста
почему когда отваливается клиент (ICQ-бот) на TICQ не вызывается событие onConnectionFailed
Нада чтобы при потере коннекта запускался логин

[Sax-mmS]

Не знаю, почему у вас не вызывается OnConnectionFailed. Тогда самый простой способ - повесить таймер и каждые n-секунд проверять состояние подключения.

[bmkus]

Сообщение от Sax-mmS

Не знаю, почему у вас не вызывается OnConnectionFailed

те проблем с этим не было замечено?
проверяю след образом бот висит на моем компе онлайн, я обрубаю инет и событие разрыва не происходит

[.fry]

bmkus, парой постов выще разбиралось это ;)
http://forum.asechka.ru/showpost.php...&postcount=125

[bmkus]

Пасиба .fry и yxy
а можно немного подробнее как использовать эту процедуру и где взять результат ее работы. Мануалов по ней не смог найти

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

в компаненте за пинг отвечает процедурка SendKeepAlive. Вешай ее на таймер и пингуй сколько влезет

[.fry]

открой её исходник в модуле ICQClient, и увидишь исходник

[nDaDe]

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

дак первым делом это и сделал, честно говоря не догоняю.
поможи пож-ста

Поставь таймер с интервалом в 1 мин, в котором посылай KeepAlive пакеты.
Например:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.enabled:=true;
If ICQClient.LoggedIn then
ICQClient.SendKeepAlive;
end;

[sai_NT]

Если кому нужно знать при поиске уинов еще и ИД базы (рамблер, бигмир, атлас ...) вот кусочек:

procedure TICQClient.HSnac1503(Flap: TFlapHdr; Snac: TSnacHdr; Pkt: PRawPkt);
...
FAge := GetInt(Pkt, 1); //The user's age.
inc(Pkt.Len, 3);
FBaseID := GetLNTS(Pkt); //The base ID.
if Assigned(OnUserFound) then
...

Не забудьте объявить переменную FBaseID и протащить по методам.
В переменную FBaseID возвращается строка типа: ID, (н.п.'1,', '3,', '10,', '16,'). Ну дальше массивек ИД и Почтовик и все готово.

[yxu]

Да боянчик так то, в квипе давно ж это показывает уже. Там после Id еще мыло для логина шлется (могу сказать стопудово только про рамблер, но по идее и на остальных должно быть).

[sai_NT]

К вопросу по Basic Distribution ID:
[ 1 - Israel - icq.nana.co.il ]
[ 3 - Russia - icq.rambler.ru ]
[ 9 - Bulgaria - icq.abv.bg ]
[10 - Ukraina - icq.bigmir.net ]
[14 - Turkey - icq.mynet.com ]
[16 - Чехия - icq.atlas.cz ]
[18 - Словакия - icq.zoznam.sk ]

[vodkapivo5]

Сообщение от SnakeV1.0

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.SearchWhitePages('' ,'','','',23,29,1,'','Moscow', 'Russia','','','','','','','', '','',false);
//7-ом параметре указывается пол, 1-женский, 2-мужской
//в последнем параметре ставь true если хочешь искать только онлайн
//контакты
end;

не работает :-( Вообще тишина.
Нашел только http://hghltd.yandex.net/yandbtm?url...=3&sg=40&isu=1
Но это не помогает у меня и так последний вариант
Что бы придумать, у кого было такое?

[Petrovich44]

Написал программу. Все нормально коннектится через прокси. Отсылает, принимает сообщения все работает. Но где-то через полчаса зависает наглухо. Причем в списке приложений статус работающей программы. Подскажите пожалуйста какие основные причины зависания компонента TICQClient могут быть и как их обработать?

[AlexHell]

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

Написал программу. Все нормально коннектится через прокси. Отсылает, принимает сообщения все работает. Но где-то через полчаса зависает наглухо. Причем в списке приложений статус работающей программы. Подскажите пожалуйста какие основные причины зависания компонента TICQClient могут быть и как их обработать?

А ты пробовал отсылать КипЭлайф?
Поставь таймер минутный чтоб он отсылал... может помочь

[Petrovich44]

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

А ты пробовал отсылать КипЭлайф?
Поставь таймер минутный чтоб он отсылал... может помочь

SentKeepAlive отсылается каждую минуту при наличии соединения. Если оно теряется прога снова коннектится к серверу.

[Petrovich44]

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

SentKeepAlive отсылается каждую минуту при наличии соединения. Если оно теряется прога снова коннектится к серверу.

Проблема решена переустановкой компонента ICQ от Romen'a указанного вверху страницы. До этого была старая версия TIcqClient 1.21

[nkarataev]

Кто нибудь может дать пример проверки статусов Uinов КЛ при их изменении - т.е. входе/ выходе и т.д. , буду премного благодарен.

[yxu]

uses ICQWorks;

procedure TForm1.ICQClient1StatusChange(Sender: TObject; UIN: String;
  Status: Cardinal);
begin
 if Status = S_ONLINE then showmessage(uin + ' сменил статус на ' + StatusToStr(Status));
end;

[nkarataev]

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

uses ICQWorks;

procedure TForm1.ICQClient1StatusChange(Sender: TObject; UIN: String;
  Status: Cardinal);
begin
 if Status = S_ONLINE then showmessage(uin + ' сменил статус на ' + StatusToStr(Status));
end;

чой-то не работает, может чо не так делаю :( можно исходничек рабочик - а я его разберу :( (просто дельфи плоховато помню/знаю)

[yxu]

Попробуй для начала разобрать данную ветку форума с 1 странички, а не читать с конца. Вопрос про смену статусов поднимался минимум 2 раза (а может и 3), и написано и разжевано, ан нет, пока носом не тыкнешь не увидят.
З.Ы. К исходному компаненту прилагается норм хелп, там можно найти ответы по всем свойствам и процедурам.

[nkarataev]

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

Попробуй для начала разобрать данную ветку форума с 1 странички, а не читать с конца. Вопрос про смену статусов поднимался минимум 2 раза (а может и 3), и написано и разжевано, ан нет, пока носом не тыкнешь не увидят.
З.Ы. К исходному компаненту прилагается норм хелп, там можно найти ответы по всем свойствам и процедурам.

ФОрум читал, проблема в следующем - я всю жизнь разбирал языки программирования по исходникам (VB, PHP), в свое время сталкивался с Дельфями косвенное (изучал турбо паскаль)....

Сорри конечно, просто мне так легче - если я вижу реализацию и разбираю ее с учебником - два зайца убиваю - и программу понимаю и язык изучаю. А хелп (по крайней мере у меня) заключается в однострочном описании функции, без примеров и прочее...

А по теме - нашел инфу, спасибо, поправил ICQClient, ICQWorks... только после SSLActivate, перестал грузится контакт лист :(, коммент поставлю грузится, но нет статусов :( может подскажешь в чем дело, спасибо огромное!

[AlexHell]

Народ... ну скажите мне пожалуйса... как разобраться с статусом Online... никак немогу добится того чтоб другие клиенты увидили моего в режиме Онлайна.. показывает что оффлайн в любых положениях... в чём косяк может быть????

[Spide®]

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

Народ... ну скажите мне пожалуйса... как разобраться с статусом Online... никак немогу добится того чтоб другие клиенты увидили моего в режиме Онлайна.. показывает что оффлайн в любых положениях... в чём косяк может быть????

Косяк весь в том, что неавторизированные номера не показывают статуса, т.е. всегда оффлайн. А вот как в ICQClient авторизировать пользователя я не знаю. Вообще в Help ICQClient`a написано:

Если пользователь запросит авторизацию(authorization request), тогда он будет автоматически авторизован.

Но, при запросе на авторизацию ничего не происходит. Как решить эту проблему кто-нибудь знает?