TICQClient - исправления, дополнения и прочее - Страница 6 - ICQ

**Sax-mmS** · 28.05.2007, 06:59

В этой теме будут выкладываться исправления и дополнения к компоненту 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** · 05.01.2008, 18:54

Цитата:

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

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

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

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

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

**.fry** · 11.01.2008, 14:43

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

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

и в ней в после

Код HTML:

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

добавляем:

Код HTML:

    $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** · 11.01.2008, 22:56

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

Код:

 // 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** · 12.01.2008, 15:11

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

**Sax-mmS** · 12.01.2008, 16:06

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

**bmkus** · 12.01.2008, 16:29

Цитата:

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

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

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

**.fry** · 12.01.2008, 17:27

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

**bmkus** · 12.01.2008, 21:02

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

Цитата:

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

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

**.fry** · 12.01.2008, 21:05

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

**nDaDe** · 16.01.2008, 10:52

Цитата:

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

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

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

**sai_NT** · 17.01.2008, 14:24

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

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** · 17.01.2008, 15:50

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

**sai_NT** · 18.01.2008, 16:21

К вопросу по 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** · 23.01.2008, 03:06

Цитата:

Сообщение от 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** · 24.01.2008, 13:45

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

**AlexHell** · 24.01.2008, 15:44

Цитата:

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

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

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

**Petrovich44** · 25.01.2008, 08:11

Цитата:

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

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

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

**Petrovich44** · 28.01.2008, 14:53

Цитата:

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

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

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

**nkarataev** · 28.01.2008, 17:35

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

**yxu** · 28.01.2008, 22:35

uses ICQWorks;

Код:

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

**nkarataev** · 29.01.2008, 02:38

Цитата:

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

uses ICQWorks;

Код:

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

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

**yxu** · 29.01.2008, 09:03

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

**nkarataev** · 29.01.2008, 11:00

Цитата:

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

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

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

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

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

**AlexHell** · 30.01.2008, 13:56

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

**Spide®** · 03.02.2008, 17:28

Цитата:

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

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

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

Цитата:

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

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

28.05.2007, 06:59	#1
Sax-mmS Участник Регистрация: 06.08.2006 Сообщений: 243 ICQ: 272727765 Репутация: 406	TICQClient - исправления, дополнения и прочее В этой теме будут выкладываться исправления и дополнения к компоненту 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; 04.02.2012 в 20:23.

11.01.2008, 14:43	#127
.fry Участник Регистрация: 27.09.2006 Сообщений: 1,045 ICQ: 272768 Репутация: 2856	ICQ\AIM Screen name Registration Date Кому интересна Дата регистрации аккаунта: в процедуре модуле ICQClient ищем строку функцию "TICQClient.HSnac030B" и в ней в после Код HTML: $04: {idle time} //* eraser 14.05.04 begin Inc(Pkt^.Len, 2); //TLV's Length wIdleTime := GetInt(Pkt, 2); //Idle in minutes end; добавляем: Код HTML: $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 надо было как-то аапить тему :) __________________ Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR. Последний раз редактировалось .fry; 11.01.2008 в 14:52.

11.01.2008, 22:56	#128
yxu Участник Регистрация: 17.11.2006 Сообщений: 153 ICQ: 8070080 Репутация: 302	Да там много чо шлеться: Код: // 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) с датой регистрации шлется в пакете с сообщением и из-за этого некоторое время назад(наверно год уже :) перестали доходить сообщения, можно еще оттуда ее выковыривать ;)

12.01.2008, 16:06	#130
Sax-mmS Участник Регистрация: 06.08.2006 Сообщений: 243 ICQ: 272727765 Репутация: 406	Не знаю, почему у вас не вызывается OnConnectionFailed. Тогда самый простой способ - повесить таймер и каждые n-секунд проверять состояние подключения. __________________ Мой блог - Mac, Qt и немного Delphi.

12.01.2008, 17:27	#132
.fry Участник Регистрация: 27.09.2006 Сообщений: 1,045 ICQ: 272768 Репутация: 2856	bmkus, парой постов выще разбиралось это ;) http://forum.asechka.ru/showpost.php...&postcount=125 __________________ Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR.

12.01.2008, 15:11	#129
bmkus Участник Регистрация: 12.01.2008 Сообщений: 3 Репутация: 1	Специалисты по TICQ подскажите пож-ста почему когда отваливается клиент (ICQ-бот) на TICQ не вызывается событие onConnectionFailed Нада чтобы при потере коннекта запускался логин

12.01.2008, 21:05	#134
.fry Участник Регистрация: 27.09.2006 Сообщений: 1,045 ICQ: 272768 Репутация: 2856	открой её исходник в модуле ICQClient, и увидишь исходник __________________ Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR.

17.01.2008, 14:24	#136
sai_NT Участник Регистрация: 26.09.2006 Сообщений: 149 Репутация: 129	Если кому нужно знать при поиске уинов еще и ИД базы (рамблер, бигмир, атлас ...) вот кусочек: 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,'). Ну дальше массивек ИД и Почтовик и все готово. __________________ {$R snt.res} <<<

17.01.2008, 15:50	#137
yxu Участник Регистрация: 17.11.2006 Сообщений: 153 ICQ: 8070080 Репутация: 302	Да боянчик так то, в квипе давно ж это показывает уже. Там после Id еще мыло для логина шлется (могу сказать стопудово только про рамблер, но по идее и на остальных должно быть).

18.01.2008, 16:21	#138
sai_NT Участник Регистрация: 26.09.2006 Сообщений: 149 Репутация: 129	К вопросу по 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 ] __________________ {$R snt.res} <<<

24.01.2008, 13:45	#140
Petrovich44 Участник Регистрация: 24.01.2008 Сообщений: 3 Репутация: 1	зависает программа с TICQClient Написал программу. Все нормально коннектится через прокси. Отсылает, принимает сообщения все работает. Но где-то через полчаса зависает наглухо. Причем в списке приложений статус работающей программы. Подскажите пожалуйста какие основные причины зависания компонента TICQClient могут быть и как их обработать?

28.01.2008, 17:35	#144
nkarataev Участник Регистрация: 25.01.2008 Сообщений: 7 Репутация: 1	Кто нибудь может дать пример проверки статусов Uinов КЛ при их изменении - т.е. входе/ выходе и т.д. , буду премного благодарен.

29.01.2008, 09:03	#147
yxu Участник Регистрация: 17.11.2006 Сообщений: 153 ICQ: 8070080 Репутация: 302	Попробуй для начала разобрать данную ветку форума с 1 странички, а не читать с конца. Вопрос про смену статусов поднимался минимум 2 раза (а может и 3), и написано и разжевано, ан нет, пока носом не тыкнешь не увидят. З.Ы. К исходному компаненту прилагается норм хелп, там можно найти ответы по всем свойствам и процедурам.

30.01.2008, 13:56	#149
AlexHell Участник Регистрация: 22.01.2008 Сообщений: 2 Репутация: 1	Народ... ну скажите мне пожалуйса... как разобраться с статусом Online... никак немогу добится того чтоб другие клиенты увидили моего в режиме Онлайна.. показывает что оффлайн в любых положениях... в чём косяк может быть????